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