#+title: Desktop settings
#+setupfile: headers
#+options: auto-id:t
#+html_head: <meta name="description" content="Phundrak’s Emacs Configuration" />
#+html_head: <meta property="og:title" content="Phundrak’s Emacs Configuration" />
#+html_head: <meta property="og:description" content="Phundrak’s Emacs Configuration Detailed" />
#+property: header-args:emacs-lisp  :mkdirp yes :lexical t :exports code
#+property: header-args:emacs-lisp+ :tangle ~/.emacs.d/desktop.el
#+property: header-args:emacs-lisp+ :mkdirp yes :noweb no-export
#+property: header-args:lisp :mkdirp :tangle ~/.stumpwm.d/desktop.lisp :noweb yes

* Introduction
:PROPERTIES:
:CUSTOM_ID: Introduction-w831x4a0l9j0
:END:
Many settings formerly present in this website’s index are related to
my desktop settings, while some others are not.

# Also, since I switched to StumpWM, many of my keybinds from Emacs need
# to be kept up to date with my StumpWM keybinds, and /vice versa/. This
# document aims to regroup all settings related to the desktop in order
# to have an easier time managing them.

* Common Emacs and StumpWM settings                                :noexport:
:PROPERTIES:
:CUSTOM_ID: Common-Emacs-and-StumpWM-settings-neseiaa0l9j0
:END:
Both Emacs and StumpWM work on the same principle of keychords
powering a function or command. With both of them I have a prefix key,
~SPC~ in the case of Emacs (or ~C-SPC~ when in insert-mode, see the
relevant config) and ~s-SPC~ in the case of StumpWM. That means I can
give them the same keychord following this, for instance ~w/~ to create
a new vertically split frame to the right of the current one.

All the keybinds will be presented in the form of tables, with on the
first column the keychord following the leader key, on the second
column the EmacsLisp function to be called, and on the third the
StumpWM command. If one of the ELisp or StumpWM case’s is empty, it
means there is no equivalence. If it’s ~nil~, then it means it is a
prefix key. The fourth column is for now reserved for Emacs’ which-key
so I can give it a better name. If its value is ~nil~, then it should
not show up. Hopefully this can be implemented someday in StumpWM.

