796 lines
33 KiB
Org Mode
796 lines
33 KiB
Org Mode
|
#+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
|