config.org

   1 #+TITLE: System Configuration
   2 #+DESCRIPTION: Personal system configuration in org-mode format.
   3 #+AUTHOR: Armaan Bhojwani
   4 #+EMAIL: me@armaanb.net
   5
   6 * Welcome
   7 Welcome to my system configuration! This file contains my Emacs configuration, but also my config files for many of the other programs on my system!
   8 ** Compatability
   9 I am currently using Emacs 28 with native compilation, so some settings and packages may not be available for older versions of Emacs. This is a purely personal configuration, so while I can guarantee that it works on my setup, it might not work for you.
  10 ** Choices
  11 I chose to create a powerful, yet not overly heavy Emacs configuration. Things like a fancy modeline, icons, or LSP mode do not increase my productivity, and create visual clutter, and thus have been excluded.
  12
  13 Another important choice has been to integrate Emacs into a large part of my computing environment (see [[*Emacs OS]]). I use email, IRC, RSS, et cetera, all through Emacs which simplifies my workflow and creates an amazingly integrated environment.
  14
  15 Lastly, I use Evil mode. Modal keybindings are simpler and more ergonomic than standard Emacs style, and Vim keybindings are what I'm comfortable with and are pervasive throughout computing.
  16 ** License
  17 Released under the [[https://opensource.org/licenses/MIT][MIT license]] by Armaan Bhojwani, 2021. Note that many snippets are taken from online, and other sources, who are credited for their work near their contributions.
  18 * Package management
  19 ** Bootstrap straight.el
  20 straight.el is really nice for managing package, and it integrates nicely with use-package. It uses the bootstrapping system defined here for installation.
  21 #+begin_src emacs-lisp
  22   (defvar native-comp-deferred-compilation-deny-list ())
  23   (defvar bootstrap-version)
  24   (let ((bootstrap-file
  25          (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
  26         (bootstrap-version 5))
  27     (unless (file-exists-p bootstrap-file)
  28       (with-current-buffer
  29           (url-retrieve-synchronously
  30            "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
  31            'silent 'inhibit-cookies)
  32         (goto-char (point-max))
  33         (eval-print-last-sexp)))
  34     (load bootstrap-file nil 'nomessage))
  35 #+end_src
  36 ** Replace package.el with straight
  37 #+begin_src emacs-lisp
  38   (straight-use-package 'use-package)
  39   (setq straight-use-package-by-default t)
  40 #+end_src
  41 * Visual options
  42 ** Theme
  43 Use the Modus Operandi theme by Protesilaos Stavrou. Its the best theme for Emacs by far, because how clear and readable it is. It is highly customizable, but I just set a few options here.
  44 #+begin_src emacs-lisp
  45   (use-package modus-themes
  46     :custom
  47     (modus-themes-slanted-constructs t)
  48     (modus-themes-bold-constructs t)
  49     (modus-themes-mode-line '3d)
  50     (modus-themes-scale-headings t)
  51     (modus-themes-diffs 'desaturated)
  52     :config (load-theme 'modus-vivendi t))
  53 #+end_src
  54 ** Typography
  55 *** Font
  56 JetBrains Mono is a great programming font with ligatures. The "NF" means that it has been patched with the [[https://www.nerdfonts.com/][Nerd Fonts]].
  57 #+begin_src emacs-lisp
  58   (add-to-list 'default-frame-alist '(font . "JetBrainsMonoNF-12"))
  59 #+end_src
  60 *** Ligatures
  61 #+begin_src emacs-lisp
  62   (use-package ligature
  63     :straight (ligature :type git :host github :repo "mickeynp/ligature.el")
  64     :config
  65     (ligature-set-ligatures
  66      '(prog-mode text-mode)
  67      '("-|" "-~" "---" "-<<" "-<" "--" "->" "->>" "-->" "/=" "/=="
  68        "/>" "//" "/*" "*>" "*/" "<-" "<<-" "<=>" "<=" "<|" "<||"
  69        "<|||" "<|>" "<:" "<>" "<-<" "<<<" "<==" "<<=" "<=<" "<==>"
  70        "<-|" "<<" "<~>" "<=|" "<~~" "<~" "<$>" "<$" "<+>" "<+" "</>"
  71        "</" "<*" "<*>" "<->" "<!--" ":>" ":<" ":::" "::" ":?" ":?>"
  72        ":=" "::=" "=>>" "==>" "=/=" "=!=" "=>" "===" "=:=" "==" "!=="
  73        "!!" "!=" ">]" ">:" ">>-" ">>=" ">=>" ">>>" ">-" ">=" "&&&"
  74        "&&" "|||>" "||>" "|>" "|]" "|}" "|=>" "|->" "|=" "||-" "|-"
  75        "||=" "||" ".." ".?" ".=" ".-" "..<" "..." "+++" "+>" "++"
  76        "[||]" "[<" "[|" "{|" "?." "?=" "?:" "##" "###" "####" "#["
  77        "#{" "#=" "#!" "#:" "#_(" "#_" "#?" "#(" ";;" "_|_" "__" "~~"
  78        "~~>" "~>" "~-" "~@" "$>" "^=" "]#"))
  79     (global-ligature-mode t))
  80 #+end_src
  81 ** Line numbers
  82 Display relative line numbers except in certain modes.
  83 #+begin_src emacs-lisp
  84   (global-display-line-numbers-mode)
  85   (setq display-line-numbers-type 'relative)
  86   (dolist (no-line-num '(term-mode-hook
  87                          pdf-view-mode-hook
  88                          shell-mode-hook
  89                          org-mode-hook
  90                          circe-mode-hook
  91                          eshell-mode-hook))
  92     (add-hook no-line-num (lambda () (display-line-numbers-mode 0))))
  93 #+end_src
  94 ** Highlight matching parenthesis
  95 #+begin_src emacs-lisp
  96   (use-package paren
  97     :config (show-paren-mode)
  98     :custom (show-paren-style 'parenthesis))
  99 #+end_src
 100 ** Modeline
 101 *** Show current function
 102 #+begin_src emacs-lisp
 103   (which-function-mode)
 104 #+end_src
 105 *** Make position in file more descriptive
 106 Show current column and file size.
 107 #+begin_src emacs-lisp
 108   (column-number-mode)
 109   (size-indication-mode)
 110 #+end_src
 111 *** Hide minor modes
 112 #+begin_src emacs-lisp
 113   (use-package minions
 114     :config (minions-mode))
 115 #+end_src
 116 ** Whitespace mode
 117 Highlight whitespace and other bad text practices.
 118 #+begin_src emacs-lisp
 119   (use-package whitespace
 120     :custom (whitespace-style '(face lines-tail)))
 121   (dolist (hook '(prog-mode-hook))
 122     (add-hook hook (lambda () (whitespace-mode 1))))
 123 #+end_src
 124 ** Highlight todo items in comments
 125 +begin_src emacs-lisp
 126   (use-package hl-todo
 127     :straight (hl-todo :type git :host github :repo "tarsius/hl-todo")
 128     :config (global-hl-todo-mode 1))
 129 #+end_src
 130 ** Blink cursor
 131 #+begin_src emacs-lisp
 132   (blink-cursor-mode)
 133 #+end_src
 134 ** Visual line mode
 135 Soft wrap words and do operations by visual lines in some modes.
 136 #+begin_src emacs-lisp
 137   (dolist (hook '(text-mode-hook
 138                   org-mode-hook
 139                   markdown-mode-hook
 140                   mu4e-view-mode-hook))
 141     (add-hook hook (lambda () (visual-line-mode 1))))
 142 #+end_src
 143 ** Auto fill mode
 144 #+begin_src emacs-lisp
 145   (dolist (hook '(scdoc-mode-hook
 146                   mu4e-compose-mode-hook))
 147     (add-hook hook (lambda () (auto-fill-mode 1))))
 148 #+end_src
 149 ** Display number of matches in search
 150 #+begin_src emacs-lisp
 151   (use-package anzu
 152     :config (global-anzu-mode)
 153     :bind
 154     ([remap query-replace] . anzu-query-replace)
 155     ([remap query-replace-regexp] . anzu-query-replace-regexp))
 156 #+end_src
 157 *** TODO This config doesn't work right
 158 ** Visual bell
 159 Invert modeline color instead of audible bell or the standard visual bell.
 160 #+begin_src emacs-lisp
 161   (setq visible-bell nil
 162         ring-bell-function
 163         (lambda () (invert-face 'mode-line)
 164           (run-with-timer 0.1 nil #'invert-face 'mode-line)))
 165 #+end_src
 166 * Evil mode
 167 ** General
 168 #+begin_src emacs-lisp
 169   (use-package evil
 170     :custom (select-enable-clipboard nil)
 171     :config
 172     (evil-mode)
 173     (fset 'evil-visual-update-x-selection 'ignore) ;; Keep clipboard and register seperate
 174     ;; Use visual line motions even outside of visual-line-mode buffers
 175     (evil-global-set-key 'motion "j" 'evil-next-visual-line)
 176     (evil-global-set-key 'motion "k" 'evil-previous-visual-line)
 177     (global-set-key (kbd "<escape>") 'keyboard-escape-quit))
 178 #+end_src
 179 ** Evil collection
 180 Evil bindings for tons of packages.
 181 #+begin_src emacs-lisp
 182   (use-package evil-collection
 183     :after evil
 184     :init (evil-collection-init)
 185     :custom (evil-collection-setup-minibuffer t))
 186 #+end_src
 187 ** Surround
 188 tpope prevails!
 189 #+begin_src emacs-lisp
 190   (use-package evil-surround
 191     :config (global-evil-surround-mode))
 192 #+end_src
 193 ** Nerd commenter
 194 Makes commenting super easy
 195 #+begin_src emacs-lisp
 196   (use-package evil-nerd-commenter
 197     :bind (:map evil-normal-state-map
 198                 ("gc" . evilnc-comment-or-uncomment-lines))
 199     :custom (evilnc-invert-comment-line-by-line nil))
 200 #+end_src
 201 ** Undo redo
 202 Fix the oopsies!
 203 #+begin_src emacs-lisp
 204   (evil-set-undo-system 'undo-redo)
 205 #+end_src
 206 ** Number incrementing
 207 Add back C-a/C-x bindings.
 208 #+begin_src emacs-lisp
 209   (use-package evil-numbers
 210     :straight (evil-numbers :type git :host github :repo "juliapath/evil-numbers")
 211     :bind (:map evil-normal-state-map
 212                 ("C-M-a" . evil-numbers/inc-at-pt)
 213                 ("C-M-x" . evil-numbers/dec-at-pt)))
 214 #+end_src
 215 ** Evil org
 216 #+begin_src emacs-lisp
 217   (use-package evil-org
 218     :after org
 219     :hook (org-mode . evil-org-mode)
 220     :config
 221     (evil-org-set-key-theme '(textobjects insert navigation shift todo)))
 222
 223   (use-package evil-org-agenda
 224     :straight (:type built-in)
 225     :after evil-org
 226     :config (evil-org-agenda-set-keys))
 227 #+end_src
 228 * Org mode
 229 ** General
 230 #+begin_src emacs-lisp
 231   (use-package org
 232     :straight (:type built-in)
 233     :commands (org-capture org-agenda)
 234     :custom
 235     (org-ellipsis " ▾")
 236     (org-agenda-start-with-log-mode t)
 237     (org-agenda-files (quote ("~/Org/tasks.org" "~/Org/break.org")))
 238     (org-log-done 'time)
 239     (org-log-into-drawer t)
 240     (org-src-tab-acts-natively t)
 241     (org-src-fontify-natively t)
 242     (org-startup-indented t)
 243     (org-hide-emphasis-markers t)
 244     (org-fontify-whole-block-delimiter-line nil)
 245     (org-archive-default-command 'org-archive-to-archive-sibling)
 246     :bind
 247     ("C-c a" . org-agenda)
 248     (:map evil-normal-state-map ("ga" . org-archive-subtree-default)))
 249 #+end_src
 250 ** Tempo
 251 Define templates for lots of common structure elements. Mostly just used within this file.
 252 #+begin_src emacs-lisp
 253   (use-package org-tempo
 254     :after org
 255     :straight (:type built-in)
 256     :config
 257     (dolist (addition '(("el" . "src emacs-lisp")
 258                         ("el" . "src emacs-lisp")
 259                         ("sp" . "src conf :tangle ~/.spectrwm.conf")
 260                         ("ash" . "src shell :tangle ~/.config/ash/ashrc")
 261                         ("pi" . "src conf :tangle ~/.config/picom/picom.conf")
 262                         ("git" . "src conf :tangle ~/.gitconfig")
 263                         ("za" . "src conf :tangle ~/.config/zathura/zathurarc")
 264                         ("xr" . "src conf :tangle ~/.Xresources")
 265                         ("tm" . "src conf :tangle ~/.tmux.conf")
 266                         ("gp" . "src conf :tangle ~/.gnupg/gpg.conf")
 267                         ("ag" . "src conf :tangle ~/.gnupg/gpg-agent.conf")
 268                         ("xm" . "src conf :tangle ~/.config/xmodmap")))
 269       (add-to-list 'org-structure-template-alist addition)))
 270 #+end_src
 271 * Autocompletion
 272 ** Ivy
 273 A well balanced completion framework.
 274 #+begin_src emacs-lisp
 275   (use-package ivy
 276     :bind (:map ivy-minibuffer-map
 277            ("TAB" . ivy-alt-done))
 278            (:map ivy-switch-buffer-map
 279            ("M-d" . ivy-switch-buffer-kill))
 280     :config (ivy-mode))
 281 #+end_src
 282 ** Ivy-rich
 283 #+begin_src emacs-lisp
 284   (use-package ivy-rich
 285     :after (ivy counsel)
 286     :config (ivy-rich-mode))
 287 #+end_src
 288 ** Counsel
 289 Ivy everywhere.
 290 #+begin_src emacs-lisp
 291   (use-package counsel
 292     :bind ("C-M-j" . 'counsel-switch-buffer)
 293     :config (counsel-mode))
 294 #+end_src
 295 ** Remember frequent commands
 296 #+begin_src emacs-lisp
 297   (use-package ivy-prescient
 298     :after counsel
 299     :config
 300     (prescient-persist-mode)
 301     (ivy-prescient-mode))
 302 #+end_src
 303 * Emacs OS
 304 ** RSS
 305 Use elfeed for reading RSS. I have another file with all the feeds in it that I'd rather keep private.
 306 #+begin_src emacs-lisp
 307   (use-package elfeed
 308     :bind (("C-c e" . elfeed))
 309     :config (load "~/.emacs.d/feeds.el")
 310     :bind (:map elfeed-search-mode-map ("C-c C-o" . 'elfeed-show-visit)))
 311 #+end_src
 312 ** Email
 313 Use mu4e for reading emails.
 314 Contexts are a not very well known feature of mu4e that makes it super easy to manage multiple accounts. Much better than some of the hacky methods and external packages that I've seen.
 315 *** TODO Switch to mbsync
 316 =offlineimap= really crappy (slow and requires python2), and I need to replace it with =mbsync=.
 317 *** TODO Include mbsync/offlineimap config
 318 *** TODO Split up and document this config a bit
 319 *** Setup
 320 #+begin_src emacs-lisp
 321   (use-package smtpmail
 322     :straight (:type built-in))
 323   (use-package mu4e
 324     :load-path "/usr/share/emacs/site-lisp/mu4e"
 325     :straight (:build nil)
 326     :bind (("C-c m" . mu4e))
 327     :config
 328     (setq user-full-name "Armaan Bhojwani"
 329           smtpmail-local-domain "armaanb.net"
 330           smtpmail-stream-type 'ssl
 331           smtpmail-smtp-service '465
 332           mu4e-change-filenames-when-moving t
 333           mu4e-get-mail-command "offlineimap -q"
 334           message-citation-line-format "On %a %d %b %Y at %R, %f wrote:\n"
 335           message-citation-line-function 'message-insert-formatted-citation-line
 336           mu4e-completing-read-function 'ivy-completing-read
 337           mu4e-confirm-quit nil
 338           mu4e-view-use-gnus t
 339           mail-user-agent 'mu4e-user-agent
 340           mu4e-context-policy 'pick-first
 341           mu4e-contexts
 342           `( ,(make-mu4e-context
 343                :name "school"
 344                :enter-func (lambda () (mu4e-message "Entering school context"))
 345                :leave-func (lambda () (mu4e-message "Leaving school context"))
 346                :match-func (lambda (msg)
 347                              (when msg
 348                                (string-match-p "^/school" (mu4e-message-field msg :maildir))))
 349                :vars '((user-mail-address . "abhojwani22@nobles.edu")
 350                        (mu4e-sent-folder . "/school/Sent")
 351                        (mu4e-drafts-folder . "/school/Drafts")
 352                        (mu4e-trash-folder . "/school/Trash")
 353                        (mu4e-refile-folder . "/school/Archive")
 354                        (message-cite-reply-position . above)
 355                        (user-mail-address . "abhojwani22@nobles.edu")
 356                        (smtpmail-smtp-user . "abhojwani22@nobles.edu")
 357                        (smtpmail-smtp-server . "smtp.gmail.com")))
 358              ,(make-mu4e-context
 359                :name "personal"
 360                :enter-func (lambda () (mu4e-message "Entering personal context"))
 361                :leave-func (lambda () (mu4e-message "Leaving personal context"))
 362                :match-func (lambda (msg)
 363                              (when msg
 364                                (string-match-p "^/personal" (mu4e-message-field msg :maildir))))
 365                :vars '((mu4e-sent-folder . "/personal/Sent")
 366                        (mu4e-drafts-folder . "/personal/Drafts")
 367                        (mu4e-trash-folder . "/personal/Trash")
 368                        (mu4e-refile-folder . "/personal/Archive")
 369                        (user-mail-address . "me@armaanb.net")
 370                        (message-cite-reply-position . below)
 371                        (smtpmail-smtp-user . "me@armaanb.net")
 372                        (smtpmail-smtp-server . "smtp.mailbox.org")))))
 373     (add-to-list 'mu4e-bookmarks
 374                  '(:name "Unified inbox"
 375                          :query "maildir:\"/personal/INBOX\" or maildir:\"/school/INBOX\""
 376                          :key ?b))
 377     :hook ((mu4e-compose-mode . flyspell-mode)
 378            (message-send-hook . (lambda () (unless (yes-or-no-p "Ya sure 'bout that?")
 379                                              (signal 'quit nil))))))
 380 #+end_src
 381 *** Discourage Gnus from displaying HTML emails
 382 #+begin_src emacs-lisp
 383   (with-eval-after-load "mm-decode"
 384     (add-to-list 'mm-discouraged-alternatives "text/html")
 385     (add-to-list 'mm-discouraged-alternatives "text/richtext"))
 386 #+end_src
 387 ** Default browser
 388 Set EWW as default browser except for multimedia which should open in MPV.
 389 #+begin_src emacs-lisp
 390   (defun browse-url-mpv (url &optional new-window)
 391     "Ask MPV to load URL."
 392     (interactive)
 393     (start-process "mpv" "*mpv*" "mpv" url))
 394
 395   (setq browse-url-handlers
 396         (quote
 397          (("youtu\\.?be" . browse-url-mpv)
 398           ("peertube.*" . browse-url-mpv)
 399           ("vid.*" . browse-url-mpv)
 400           ("vid.*" . browse-url-mpv)
 401           ("*.mp4" . browse-url-mpv)
 402           ("*.mp3" . browse-url-mpv)
 403           ("*.ogg" . browse-url-mpv)
 404           ("." . eww-browse-url)
 405           )))
 406 #+end_src
 407 ** EWW
 408 Some EWW enhancements.
 409 *** Give buffer a useful name
 410 #+begin_src emacs-lisp
 411   ;; From https://protesilaos.com/dotemacs/
 412   (defun prot-eww--rename-buffer ()
 413     "Rename EWW buffer using page title or URL.
 414         To be used by `eww-after-render-hook'."
 415     (let ((name (if (eq "" (plist-get eww-data :title))
 416                     (plist-get eww-data :url)
 417                   (plist-get eww-data :title))))
 418       (rename-buffer (format "*%s # eww*" name) t)))
 419
 420   (use-package eww
 421     :straight (:type built-in)
 422     :bind (("C-c w" . eww))
 423     :hook (eww-after-render-hook prot-eww--rename-buffer))
 424 #+end_src
 425 *** Keybinding
 426 #+begin_src emacs-lisp
 427   (global-set-key (kbd "C-c w") 'eww)
 428 #+end_src
 429 ** IRC
 430 Circe is a really nice IRC client that claims to be above RCIRC and below ERC in terms of features. ERC felt a bit messy and finicky to me, and Circe has all the features that I need. This setup gets the password for my bouncer (Pounce) instances via my =~/.authinfo.gpg= file.
 431 #+begin_src emacs-lisp
 432   (defun fetch-password (&rest params)
 433     (require 'auth-source)
 434     (let ((match (car (apply 'auth-source-search params))))
 435       (if match
 436           (let ((secret (plist-get match :secret)))
 437             (if (functionp secret)
 438                 (funcall secret)
 439               secret))
 440         (error "Password not found for %S" params))))
 441
 442   (use-package circe
 443     :config
 444     (enable-lui-track)
 445     (enable-circe-color-nicks)
 446     (setq circe-network-defaults '(("libera"
 447                                     :host "irc.armaanb.net"
 448                                     :nick "emacs"
 449                                     :user "emacs"
 450                                     :use-tls t
 451                                     :port 6698
 452                                     :pass (lambda (null) (fetch-password
 453                                                           :login "emacs"
 454                                                           :machine "irc.armaanb.net"
 455                                                           :port 6698)))
 456                                    ("oftc"
 457                                     :host "irc.armaanb.net"
 458                                     :nick "emacs"
 459                                     :user "emacs"
 460                                     :use-tls t
 461                                     :port 6699
 462                                     :pass (lambda (null) (fetch-password
 463                                                           :login "emacs"
 464                                                           :machine "irc.armaanb.net"
 465                                                           :port 6699)))
 466                                    ("tilde"
 467                                     :host "irc.armaanb.net"
 468                                     :nick "emacs"
 469                                     :user "emacs"
 470                                     :use-tls t
 471                                     :port 6696
 472                                     :pass (lambda (null) (fetch-password
 473                                                           :login "emacs"
 474                                                           :machine "irc.armaanb.net"
 475                                                           :port 6696)))))
 476     :custom (circe-default-part-message "goodbye!")
 477     :bind (:map circe-mode-map ("C-c C-r" . circe-reconnect-all)))
 478
 479   (defun acheam-irc ()
 480     "Open circe"
 481     (interactive)
 482     (if (get-buffer "irc.armaanb.net:6696")
 483         (switch-to-buffer "irc.armaanb.net:6696")
 484       (progn (switch-to-buffer "*scratch*")
 485              (circe "libera")
 486              (circe "oftc")
 487              (circe "tilde"))))
 488
 489   (global-set-key (kbd "C-c i") 'acheam-irc)
 490 #+end_src
 491 ** Calendar
 492 Still experimenting with this setup. Not sure if I will keep it, but it works well for seeing my calendar events. I use =vdirsyncer= to sync my calendar events which I'm really not happy with.
 493 #+begin_src emacs-lisp
 494   (defun sync-calendar ()
 495     "Sync calendars with vdirsyncer"
 496     (interactive)
 497     (async-shell-command "vdirsyncer sync"))
 498
 499   (use-package calfw
 500     :bind (:map cfw:calendar-mode-map ("C-S-u" . sync-calendar)))
 501   (use-package calfw-ical)
 502   (use-package calfw-org)
 503
 504   (defun acheam-calendar ()
 505     "Open calendars"
 506     (interactive)
 507     (cfw:open-calendar-buffer
 508      :contents-sources (list
 509                         (cfw:org-create-source "Green")
 510                         (cfw:ical-create-source
 511                          "Personal"
 512                          "~/.local/share/vdirsyncer/mailbox/Y2FsOi8vMC8zMQ.ics"
 513                          "Gray")
 514                         (cfw:ical-create-source
 515                          "Personal"
 516                          "~/.local/share/vdirsyncer/mailbox/Y2FsOi8vMC8zMQ.ics"
 517                          "Red")
 518                         (cfw:ical-create-source
 519                          "School"
 520                          "~/.local/share/vdirsyncer/school/abhojwani22@nobles.edu.ics"
 521                          "Cyan"))
 522      :view 'week))
 523
 524   (global-set-key (kbd "C-c c") 'acheam-calendar)
 525 #+end_src
 526 ** PDF reader
 527 #+begin_src emacs-lisp
 528   (use-package pdf-tools
 529     :hook (pdf-view-mode . pdf-view-midnight-minor-mode))
 530 #+end_src
 531 * Emacs IDE
 532 ** Python formatting
 533 #+begin_src emacs-lisp
 534   (use-package blacken
 535     :hook (python-mode . blacken-mode)
 536     :custom (blacken-line-length 79))
 537
 538 #+end_src
 539 ** Strip trailing whitespace
 540 #+begin_src emacs-lisp
 541   (use-package ws-butler
 542     :config (ws-butler-global-mode))
 543 #+end_src
 544 ** Flycheck
 545 Automatic linting. I need to look into configuring this more.
 546 #+begin_src emacs-lisp
 547   (use-package flycheck
 548     :config (global-flycheck-mode))
 549 #+end_src
 550 ** Project management
 551 I never use this, but apparently its very powerful. Another item on my todo list.
 552 #+begin_src emacs-lisp
 553   (use-package projectile
 554     :config (projectile-mode)
 555     :custom ((projectile-completion-system 'ivy))
 556     :bind-keymap
 557     ("C-c p" . projectile-command-map)
 558     :init
 559     (when (file-directory-p "~/Code")
 560       (setq projectile-project-search-path '("~/Code")))
 561     (setq projectile-switch-project-action #'projectile-dired))
 562
 563   (use-package counsel-projectile
 564     :after projectile
 565     :config (counsel-projectile-mode))
 566 #+end_src
 567 ** Dired
 568 The best file manager!
 569 #+begin_src emacs-lisp
 570   (use-package dired
 571     :straight (:type built-in)
 572     :commands (dired dired-jump)
 573     :custom ((dired-listing-switches "-agho --group-directories-first"))
 574     :config (evil-collection-define-key 'normal 'dired-mode-map
 575               "h" 'dired-single-up-directory
 576               "l" 'dired-single-buffer))
 577
 578   (use-package dired-single
 579     :commands (dired dired-jump))
 580
 581   (use-package dired-open
 582     :commands (dired dired-jump)
 583     :custom (dired-open-extensions '(("png" . "feh")
 584                                      ("mkv" . "mpv"))))
 585
 586   (use-package dired-hide-dotfiles
 587     :hook (dired-mode . dired-hide-dotfiles-mode)
 588     :config
 589     (evil-collection-define-key 'normal 'dired-mode-map
 590       "H" 'dired-hide-dotfiles-mode))
 591 #+end_src
 592 ** Git
 593 *** Magit
 594 A very good Git interface.
 595 #+begin_src emacs-lisp
 596   (use-package magit)
 597 #+end_src
 598 *** Email
 599 #+begin_src emacs-lisp
 600   (use-package piem)
 601   (use-package git-email
 602     :straight (git-email :repo "https://git.sr.ht/~yoctocell/git-email")
 603     :config (git-email-piem-mode))
 604 #+end_src
 605 * General text editing
 606 ** Indentation
 607 Automatically indent after every change. I'm not sure how much I like this. It slows down the editor and code sometimes ends up in a half-indented state meaning I have to manually reformat using "==" anyways.
 608 #+begin_src emacs-lisp
 609   (use-package aggressive-indent
 610     :config (global-aggressive-indent-mode))
 611 #+end_src
 612 ** Spell checking
 613 Spell check in text mode, and in prog-mode comments.
 614 #+begin_src emacs-lisp
 615   (dolist (hook '(text-mode-hook
 616                   markdown-mode-hook
 617                   scdoc-mode-hook))
 618     (add-hook hook (lambda () (flyspell-mode))))
 619   (dolist (hook '(change-log-mode-hook log-edit-mode-hook))
 620     (add-hook hook (lambda () (flyspell-mode -1))))
 621   (add-hook 'prog-mode (lambda () (flyspell-prog mode)))
 622   (setq ispell-silently-savep t)
 623 #+end_src
 624 ** Sane tab width
 625 #+begin_src emacs-lisp
 626   (setq-default tab-width 2)
 627 #+end_src
 628 ** Save place
 629 Opens file where you left it.
 630 #+begin_src emacs-lisp
 631   (save-place-mode)
 632 #+end_src
 633 ** Writing mode
 634 Distraction free writing a la junegunn/goyo.
 635 #+begin_src emacs-lisp
 636   (use-package olivetti
 637     :bind ("C-c o" . olivetti-mode))
 638 #+end_src
 639 ** Abbreviations
 640 Abbreviate things! I just use this for things like my email address and copyright notice.
 641 #+begin_src emacs-lisp
 642   (setq abbrev-file-name "~/.emacs.d/abbrevs.el")
 643   (setq save-abbrevs 'silent)
 644   (setq-default abbrev-mode t)
 645 #+end_src
 646 ** TRAMP
 647 #+begin_src emacs-lisp
 648   (setq tramp-default-method "ssh")
 649 #+end_src
 650 ** Follow version controlled symlinks
 651 #+begin_src emacs-lisp
 652   (setq vc-follow-symlinks t)
 653 #+end_src
 654 ** Open file as root
 655 #+begin_src emacs-lisp
 656   (defun doas-edit (&optional arg)
 657     "Edit currently visited file as root.
 658
 659     With a prefix ARG prompt for a file to visit.
 660     Will also prompt for a file to visit if current
 661     buffer is not visiting a file.
 662
 663     Modified from Emacs Redux."
 664     (interactive "P")
 665     (if (or arg (not buffer-file-name))
 666         (find-file (concat "/doas:root@localhost:"
 667                            (ido-read-file-name "Find file(as root): ")))
 668       (find-alternate-file (concat "/doas:root@localhost:" buffer-file-name))))
 669
 670     (global-set-key (kbd "C-x C-r") #'doas-edit)
 671 #+end_src
 672 ** Markdown mode
 673 #+begin_src emacs-lisp
 674   (use-package markdown-mode)
 675 #+end_src
 676 ** scdoc mode
 677 Get it for yourself at https://git.armaanb.net/scdoc
 678 #+begin_src emacs-lisp
 679   (add-to-list 'load-path "~/Code/scdoc-mode")
 680   (autoload 'scdoc-mode "scdoc-mode" "Major mode for editing scdoc files" t)
 681   (add-to-list 'auto-mode-alist '("\\.scd\\'" . scdoc-mode))
 682 #+end_src
 683 * Keybindings
 684 ** Switch windows
 685 #+begin_src emacs-lisp
 686   (use-package ace-window
 687     :bind ("M-o" . ace-window))
 688 #+end_src
 689 ** Kill current buffer
 690 Makes "C-x k" binding faster.
 691 #+begin_src emacs-lisp
 692   (substitute-key-definition 'kill-buffer 'kill-buffer-and-window global-map)
 693 #+end_src
 694 * Other settings
 695 ** OpenSCAD syntax
 696 #+begin_src emacs-lisp
 697   (use-package scad-mode)
 698 #+end_src
 699 ** Control backup and lock files
 700 Stop backup files from spewing everywhere.
 701 #+begin_src emacs-lisp
 702   (setq backup-directory-alist `(("." . "~/.emacs.d/backups"))
 703         create-lockfiles nil)
 704 #+end_src
 705 ** Make yes/no easier
 706 #+begin_src emacs-lisp
 707   (defalias 'yes-or-no-p 'y-or-n-p)
 708 #+end_src
 709 ** Move customize file
 710 No more clogging up init.el.
 711 #+begin_src emacs-lisp
 712   (setq custom-file "~/.emacs.d/custom.el")
 713   (load custom-file)
 714 #+end_src
 715 ** Better help
 716 #+begin_src emacs-lisp
 717   (use-package helpful
 718     :commands (helpful-callable helpful-variable helpful-command helpful-key)
 719     :custom
 720     (counsel-describe-function-function #'helpful-callable)
 721     (counsel-describe-variable-function #'helpful-variable)
 722     :bind
 723     ([remap describe-function] . counsel-describe-function)
 724     ([remap describe-command] . helpful-command)
 725     ([remap describe-variable] . counsel-describe-variable)
 726     ([remap describe-key] . helpful-key))
 727 #+end_src
 728 ** GPG
 729 #+begin_src emacs-lisp
 730   (use-package epa-file
 731     :straight (:type built-in)
 732     :custom
 733     (epa-file-select-keys nil)
 734     (epa-file-encrypt-to '("me@armaanb.net"))
 735     (password-cache-expiry (* 60 15)))
 736
 737   (use-package pinentry
 738     :config (pinentry-start))
 739 #+end_src
 740 ** Pastebin
 741 #+begin_src emacs-lisp
 742   (use-package 0x0
 743     :straight (0x0 :type git :repo "https://git.sr.ht/~zge/nullpointer-emacs")
 744     :custom (0x0-default-service 'envs))
 745 #+end_src
 746 *** TODO Replace this with uploading to my own server
 747 Similar to the ufile alias in my ashrc
 748 ** Automatically clean buffers
 749 Automatically close unused buffers (except those of Circe) at midnight.
 750 #+begin_src emacs-lisp
 751   (midnight-mode)
 752   (add-to-list 'clean-buffer-list-kill-never-regexps (lambda (buffer-name)
 753                                                        (with-current-buffer buffer-name
 754                                                          (derived-mode-p 'lui-mode))))
 755 #+end_src
 756 * Tangles
 757 ** Spectrwm
 758 Spectrwm is a really awesome window manager! Would highly recommend.
 759 *** General settings
 760 #+begin_src conf :tangle ~/.spectrwm.conf
 761   workspace_limit = 5
 762   warp_pointer = 1
 763   modkey = Mod4
 764   autorun = ws[1]:/home/armaa/Code/scripts/autostart
 765 #+end_src
 766 *** Bar
 767 Disable the bar by default (it can still be brought back up with MOD+b). The font just needs to be set to something that you have installed, otherwise spectrwm won't launch.
 768 #+begin_src conf :tangle ~/.spectrwm.conf
 769   bar_enabled = 0
 770   bar_font = xos4 JetBrains Mono:pixelsize=14:antialias=true # any installed font
 771 #+end_src
 772 *** Keybindings
 773 I'm not a huge fan of how spectrwm handles keybindings, probably my biggest gripe with it.
 774 **** WM actions
 775 #+begin_src conf :tangle ~/.spectrwm.conf
 776   program[term] = st -e tmux
 777   program[screenshot_all] = flameshot gui
 778   program[notif] = /home/armaa/Code/scripts/setter status
 779   program[pass] = /home/armaa/Code/scripts/passmenu
 780
 781   bind[notif] = MOD+n
 782   bind[pass] = MOD+Shift+p
 783 #+end_src
 784 **** Media keys
 785 #+begin_src conf :tangle ~/.spectrwm.conf
 786   program[paup] = /home/armaa/Code/scripts/setter audio +5
 787   program[padown] = /home/armaa/Code/scripts/setter audio -5
 788   program[pamute] = /home/armaa/Code/scripts/setter audio
 789   program[brigup] = /home/armaa/Code/scripts/setter brightness +10%
 790   program[brigdown] = /home/armaa/Code/scripts/setter brightness 10%-
 791   program[next] = playerctl next
 792   program[prev] = playerctl previous
 793   program[pause] = playerctl play-pause
 794
 795   bind[padown] = XF86AudioLowerVolume
 796   bind[paup] = XF86AudioRaiseVolume
 797   bind[pamute] = XF86AudioMute
 798   bind[brigdown] = XF86MonBrightnessDown
 799   bind[brigup] = XF86MonBrightnessUp
 800   bind[pause] = XF86AudioPlay
 801   bind[next] = XF86AudioNext
 802   bind[prev] = XF86AudioPrev
 803 #+end_src
 804 **** HJKL
 805 #+begin_src conf :tangle ~/.spectrwm.conf
 806   program[h] = xdotool keyup h key --clearmodifiers Left
 807   program[j] = xdotool keyup j key --clearmodifiers Down
 808   program[k] = xdotool keyup k key --clearmodifiers Up
 809   program[l] = xdotool keyup l key --clearmodifiers Right
 810
 811   bind[h] = MOD + Control + h
 812   bind[j] = MOD + Control + j
 813   bind[k] = MOD + Control + k
 814   bind[l] = MOD + Control + l
 815 #+end_src
 816 **** Programs
 817 #+begin_src conf :tangle ~/.spectrwm.conf
 818   program[email] = emacsclient -ce '(progn (switch-to-buffer "*scratch*") (mu4e))'
 819   program[irc] = emacsclient -ce '(acheam-irc)'
 820   program[rss] = emacsclient -ce '(elfeed)'
 821   program[calendar] = emacsclient -ce '(acheam-calendar)'
 822   program[calc] = emacsclient -ce '(progn (calc) (windmove-up) (delete-window))'
 823   program[emacs] = emacsclient -c
 824
 825   bind[email] = MOD+Control+1
 826   bind[irc] = MOD+Control+2
 827   bind[rss] = MOD+Control+3
 828   bind[calendar] = MOD+Control+4
 829   bind[calc] = MOD+Control+5
 830   bind[emacs] = MOD+Control+Return
 831 #+end_src
 832 *** Quirks
 833 Float some specific programs by default.
 834 #+begin_src conf :tangle ~/.spectrwm.conf
 835   quirk[Castle Menu] = FLOAT
 836   quirk[momen] = FLOAT
 837 #+end_src
 838 ** Ash
 839 *** Options
 840 Use the vi editing mode. I still haven't found a good way to show visual feedback of the current mode. Ideally the cursor would change to a beam when in insert mode, and a box when in normal mode.
 841 #+begin_src conf :tangle ~/.config/ash/ashrc
 842   set -o vi
 843 #+end_src
 844 *** Functions
 845 **** Finger
 846 #+begin_src shell :tangle ~/.config/ash/ashrc
 847   finger() {
 848       user=$(echo "$1" | cut -f 1 -d '@')
 849       host=$(echo "$1" | cut -f 2 -d '@')
 850       echo $user | nc "$host" 79
 851   }
 852 #+end_src
 853 **** Upload to ftp.armaanb.net
 854 #+begin_src shell :tangle ~/.config/ash/ashrc
 855   _uprint() {
 856       echo "https://l.armaanb.net/$(basename "$1")" | tee /dev/tty | xclip -sel c
 857   }
 858
 859   _uup() {
 860       rsync "$1" "root@armaanb.net:/var/ftp/pub/$2" --chmod 644
 861   }
 862
 863   ufile() {
 864       _uup "$1" "$2"
 865       _uprint "$1"
 866   }
 867
 868   uclip() {
 869       tmp=$(mktemp)
 870       xclip -o -sel c >> "$tmp"
 871       basetmp=$(echo "$tmp" | tail -c +5)
 872       _uup "$tmp" "$basetmp"
 873       _uprint "$basetmp"
 874       rm -f "$tmp"
 875   }
 876 #+end_src
 877 *** Exports
 878 #+begin_src shell :tangle ~/.config/ash/ashrc
 879   export EDITOR="emacsclient -c"
 880   export VISUAL="$EDITOR"
 881   export TERM=xterm-256color # for compatability
 882
 883   export GPG_TTY="$(tty)"
 884   export MANPAGER='nvim +Man!'
 885   export PAGER='less'
 886
 887   export GTK_USE_PORTAL=1
 888
 889   export PATH="/home/armaa/.local/bin:$PATH" # prioritize .local/bin
 890   export PATH="/home/armaa/Code/scripts:$PATH" # prioritize my scripts
 891   export PATH="/home/armaa/Code/scripts/bin:$PATH" # prioritize my bins
 892   export PATH="$PATH:/home/armaa/.cargo/bin"
 893   export PATH="$PATH:/home/armaa/.local/share/gem/ruby/2.7.0/bin"
 894   export PATH="$PATH:/usr/sbin"
 895   export PATH="$PATH:/opt/FreeTube/freetube"
 896
 897   export LC_ALL="en_US.UTF-8"
 898   export LC_CTYPE="en_US.UTF-8"
 899   export LANGUAGE="en_US.UTF-8"
 900
 901   export CDPATH=:~
 902
 903   export KISS_PATH="/home/armaa/Virtual/kiss/home/armaa/kiss-repo"
 904   export KISS_PATH="$KISS_PATH:/home/armaa/Clone/repo-main/core"
 905   export KISS_PATH="$KISS_PATH:/home/armaa/Clone/repo-main/extra"
 906   export KISS_PATH="$KISS_PATH:/home/armaa/Clone/repo-main/xorg"
 907   export KISS_PATH="$KISS_PATH:/home/armaa/Clone/repo-main/testing"
 908   export KISS_PATH="$KISS_PATH:/home/armaa/Clone/repo-community/community"
 909   export PKG_CONFIG_PATH="$PKG_CONFIG_PATH:/usr/local/lib/pkgconfig"
 910 #+end_src
 911 *** Aliases
 912 **** SSH
 913 #+begin_src shell :tangle ~/.config/ash/ashrc
 914   alias bhoji-drop='ssh -p 23 root@armaanb.net'
 915   alias irc='ssh root@armaanb.net -t abduco -A irc catgirl freenode'
 916   alias union='ssh 192.168.1.18'
 917   alias mine='ssh -p 23 root@pickupserver.cc'
 918   alias tcf='ssh root@204.48.23.68'
 919   alias ngmun='ssh root@157.245.89.25'
 920   alias prox='ssh root@192.168.1.224'
 921   alias ncq='ssh root@143.198.123.17'
 922   alias envs='ssh acheam@envs.net'
 923 #+end_src
 924 **** File management
 925 #+begin_src shell :tangle ~/.config/ash/ashrc
 926   alias ls='LC_COLLATE=C ls -lh --group-directories-first'
 927   alias la='ls -A'
 928   alias df='df -h / /boot'
 929   alias du='du -h'
 930   alias free='free -m'
 931   alias cp='cp -riv'
 932   alias rm='rm -iv'
 933   alias mv='mv -iv'
 934   alias ln='ln -v'
 935   alias grep='grep -in'
 936   alias mkdir='mkdir -pv'
 937   alias lanex='java -jar ~/.local/share/lxc/lanxchange.jar'
 938   emacs() { $EDITOR "$@" & }
 939   alias vim="emacs"
 940 #+end_src
 941 **** System management
 942 #+begin_src shell :tangle ~/.config/ash/ashrc
 943   alias crontab='crontab-argh'
 944   alias sudo='doas'
 945   alias pasu='git -C ~/.password-store push'
 946   alias yadu='yadm add -u && yadm commit -m "Updated `date -Iseconds`" && \
 947     yadm push'
 948 #+end_src
 949 **** Networking
 950 #+begin_src shell :tangle ~/.config/ash/ashrc
 951   alias ping='ping -c 10'
 952   alias gps='gpg --keyserver keyserver.ubuntu.com --search-keys'
 953   alias gpp='gpg --keyserver keyserver.ubuntu.com --recv-key'
 954   alias plan='T=$(mktemp) && \
 955           rsync root@armaanb.net:/etc/finger/plan.txt "$T" && \
 956           TT=$(mktemp) && \
 957           head -n -2 $T > $TT && \
 958           /bin/nvim $TT && \
 959           echo >> "$TT" && \
 960           echo "Last updated: $(date -R)" >> "$TT" && \
 961           fold -sw 72 "$TT" > "$T"| \
 962           rsync "$T" root@armaanb.net:/etc/finger/plan.txt && \
 963           rm -f "$T"'
 964 #+end_src
 965 **** Virtual machines, chroots
 966 #+begin_src shell :tangle ~/.config/ash/ashrc
 967   alias ckiss="doas chrooter ~/Virtual/kiss"
 968   alias cdebian="doas chrooter ~/Virtual/debian bash"
 969   alias cwindows='devour qemu-system-x86_64 \
 970     -smp 3 \
 971     -cpu host \
 972     -enable-kvm \
 973     -m 3G \
 974     -device VGA,vgamem_mb=64 \
 975     -device intel-hda \
 976     -device hda-duplex \
 977     -net nic \
 978     -net user,smb=/home/armaa/Public \
 979     -drive format=qcow2,file=/home/armaa/Virtual/windows.qcow2'
 980 #+end_src
 981 **** Latin
 982 #+begin_src shell :tangle ~/.config/ash/ashrc
 983   alias words='gen-shell -c "words"'
 984   alias words-e='gen-shell -c "words ~E"'
 985 #+end_src
 986 **** Other
 987 #+begin_src shell :tangle ~/.config/ash/ashrc
 988   alias bigrandomfile='dd if=/dev/urandom of=1GB-urandom bs=1M count=1024 \
 989     iflag=fullblock'
 990   alias bigboringfile='dd if=/dev/zero of=1GB-zero bs=1M count=1024 \
 991     iflag=fullblock'
 992   alias ytmusic="youtube-dl -x --add-metadata  --audio-format aac \
 993     --restrict-filenames -o '%(title)s.%(ext)s'"
 994   alias bc='bc -l'
 995 #+end_src
 996 ** MPV
 997 Make MPV play a little bit smoother.
 998 #+begin_src conf :tangle ~/.config/mpv/mpv.conf
 999   ytdl-format="bestvideo[height<=?1080]+bestaudio/best"
1000   hwdec=auto-copy
1001 #+end_src
1002 ** Inputrc
1003 This file is used for any GNU Readline programs. I use Emacs editing mode mostly because of one annoyance which is that to clear the screen using ^L, you have to be in normal mode which is a pain. If there is a way to rebind this, I'd love to know!.
1004 #+begin_src conf :tangle ~/.inputrc
1005   set editing-mode emacs
1006 #+end_src
1007 ** Git
1008 *** User
1009 #+begin_src conf :tangle ~/.gitconfig
1010   [user]
1011   name = Armaan Bhojwani
1012   email = me@armaanb.net
1013   signingkey = 0FEB9471E19C49C60CFBEB133C9ED82FFE788E4A
1014 #+end_src
1015 *** Init
1016 #+begin_src conf :tangle ~/.gitconfig
1017   [init]
1018   defaultBranch = main
1019 #+end_src
1020 *** GPG
1021 #+begin_src conf :tangle ~/.gitconfig
1022   [gpg]
1023   program = gpg
1024 #+end_src
1025 *** Sendemail
1026 #+begin_src conf :tangle ~/.gitconfig
1027   [sendemail]
1028   smtpserver = smtp.mailbox.org
1029   smtpuser = me@armaanb.net
1030   smtpencryption = ssl
1031   smtpserverport = 465
1032   confirm = auto
1033 #+end_src
1034 *** Submodule
1035 #+begin_src conf :tangle ~/.gitconfig
1036   [submodule]
1037   recurse = true
1038 #+end_src
1039 *** Aliases
1040 #+begin_src conf :tangle ~/.gitconfig
1041   [alias]
1042   stat = diff --stat
1043   sclone = clone --depth 1
1044   sclean = clean -dfX
1045   a = add
1046   aa = add .
1047   c = commit
1048   quickfix = commit . --amend --no-edit
1049   p = push
1050   subup = submodule update --remote
1051   loc = diff --stat 4b825dc642cb6eb9a060e54bf8d69288fbee4904 # Empty hash
1052   pushnc = push -o skip-ci
1053 #+end_src
1054 *** Commit
1055 #+begin_src conf :tangle ~/.gitconfig
1056   [commit]
1057   gpgsign = true
1058   verbose = true
1059 #+end_src
1060 ** Zathura
1061 The best document reader!
1062 *** Options
1063 #+begin_src conf :tangle ~/.config/zathura/zathurarc
1064   map <C-i> recolor
1065   map <A-b> toggle_statusbar
1066   set selection-clipboard clipboard
1067   set scroll-step 200
1068
1069   set window-title-basename "true"
1070   set selection-clipboard "clipboard"
1071 #+end_src
1072 *** Colors
1073 #+begin_src conf :tangle ~/.config/zathura/zathurarc
1074   set default-bg         "#000000"
1075   set default-fg         "#ffffff"
1076   set render-loading     true
1077   set render-loading-bg  "#000000"
1078   set render-loading-fg  "#ffffff"
1079
1080   set recolor-lightcolor "#000000" # bg
1081   set recolor-darkcolor  "#ffffff" # fg
1082   set recolor            "true"
1083 #+end_src
1084 ** Xresources
1085 Modus operandi theme. No program I use checks for anything beyond foreground and background, but hey, it can't hurt to have all the colors in there.
1086 #+begin_src conf :tangle ~/.Xresources
1087   ! special
1088   ,*.foreground:   #ffffff
1089   ,*.background:   #000000
1090   ,*.cursorColor:  #ffffff
1091
1092   ! black
1093   ,*.color0:       #000000
1094   ,*.color8:       #555555
1095
1096   ! red
1097   ,*.color1:       #ff8059
1098   ,*.color9:       #ffa0a0
1099
1100   ! green
1101   ,*.color2:       #00fc50
1102   ,*.color10:      #88cf88
1103
1104   ! yellow
1105   ,*.color3:       #eecc00
1106   ,*.color11:      #d2b580
1107
1108   ! blue
1109   ,*.color4:       #29aeff
1110   ,*.color12:      #92baff
1111
1112   ! magenta
1113   ,*.color5:       #feacd0
1114   ,*.color13:      #e0b2d6
1115
1116   ! cyan
1117   ,*.color6:       #00d3d0
1118   ,*.color14:      #a0bfdf
1119
1120   ! white
1121   ,*.color7:       #eeeeee
1122   ,*.color15:      #dddddd
1123 #+end_src
1124 ** Tmux
1125 I use tmux in order to keep my st build light. Still learning how it works.
1126 #+begin_src conf :tangle ~/.tmux.conf
1127   set -g status off
1128   set -g mouse on
1129   set-option -g history-limit 50000
1130   set-window-option -g mode-keys vi
1131   bind-key -T copy-mode-vi 'v' send -X begin-selection
1132   bind -T copy-mode-vi y send-keys -X copy-pipe-and-cancel 'xclip -in -selection clipboard'
1133 #+end_src
1134 ** GPG
1135 *** Config
1136 #+begin_src conf :tangle ~/.gnupg/gpg.conf
1137   default-key 3C9ED82FFE788E4A
1138   use-agent
1139 #+end_src
1140 *** Agent
1141 #+begin_src conf :tangle ~/.gnupg/gpg-agent.conf
1142   pinentry-program /sbin/pinentry-fltk
1143   max-cache-ttl 600
1144   default-cache-ttl 600
1145   allow-emacs-pinentry
1146 #+end_src
1147 ** Xmodmap
1148 #+begin_src conf :tangle ~/.config/xmodmap
1149   !
1150   ! Unmap left super
1151   !
1152   clear mod4
1153
1154   !
1155   ! Turn right alt into super
1156   !
1157   remove mod1 = Alt_R
1158   add mod4 = Alt_R
1159
1160   !
1161   ! Swap caps and control
1162   !
1163   remove Lock = Caps_Lock
1164   remove Control = Control_L
1165   remove Lock = Control_L
1166   remove Control = Caps_Lock
1167   keysym Control_L = Caps_Lock
1168   keysym Caps_Lock = Control_L
1169   add Lock = Caps_Lock
1170   add Control = Control_L
1171 #+end_src