** Generating Code                                                :noexport:
:PROPERTIES:
:CUSTOM_ID: Common-Emacs-and-StumpWM-settings-Generating-Code-ngnclyk0l9j0
:END:
*** Elisp
:PROPERTIES:
:CUSTOM_ID: Common-Emacs-and-StumpWM-settings-Generating-Code-Elisp-oeqclyk0l9j0
:END:
#+name: emacs-keybinds-gen
#+header: :var keymap=emacs-stumpwm-media-control
#+begin_src emacs-lisp :exports none :tangle no :wrap "src emacs-lisp :tangle no"
(mapconcat (lambda (keybind)
             (let* ((keychord (replace-regexp-in-string (rx (or (seq line-start "~")
                                                                (seq "~" line-end)))
                                                        ""
                                                        (car keybind)))
                    (function (replace-regexp-in-string (rx (or (seq line-start "~")
                                                                (seq "~" line-end)))
                                                        ""
                                                        (nth 1 keybind)))
                    (which    (nth 3 keybind)))
               (format "\"%s\" %s"
                       keychord
                       (if (string= "nil" function)
                           (format "%S"
                                   `(:ignore :which-key ,which))
                         (if (string= "" which)
                             (concat "#'" function)
                           (format "%S"
                                   `'(,(intern function) :which-key ,which)))))))
           (seq-filter (lambda (elem)
                         (not (string= "" (nth 1 elem))))
                       keymap)
           "\n")
#+end_src

#+RESULTS: emacs-keybinds-gen
#+begin_src emacs-lisp :tangle no
"m" (:ignore :which-key "media")
"m«" #'emms-player-mpd-previous
"m»" #'emms-player-mpd-next
"ma" '(hydra-media/body :which-key "MPD add")
"mb" (:ignore :which-key "browse")
"mba" #'emms-browse-by-artist
"mbA" #'emms-browse-by-album
"mbg" #'emms-browse-by-genre
"mbp" #'emms-playlists-mode-go
"mbs" #'emms-smart-browse
"mby" #'emms-browse-by-year
"mc" #'emms-player-mpd-clear
"mp" #'emms-player-toggle-pause
"ms" #'emms-player-mpd-show
"mu" (:ignore :which-key "update")
"mum" #'emms-player-mpd-update-all
"muc" #'emms-cache-set-from-mpd-all
#+end_src

#+name: emacs-hydra-keybinds-gen
#+header: :var keymap=emacs-stumpwm-resize-frame
#+begin_src emacs-lisp :exports none :tangle no :wrap "src emacs-lisp :tangle no"
(mapconcat (lambda (keybind)
             (let ((keychord (replace-regexp-in-string "^~\\|~$"
                                                       ""
                                                       (car keybind)))
                   (function (replace-regexp-in-string "^~\\|~$"
                                                       ""
                                                       (nth 1 keybind)))
                   (which (nth 3 keybind)))
               (format "%S" (if (string= "" which)
                                `(,keychord ,(intern function))
                              `(,keychord ,(intern function) ,which)))))
           keymap
           "\n")
#+end_src

#+RESULTS: emacs-hydra-keybinds-gen
#+begin_src emacs-lisp :tangle no
("c" shrink-window-horizontally)
("t" enlarge-window)
("s" shrink-window)
("r" enlarge-window-horizontally)
#+end_src

*** Lisp
:PROPERTIES:
:CUSTOM_ID: Common-Emacs-and-StumpWM-settings-Generating-Code-Lisp-qntclyk0l9j0
:END:
#+name: stumpwm-filter-keybinds
#+begin_src emacs-lisp :exports none :tangle no
(let ((no-tilde (lambda (string)
                  (replace-regexp-in-string "^~\\|~$" "" string))))
  (seq-filter (lambda (elem)
                (= 1 (length (car elem))))
              (mapcar (lambda (elem)
                        `(,(replace-regexp-in-string (format "^%s" prefix) "" (car elem))
                          .
                          ,(cdr elem)))
                      (seq-filter (lambda (elem)
                                    (and (not (string= "" (cdr elem)))
                                         (not (string= prefix (car elem)))
                                         (string-prefix-p prefix (car elem))))
                                  (mapcar (lambda (elem)
                                            (let ((keychord (apply no-tilde (list (car elem))))
                                                  (function (apply no-tilde (list (nth 2 elem)))))
                                              `(,keychord . ,function)))
                                          keymap)))))
#+end_src

#+name: stumpwm-keybinds-gen
#+header: :var keymap=emacs-stumpwm-media-control keymap-name="my-mpd-add-map" prefix="m"
#+begin_src emacs-lisp :exports none :tangle no :wrap "src lisp :tangle no" :noweb yes
(require 'seq)
(format "%S"
        `(defvar ,(intern (format "*%s*" keymap-name))
           (let ((m (make-sparse-keymap)))
             ,@(mapcar (lambda (keybind)
                         (let ((keychord (replace-regexp-in-string (format "^%s" prefix)
                                                                   ""
                                                                   (car keybind)))
                               (function (cdr keybind)))
                           `(define-key m (kbd ,keychord) ,function)))
                       <<stumpwm-filter-keybinds>>
                       )
             m)))
#+end_src

#+RESULTS: stumpwm-keybinds-gen
#+begin_src lisp :tangle no
(defvar *my-mpd-add-map* (let ((m (make-sparse-keymap))) (define-key m (kbd ".") "media-interactive") (define-key m (kbd "«") "mpd-prev") (define-key m (kbd "»") "mpd-next") (define-key m (kbd "a") "'*my-mpd-add-keymap*") (define-key m (kbd "b") "'*my-mpd-browse-keymap*") (define-key m (kbd "c") "mpd-clear") (define-key m (kbd "p") "mpd-toggle-pause") m))
#+end_src

#+name: stumpwm-interactive-keybinds-gen
#+header: :var keymap=emacs-stumpwm-resize-frame prefix=""
#+begin_src emacs-lisp :noweb yes
(format "%S" `,@(mapcar (lambda (keybind)
                             (let ((keychord (car keybind))
                                   (function (cdr keybind)))
                               `((kbd ,keychord) ,function)))
                     <<stumpwm-filter-keybinds>>))
#+end_src

#+RESULTS: stumpwm-interactive-keybinds-gen
: (((kbd "c") "resize-direction left") ((kbd "t") "resize-direction down") ((kbd "s") "resize-direction up") ((kbd "r") "resize-direction right"))

