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