#+name: stumpwm-interactive-gen
#+header: :var keymap=emacs-stumpwm-resize-frame keymap-name="my-mpd-add-map" prefix=""
#+begin_src emacs-lisp :exports none :tangle no :wrap "src lisp :tangle no"
(format "%S"
        `(define-interactive-keymap ,(intern keymap-name)
           (:exit-on '((kbd "RET")
                       (kbd "ESC")
                       (kbd "C-g")
                       (kbd "q")))
           ,@
           <<stumpwm-interactive-keybinds-gen>>
           ))
#+end_src

#+RESULTS: stumpwm-interactive-gen
#+begin_src lisp :tangle no
(define-interactive-keymap my-mpd-add-map (:exit-on '((kbd "RET") (kbd "ESC") (kbd "C-g") (kbd "q"))) ((kbd "c") "resize-direction left" (kbd "t") "resize-direction down" (kbd "s") "resize-direction up" (kbd "r") "resize-direction right"))
#+end_src

** Frames Management
:PROPERTIES:
:CUSTOM_ID: Common-Emacs-and-StumpWM-settings-Frames-Management-5zhea5c0l9j0
:END:
In StumpWM, I’ll consider my various windows the same as Emacs’
buffers.
#+name: emacs-stumpwm-frames-management
| Keychord | Emacs                     | StumpWM                 | which-key |
|----------+---------------------------+-------------------------+-----------|
| ~b~        | ~nil~                       | ~'*my-buffers-keymap*~    | buffers   |
| ~bb~       | ~buflers-switch-buffer~     | ~windowlist~              |           |
| ~bB~       | ~bury-buffer~               |                         |           |
| ~bd~       | ~kill-this-buffer~          | ~delete-window~           |           |
| ~bD~       | ~kill-buffer~               | ~window-window-and-frame~ |           |
| ~bh~       | ~dashboard-refresh-buffer~  |                         |           |
| ~bk~       |                           | ~kill-window~             |           |
| ~bl~       | ~bufler~                    |                         |           |
| ~bm~       | ~switch-to-messages-buffer~ |                         |           |
| ~bn~       | ~evil-next-buffer~          | ~next~                    |           |
| ~bp~       | ~evil-prev-buffer~          | ~prev~                    |           |
| ~br~       | ~counsel-buffer-or-recentf~ |                         |           |
| ~bs~       | ~switch-to-scratch-buffer~  |                         |           |

EmacsLisp code:
#+begin_src emacs-lisp
(phundrak/leader-key
  <<emacs-keybinds-gen(keymap=emacs-stumpwm-frames-management)>>
  )
#+end_src

StumpWM’s Lisp code:
#+begin_src lisp
<<stumpwm-keybinds-gen(keymap=emacs-stumpwm-frames-management, keymap-name="my-buffers-keymap", prefix="b")>>
(define-key *root-map (kbd "b") '*my-buffers-keymap*)
#+end_src

** Window Management
:PROPERTIES:
:CUSTOM_ID: Common-Emacs-and-StumpWM-settings-Window-Management-8kt59fa0l9j0
:END:
The following allows to have an interactive keymap for resizing the
current frame. In Emacs, it will be translated as a hydra while in
StumpWM it will be an interactive keymap.
#+name: emacs-stumpwm-resize-frame
| Keychord | Emacs                       | StumpWM                | which-key |
|----------+-----------------------------+------------------------+-----------|
| ~c~        | ~shrink-window-horizontally~  | ~resize-direction left~  |           |
| ~t~        | ~enlarge-window~              | ~resize-direction down~  |           |
| ~s~        | ~shrink-window~               | ~resize-direction up~    |           |
| ~r~        | ~enlarge-window-horizontally~ | ~resize-direction right~ |           |

This translates into the following hydra in EmacsLisp:
#+begin_src emacs-lisp
(defhydra windows-adjust-size ()
  "
^Zoom^                                ^Other
^^^^^^^-----------------------------------------
[_t_/_s_] shrink/enlarge vertically   [_q_] quit
[_c_/_r_] shrink/enlarge horizontally
"
  <<emacs-hydra-keybinds-gen(keymap=emacs-stumpwm-resize-frame)>>
  ("q" nil :exit t))
#+end_src

While the following Lisp code is used with StumpWM.
#+begin_src lisp
(define-interactive-keymap (iresize tile-group) (:on-enter #'setup-iresize
                                                           :on-exit #'resize-unhide
                                                           :abort-if #'abort-resize-p
                                                           :exit-on '((kbd "RET")
                                                                      (kbd "ESC")
                                                                      (kbd "C-g")
                                                                      (kbd "q")))
  <<stumpwm-interactive-keybinds-gen(keymap=emacs-stumpwm-resize-frame)>>
  )
#+end_src

Below you will find my window management keybinds.
#+name: emacs-stump-window-management
| Keychord | Emacs                         | StumpWM                  | which-key        |
|----------+-------------------------------+--------------------------+------------------|
| ~w~        | ~nil~                           | ~'*my-windows-keymap*~     | windows          |
| ~w.~       | ~windows-adjust-size/body~      | ~iresize~                  | resize windows   |
| ~w-~       | ~split-window-below-and-focus~  | ~vsplit-and-focus~         |                  |
| ~w+~       |                               | ~balance-frames~           |                  |
| ~wv~       | ~split-window-below~            | ~vsplit~                   |                  |
| ~wV~       |                               | ~vsplit-equally~           |                  |
| ~w/~       | ~split-window-right-and-focus~  | ~hsplit-and-focus~         |                  |
| ~wh~       | ~split-window-right~            | ~hsplit~                   |                  |
| ~wH~       |                               | ~hsplit-equally~           |                  |
| ~wc~       | ~evil-window-left~              | ~move-focus left~          |                  |
| ~wt~       | ~evil-window-down~              | ~move-focus down~          |                  |
| ~ws~       | ~evil-window-up~                | ~move-focus up~            |                  |
| ~wr~       | ~evil-window-right~             | ~move-focus right~         |                  |
| ~wC~       |                               | ~move-window left~         |                  |
| ~wT~       |                               | ~move-window down~         |                  |
| ~wS~       |                               | ~move-window up~           |                  |
| ~wR~       |                               | ~move-window right~        |                  |
| ~w C-c~    |                               | ~exchange-direction right~ |                  |
| ~w C-s~    |                               | ~exchange-direction down~  |                  |
| ~w C-t~    |                               | ~exchange-direction up~    |                  |
| ~w C-r~    |                               | ~exchange-direction right~ |                  |
| ~wb~       | ~kill-buffer-and-delete-window~ |                          |                  |
| ~we~       | ~winum-select-window-by-number~ | ~expose~                   |                  |
| ~wf~       |                               | ~fullscreen~               |                  |
| ~wF~       |                               | ~'*my-floating-keymap*~    | floating windows |
| ~wFf~      |                               | ~float-this~               |                  |
| ~wFF~      |                               | ~flatten-floats~           |                  |
| ~wFu~      |                               | ~unfloat-this~             |                  |
| ~wi~       |                               | ~info~                     |                  |
| ~wd~       | ~delete-window~                 | ~remove-split~             |                  |
| ~wD~       | ~delete-other-windows~          | ~only~                     |                  |
| ~wm~       |                               | ~meta~                     |                  |
| ~wo~       | ~other-window~                  | ~other-window~             |                  |
| ~ws~       |                               | ~sibling~                  |                  |
| ~wu~       |                               | ~next-urgent~              |                  |
| ~wU~       |                               | ~unmaximize~               |                  |
| ~ww~       | ~nil~                           |                          | writeroom        |
| ~ww.~      | ~writeroom-buffer-width/body~   |                          |                  |
| ~www~      | ~writeroom-mode~                |                          |                  |

** Media Control
:PROPERTIES:
:CUSTOM_ID: Common-Emacs-and-StumpWM-settings-Media-Control-r56g2hc0l9j0
:END:
#+name: emacs-stumpwm-media-interactive
| Keychord | Emacs                                                       | StumpWM         | which-key |
|----------+-------------------------------------------------------------+-----------------+-----------|
| ~c~        | ~emms-player-mpd-previous~                                    | ~mpd-prev~        |           |
| ~t~        | ~(shell-command-and-echo "mpc volume -2" "mpc volume" "mpc")~ | ~mpd-volume-down~ |           |
| ~s~        | ~(shell-command-and-echo "mpc volume +2" "mpc volume" "mpc")~ | ~mpd-volume-up~   |           |
| ~r~        | ~emms-player-mpd-next~                                        | ~mpd-next~        |           |
| ~s~        | ~emms-player-mpd-stop~                                        | ~mpd-stop~        |           |

#+name: emacs-stumpwm-general-media
| Keychord | Emacs | StumpWM                              | which-key      |
|----------+-------+--------------------------------------+----------------|
| ~c~        |       | ~exec xbacklight -dec 2~               | backlight down |
| ~t~        |       | ~exec amixer -q set Master 2%- unmute~ | volume down    |
| ~s~        |       | ~exec amixer -q set Master 2%+ unmute~ | volume up      |
| ~r~        |       | ~exec xbacklight -inc 2~               | backlight up   |
| ~m~        |       | ~exec amixer -q set Master 1+ toggle~  | toggle mute    |

#+name: emacs-stumpwm-media-control
| Keychord | Emacs                       | StumpWM                   | which-key |
|----------+-----------------------------+---------------------------+-----------|
| ~m~        | ~nil~                         | ~'*my-media-keymap*~        | media     |
| ~m.~       |                             | ~media-interactive~         |           |
| ~m«~       | ~emms-player-mpd-previous~    | ~mpd-prev~                  |           |
| ~m»~       | ~emms-player-mpd-next~        | ~mpd-next~                  |           |
| ~ma~       | ~hydra-media/body~            | ~'*my-mpd-add-keymap*~      | MPD add   |
| ~maa~      |                             | ~mpd-serach-and-add-artist~ |           |
| ~maA~      |                             | ~mpd-serach-and-add-album~  |           |
| ~maf~      |                             | ~mpd-search-and-add-file~   |           |
| ~maF~      |                             | ~mpd-add-file~              |           |
| ~mag~      |                             | ~mpd-search-and-add-genre~  |           |
| ~mat~      |                             | ~mpd-search-and-add-title~  |           |
| ~mb~       | ~nil~                         | ~'*my-mpd-browse-keymap*~   | browse    |
| ~mba~      | ~emms-browse-by-artist~       | ~mpd-browse-artists~        |           |
| ~mbA~      | ~emms-browse-by-album~        | ~mpd-browse-albums~         |           |
| ~mbg~      | ~emms-browse-by-genre~        | ~mpd-browse-genres~         |           |
| ~mbp~      | ~emms-playlists-mode-go~      | ~mpd-browse-playlist~       |           |
| ~mbs~      | ~emms-smart-browse~           |                           |           |
| ~mbt~      |                             | ~mpd-browse-tracks~         |           |
| ~mby~      | ~emms-browse-by-year~         |                           |           |
| ~mc~       | ~emms-player-mpd-clear~       | ~mpd-clear~                 |           |
| ~mp~       | ~emms-player-toggle-pause~    | ~mpd-toggle-pause~          |           |
| ~ms~       | ~emms-player-mpd-show~        |                           |           |
| ~mu~       | ~nil~                         |                           | update    |
| ~mum~      | ~emms-player-mpd-update-all~  |                           |           |
| ~muc~      | ~emms-cache-set-from-mpd-all~ |                           |           |

* Theme and graphical tweaks
:PROPERTIES:
:CUSTOM_ID: Theme-and-graphical-tweaks-ukp6gbc0l9j0
:END:
** GTK Settings
:PROPERTIES:
:CUSTOM_ID: Theme-and-graphical-tweaks-GTK-Settings-2307gbc0l9j0
:END:
*** GTK2
:PROPERTIES:
:CUSTOM_ID: Theme-and-graphical-tweaks-GTK-Settings-GTK2-fq77gbc0l9j0
:END:
**** General configuration
:PROPERTIES:
:HEADER-ARGS: :mkdirp yes :tangle ~/.gtkrc-2.0
:CUSTOM_ID: Theme-and-graphical-tweaks-GTK-Settings-GTK2-General-configuration-xod7gbc0l9j0
:END:
This file is tangled at ~$HOME/.gtkrc-2.0~. This is an equivalent for the GTK3
configuration file you will see below, and it shares most of its settings.
First, let’s select the Nordic theme for GTK2. Let’s also set the icon theme.
#+BEGIN_SRC conf-unix
# -*- mode: unix-config -*-
gtk-theme-name="Nordic"
gtk-icon-theme-name="Flat-Remix-Dark"
#+END_SRC

#+BEGIN_SRC conf-unix
gtk-xft-antialias=1
gtk-xft-hinting=1
gtk-xft-hintstyle="hintslight"
#+END_SRC

This changes the shortcuts in menu, let’s also make the menus snappier.
#+BEGIN_SRC conf-unix
gtk-can-change-accels=1
gtk-menu-bar-popup-delay=0
gtk-menu-popdown-delay=0
gtk-menu-popup-delay=0
#+END_SRC

**** Filechooser
:PROPERTIES:
:HEADER-ARGS: :mkdirp yes :tangle ~/.config/gtk-2.0/gtkfilechooser.ini
:CUSTOM_ID: Theme-and-graphical-tweaks-GTK-Settings-GTK2-Filechooser-nmh7gbc0l9j0
:END:
#+BEGIN_SRC conf-unix
[Filechooser Settings]
#+END_SRC

The first option alows me to open the file chooser in the current working
directory:
#+BEGIN_SRC conf-unix
StartupMode=cwd
#+END_SRC

Next, setting the location mode to ~path-bar~ will show the path as buttons that
can be clicked rather than the full path.
#+BEGIN_SRC conf-unix
LocationMode=path-bar
#+END_SRC

With this configuration, by default we won’t see hidden files.
#+BEGIN_SRC conf-unix
ShowHidden=true
#+END_SRC

And we'll also see the size of the visible files.
#+BEGIN_SRC conf-unix
ShowSizeColumn=true
#+END_SRC

Now, let’s choose the geometry of our file picker. These two first lines set
where the file picker appears:
#+BEGIN_SRC conf-unix
GeometryX=566
GeometryY=202
#+END_SRC

And these two describe the size of the window:
#+BEGIN_SRC conf-unix
GeometryWidth=800
GeometryHeight=400
#+END_SRC

With these two lines, we set how our files are sorted: by name, and in the
ascending order.
#+BEGIN_SRC conf-unix
SortColumn=name
SortOrder=ascending
#+END_SRC

Our default view mode is a list of files:
#+BEGIN_SRC conf-unix
ViewMode=list-view
#+END_SRC

And finally, setting our icon view scale to ~-1~ sets the icon view to the max
size.
#+BEGIN_SRC conf-unix
IconViewScale=-1
#+END_SRC

*** GTK3
:PROPERTIES:
:HEADER-ARGS: :mkdirp yes :tangle ~/.config/gtk-3.0/settings.ini
:CUSTOM_ID: Theme-and-graphical-tweaks-GTK-Settings-GTK3-ojl7gbc0l9j0
:END:
The following file helps me choosing the aspect of various GTK+ 3 software,
including their theme and icons. First, let’s declare the header:
#+BEGIN_SRC conf-unix
[Settings]
#+END_SRC

Now, let’s hint to GTK that I prefer dark themes. This can have an influence
also on some websites that can detect this preference and therefore set their
own theme to dark by themselves.
#+BEGIN_SRC conf-unix
gtk-application-prefer-dark-theme = true
#+END_SRC

Next, the icon theme is the Flat Remix Dark icon theme:
#+BEGIN_SRC conf-unix
gtk-icon-theme-name = Flat-Remix-Dark
#+END_SRC

Now, the general theme for GTK3 is Nordic.
#+BEGIN_SRC conf-unix
gtk-theme-name = Nordic
#+END_SRC

#+BEGIN_SRC conf-unix
gtk-can-change-accels=1
gtk-menu-bar-popup-delay=0
gtk-menu-popdown-delay=0
gtk-menu-popup-delay=0
#+END_SRC

#+BEGIN_SRC conf-unix
gtk-xft-antialias=1
gtk-xft-hinting=1
gtk-xft-hintstyle=hintslight
# gtk-xft-rgba=rgb
#+END_SRC

Since window decorations are handled by my WMs, I will leave this variable
empty.
#+BEGIN_SRC conf-unix
gtk-decoration-layout=
#+END_SRC

** Picom (Compton)
:PROPERTIES:
:CUSTOM_ID: Theme-and-graphical-tweaks-Picom-Compton-uko7gbc0l9j0
:END:
Picom is a standalone compositor for Xorg, and the successor to
Compton, itself successor to xcompmgr-dana, itself a fork of xcompmgr.
You can find my Picom configuration [[file:picom.org][here]].

** Xresources
:PROPERTIES:
:HEADER-ARGS: :mkdirp yes :tangle ~/.Xresources :exports code
:CUSTOM_ID: Theme-and-graphical-tweaks-Xresources-4dr7gbc0l9j0
:END:
The main body in my Xresources declaration is the declaration of my
color theme. It is based on the [[https://www.nordtheme.com/][Nord]] theme, from their [[https://github.com/arcticicestudio/nord-xresources/][Git repository]].
#+BEGIN_SRC conf
#define nord0 #2E3440
#define nord1 #3B4252
#define nord2 #434C5E
#define nord3 #4C566A
#define nord4 #D8DEE9
#define nord5 #E5E9F0
#define nord6 #ECEFF4
#define nord7 #8FBCBB
#define nord8 #88C0D0
#define nord9 #81A1C1
#define nord10 #5E81AC
#define nord11 #BF616A
#define nord12 #D08770
#define nord13 #EBCB8B
#define nord14 #A3BE8C
#define nord15 #B48EAD

,*.foreground:   nord4
,*.background:   nord0
,*.cursorColor:  nord4
,*fading: 35
,*fadeColor: nord3

,*.color0: nord1
,*.color1: nord11
,*.color2: nord14
,*.color3: nord13
,*.color4: nord9
,*.color5: nord15
,*.color6: nord8
,*.color7: nord5
,*.color8: nord3
,*.color9: nord11
,*.color10: nord14
,*.color11: nord13
,*.color12: nord9
,*.color13: nord15
,*.color14: nord7
,*.color15: nord6
#+END_SRC

* Gpg configuration
:PROPERTIES:
:CUSTOM_ID: Gpg-configuration-6i2ip6l0m9j0
:END:
#+begin_src conf :tangle ~/.gnupg/gpg.conf
keyserver hkp://keys.gnupg.net
keyserver-options auto-key-retrieve
keyserver hkp://pgp.mit.edu:11371
#+end_src

* Email signature
:PROPERTIES:
:HEADER-ARGS: :mkdirp yes :tangle ~/.signature
:CUSTOM_ID: Email-signature-jnn75ac0l9j0
:END:
This file gets inserted automatically at the end of my emails.
#+BEGIN_SRC text
Lucien “Phundrak” Cartier-Tilet
https://phundrak.com (Français)
https://phundrak.com/en (English)
Sent from GNU/Emacs
#+END_SRC

* ~.desktop~ files for custom applications
:PROPERTIES:
:CUSTOM_ID: -desktop-files-for-custom-applications-cksiyhg0m9j0
:END:
Some software I use are not packaged (yet) on my system. Therefore, in
order to make them available in ~rofi~, I need to write a ~.desktop~ file
so I can launch them.

** Emacs
:PROPERTIES:
:CUSTOM_ID: -desktop-files-for-custom-applications-Emacs-6e9actg0m9j0
:END:
Emacs does have a default ~.desktop~ file, but I want to override it so
I can just “open with Emacs” from other software (such as Nemo) and it
will instead open with ~emacsclient~.
#+begin_src conf-desktop :tangle ~/.local/share/applications/emacs.desktop
[Desktop Entry]
Name=Emacs
GenericName=Text Editor
Comment=Edit text
MimeType=text/english;text/plain;text/x-makefile;text/x-c++hdr;text/x-c++src;text/x-chdr;text/x-csrc;text/x-java;text/x-moc;text/x-pascal;text/x-tcl;text/x-tex;application/x-shellscript;text/x-c;text/x-c++;
Exec=emacsclient -c %F
Icon=emacs
Type=Application
Terminal=false
Categories=Development;TextEditor;
StartupWMClass=Emacs
Keywords=Text;Editor;
#+end_src

I also have ~mu4e.desktop~ which is used to set my default email client.
It relies on ~emacsmail~ defined in [[file:bin.org::#Emacsmail-afffb7cd][this document]].
#+begin_src conf-desktop :tangle ~/.local/share/applications/mu4e.desktop
[Desktop Entry]
Name=Mu4e
GenericName=Mu4e
Comment=Maildir Utils for Emacs
MimeType=x-scheme-handler/mailto;
Exec=/home/phundrak/.local/bin/emacsmail %U
Icon=emacs
Type=Application
Terminal=false
Categories=Network;Email;TextEditor
StartupWMClass=Gnus
Keywords=Text;Editor;
#+end_src

Then I also have ~org-protocol.desktop~ so I can capture elements from
other software, mainly web pages from Firefox through the [[https://github.com/sprig/org-capture-extension][org-capture
extension]].
#+begin_src conf-desktop :tangle ~/.local/share/applications/org-protocol.desktop
[Desktop Entry]
Name=org-protocol
Exec=emacsclient %u
Type=Application
Terminal=false
Categories=System;
MimeType=x-scheme-handler/org-protocol;
#+end_src

** FlowScape
:PROPERTIES:
:CUSTOM_ID: -desktop-files-for-custom-applications-FlowScape-7zelglg0m9j0
:END:
[[https://pixelforest.itch.io/flowscape][FlowScape]] is a nice 3D compositing software I sometimes use to create
landscapes. I always install it in =~/.local/opt/Flowscape=, so the
~.desktop~ file is relatively straightforward.
#+begin_src conf-desktop :tangle ~/.local/share/applications/FlowScape.desktop
[Desktop Entry]
Version=1.5
Name=FlowScape
Comment=Create gorgeous 3D landscapes with ease.
Exec=/usr/bin/prime-run /home/phundrak/.local/opt/FlowScape/FlowScape.x86_64
Path=/home/phundrak/.local/opt/FlowScape
Icon=/home/phundrak/.local/opt/FlowScape/icon.jpg
Terminal=false
Type=Application
Categories=Graphics
#+end_src

** macOS
:PROPERTIES:
:CUSTOM_ID: -desktop-files-for-custom-applications-macOS-yb1dmyg0m9j0
:END:
You did not read wrong! Yes I have an entry for macOS, but this is for
a virtual machine located in ~~/VMs/macOS~.
#+begin_src conf-desktop :tangle ~/.local/share/applications/macos.desktop
[Desktop Entry]
Version=1
Name=macOS
Comment=macOS in a virtual machine
Exec=/usr/bin/prime-run /home/phundrak/VMs/macOS/basic.sh
Path=/home/phundrak/VMs/macOS
Icon=/home/phundrak/VMs/macOS/macOS.png
Terminal=false
Type=Application
Categories=Development
#+end_src

** Minecraft
:PROPERTIES:
:CUSTOM_ID: -desktop-files-for-custom-applications-Minecraft-tds7ddh0m9j0
:END:
Yup, I play Minecraft. And yes, it does have a default ~.desktop~ file,
but this one overrides it so it launches automatically Minecraft with
[[https://wiki.archlinux.org/title/PRIME][prime-run]] so my GPU is used.
#+begin_src conf-desktop :tangle ~/.local/share/applications/minecraft-launcher.desktop
[Desktop Entry]
Type=Application
Version=1.0
Name=Minecraft Launcher (Nvidia)
Comment=Official Minecraft Launcher
Exec=/usr/bin/prime-run /usr/bin/minecraft-launcher
Path=/usr/bin/
Icon=minecraft-launcher
Terminal=false
Categories=Game;Application;
#+end_src

** OtherWorldMapper
:PROPERTIES:
:CUSTOM_ID: -desktop-files-for-custom-applications-OtherWorldMapper-rnh4omg0m9j0
:END:
OtherWorldMapper is a map creation software. It is always installed in
~~/.local/opt/OtherWorldMapper~.
#+begin_src conf-desktop :tangle ~/.local/share/applications/OWM.desktop
[Desktop Entry]
Version=1.0.4
Name=OtherWorldMapper
Comment=OtherWorldMapper is a powerful yet intuitive fantasy map creation tool.
Exec=/usr/bin/prime-run /home/phundrak/.local/opt/OtherWorldMapper/OWM
Path=/home/phundrak/.local/opt/OtherWorldMapper
Icon=/home/phundrak/.local/opt/OtherWorldMapper/owm.ico
Terminal=false
Type=Application
Categories=Graphics
#+end_src

** Wonderdraft
:PROPERTIES:
:CUSTOM_ID: -desktop-files-for-custom-applications-Wonderdraft-0qaa6qg0m9j0
:END:
Wonderdraft is another map creation software. I install it in
~~/.local/opt/Wonderdraft~.
#+begin_src conf-desktop
[Desktop Entry]
Version=1.1.3.2
Name=Wonderdraft
Comment=Wonderdraft is a powerful yet intuitive fantasy map creation tool.
Exec=/usr/bin/prime-run /home/phundrak/.local/opt/Wonderdraft/Wonderdraft.x86_64
Path=/home/phundrak/.local/opt/Wonderdraft
Icon=/home/phundrak/.local/opt/Wonderdraft/Wonderdraft.png
Terminal=false
Type=Application
Categories=Graphics
#+end_src

** YouTube ~.desktop~ files
:PROPERTIES:
:CUSTOM_ID: -desktop-files-for-custom-applications-YouTube-desktop-files-0pw918h0m9j0
:END:
The first ~.desktop~ file related to YouTube is ~ytdl.desktop~ which runs
~ytdl~ defined in [[file:bin.org::#ytdl-a-youtube-dl-wrapper-03bd63e0][this document]].
#+begin_src conf-desktop :tangle ~/.local/share/applications/ytdl.desktop
[Desktop Entry]
Version=0.3
Name=YTDL
Comment=YouTube (and more) video downloader
Exec=/home/phundrak/.local/bin/rofi-ytdl
Path=/home/phundrak/.local/bin
Terminal=false
Type=Application
Categories=Network;Video
#+end_src

There is also ~ytplay.desktop~ for ~ytplay~ defined in [[file:bin.org::#Media-youtube-dl-wrappers-ytplay-z6ka39h0m9j0][this document]].
#+begin_src conf-desktop
[Desktop Entry]
Type=Application
Version=1.0
Name=ytplay (YouTube in mpv)
Comment=Play YouTube videos in mpv
Exec=/home/phundrak/.local/bin/ytplay
Path=/home/phundrak/.local/bin
Terminal=false
Categories=Media
#+end_src