* Welcome
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!
** Compatability
-I am currently using GCCEmacs 28 from the feature/native-comp branch, so some settings may not be available for older versions of Emacs. This is a purely personal configuration, so while I can garuntee that it works on my setup, I can't for anything else.
+I am currently using Emacs 28 with native compilation, so some settings and packages may not be available for older versions of Emacs. This is a purely personal configuration, so while I can guarantee that it works on my setup, it might not work for you.
** Choices
-I chose to create a powerful, yet not overly heavy Emacs configuration. Things like LSP mode are important to my workflow and help me be productive, so despite its weight, it is kept. Things like a fancy modeline or icons on the other hand, do not increase my productivity, and create visual clutter, and thus have been excluded.
+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.
-Another important choice has been to integrate Emacs into a large part of my computing environment (see [[*EmacsOS]]). I use Email, IRC, et cetera, all through Emacs which simplifies my workflow.
+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.
-Lastly, I use Evil mode. I think modal keybindings are simple and more ergonomic than standard Emacs style, and Vim keybindings are what I'm comfortable with and are pervasive throughout computing.
-** TODOs
-*** TODO Turn keybinding and hook declarations into use-package declarations where possible
-*** TODO Put configs with passwords in here with some kind of authentication
-- Offlineimap
-- irc.el
+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.
** License
-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 at the snippet.
+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.
* Package management
** Bootstrap straight.el
straight.el is really nice for managing package, and it integrates nicely with use-package. It uses the bootstrapping system defined here for installation.
#+begin_src emacs-lisp
+ (defvar native-comp-deferred-compilation-deny-list ())
(defvar bootstrap-version)
(let ((bootstrap-file
(expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
(eval-print-last-sexp)))
(load bootstrap-file nil 'nomessage))
#+end_src
-** Replace use-package with straight
+** Replace package.el with straight
#+begin_src emacs-lisp
(straight-use-package 'use-package)
(setq straight-use-package-by-default t)
#+end_src
* Visual options
** Theme
-Very nice high contrast theme.
-
-Its fine to set this here because I run Emacs in daemon mode, but if I were not, then putting it in early-init.el would be a better choice to eliminate the window being white before the theme is loaded.
+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.
#+begin_src emacs-lisp
(setq modus-themes-slanted-constructs t
modus-themes-bold-constructs t
#+end_src
** Typography
*** Font
-Great programming font with ligatures.
+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]].
#+begin_src emacs-lisp
(add-to-list 'default-frame-alist '(font . "JetBrainsMonoNF-12"))
#+end_src
(global-ligature-mode t))
#+end_src
** Line numbers
-Display relative line numbers except in some modes
+Display relative line numbers except in certain modes.
#+begin_src emacs-lisp
(global-display-line-numbers-mode)
(setq display-line-numbers-type 'relative)
pdf-view-mode-hook
shell-mode-hook
org-mode-hook
+ circe-mode-hook
eshell-mode-hook))
(add-hook no-line-num (lambda () (display-line-numbers-mode 0))))
#+end_src
(setq display-fill-column-indicator-column 80)
(global-display-fill-column-indicator-mode)
#+end_src
-** Keybinding hints
-Whenever starting a key chord, show possible future steps.
-#+begin_src emacs-lisp
- (use-package which-key
- :config (which-key-mode)
- :custom (which-key-idle-delay 0.3))
-#+end_src
-** Highlight TODOs in comments
+** Highlight todo items in comments
#+begin_src emacs-lisp
(use-package hl-todo
:straight (hl-todo :type git :host github :repo "tarsius/hl-todo")
:config (global-hl-todo-mode 1))
#+end_src
-** Don't lose cursor
+** Blink cursor
#+begin_src emacs-lisp
(blink-cursor-mode)
#+end_src
** Visual line mode
-Soft wrap words and do operations by visual lines.
+Soft wrap words and do operations by visual lines in some modes.
#+begin_src emacs-lisp
- (add-hook 'text-mode-hook 'visual-line-mode 1)
+ (dolist (hook '(text-mode-hook
+ org-mode-hook
+ markdown-mode-hook
+ mu4e-view-mode-hook))
+ (add-hook hook (lambda () (visual-line-mode 1))))
+#+end_src
+** Auto fill mode
+#+begin_src emacs-lisp
+ (dolist (hook '(scdoc-mode-hook
+ mu4e-compose-mode-hook))
+ (add-hook hook (lambda () (auto-fill-mode 1))))
#+end_src
** Display number of matches in search
#+begin_src emacs-lisp
(use-package anzu
- :config (global-anzu-mode))
+ :config (global-anzu-mode)
+ :bind
+ ([remap query-replace] . anzu-query-replace)
+ ([remap query-replace-regexp] . anzu-query-replace-regexp))
#+end_src
+*** TODO This config doesn't work right
** Visual bell
-Inverts modeline instead of audible bell or the standard visual bell.
+Invert modeline color instead of audible bell or the standard visual bell.
#+begin_src emacs-lisp
(setq visible-bell nil
ring-bell-function
(global-set-key (kbd "<escape>") 'keyboard-escape-quit))
#+end_src
** Evil collection
+Evil bindings for tons of packages.
#+begin_src emacs-lisp
(use-package evil-collection
:after evil
(use-package evil-surround
:config (global-evil-surround-mode))
#+end_src
-** Leader key
-#+begin_src emacs-lisp
- (use-package evil-leader
- :straight (evil-leader :type git :host github :repo "cofi/evil-leader")
- :config
- (evil-leader/set-leader "<SPC>")
- (global-evil-leader-mode))
-#+end_src
** Nerd commenter
+Makes commenting super easy
#+begin_src emacs-lisp
- ;; Nerd commenter
(use-package evil-nerd-commenter
:bind (:map evil-normal-state-map
("gc" . evilnc-comment-or-uncomment-lines))
(evil-set-undo-system 'undo-redo)
#+end_src
** Number incrementing
-Add back C-a/C-x
+Add back C-a/C-x bindings.
#+begin_src emacs-lisp
(use-package evil-numbers
:straight (evil-numbers :type git :host github :repo "juliapath/evil-numbers")
("C-M-x" . evil-numbers/dec-at-pt)))
#+end_src
** Evil org
-*** Init
#+begin_src emacs-lisp
(use-package evil-org
:after org
:hook (org-mode . evil-org-mode)
:config
(evil-org-set-key-theme '(textobjects insert navigation shift todo)))
+
(use-package evil-org-agenda
:straight (:type built-in)
:after evil-org
:config (evil-org-agenda-set-keys))
#+end_src
-*** Leader maps
-#+begin_src emacs-lisp
- (evil-leader/set-key-for-mode 'org-mode
- "T" 'org-show-todo-tree
- "a" 'org-agenda
- "c" 'org-archive-subtree)
-#+end_src
* Org mode
** General
#+begin_src emacs-lisp
(org-startup-indented t)
(org-hide-emphasis-markers t)
(org-fontify-whole-block-delimiter-line nil)
- :bind ("C-c a" . org-agenda))
+ (org-archive-default-command 'org-archive-to-archive-sibling)
+ :bind
+ ("C-c a" . org-agenda)
+ (:map evil-normal-state-map ("ga" . org-archive-subtree-default)))
#+end_src
** Tempo
+Define templates for lots of common structure elements. Mostly just used within this file.
#+begin_src emacs-lisp
(use-package org-tempo
:after org
:straight (:type built-in)
:config
- ;; TODO: There's gotta be a more efficient way to write this
- (add-to-list 'org-structure-template-alist '("el" . "src emacs-lisp"))
- (add-to-list 'org-structure-template-alist '("sp" . "src conf :tangle ~/.spectrwm.conf"))
- (add-to-list 'org-structure-template-alist '("ash" . "src shell :tangle ~/.config/ash/ashrc"))
- (add-to-list 'org-structure-template-alist '("ipy" . "src python :tangle ~/.ipython/"))
- (add-to-list 'org-structure-template-alist '("pi" . "src conf :tangle ~/.config/picom/picom.conf"))
- (add-to-list 'org-structure-template-alist '("git" . "src conf :tangle ~/.gitconfig"))
- (add-to-list 'org-structure-template-alist '("du" . "src conf :tangle ~/.config/dunst/dunstrc"))
- (add-to-list 'org-structure-template-alist '("za" . "src conf :tangle ~/.config/zathura/zathurarc"))
- (add-to-list 'org-structure-template-alist '("ff1" . "src css :tangle ~/.mozilla/firefox/armaan-release/chrome/userChrome.css"))
- (add-to-list 'org-structure-template-alist '("ff2" . "src css :tangle ~/.mozilla/firefox/armaan-release/chrome/userContent.css"))
- (add-to-list 'org-structure-template-alist '("xr" . "src conf :tangle ~/.Xresources"))
- (add-to-list 'org-structure-template-alist '("tm" . "src conf :tangle ~/.tmux.conf"))
- (add-to-list 'org-structure-template-alist '("gp" . "src conf :tangle ~/.gnupg/gpg.conf"))
- (add-to-list 'org-structure-template-alist '("ag" . "src conf :tangle ~/.gnupg/gpg-agent.conf")))
+ (dolist (addition '(("el" . "src emacs-lisp")
+ ("el" . "src emacs-lisp")
+ ("sp" . "src conf :tangle ~/.spectrwm.conf")
+ ("ash" . "src shell :tangle ~/.config/ash/ashrc")
+ ("pi" . "src conf :tangle ~/.config/picom/picom.conf")
+ ("git" . "src conf :tangle ~/.gitconfig")
+ ("du" . "src conf :tangle ~/.config/dunst/dunstrc")
+ ("za" . "src conf :tangle ~/.config/zathura/zathurarc")
+ ("ff1" . "src css :tangle ~/.mozilla/firefox/armaan-release/chrome/userChrome.css")
+ ("ff2" . "src css :tangle ~/.mozilla/firefox/armaan-release/chrome/userContent.css")
+ ("xr" . "src conf :tangle ~/.Xresources")
+ ("tm" . "src conf :tangle ~/.tmux.conf")
+ ("gp" . "src conf :tangle ~/.gnupg/gpg.conf")
+ ("ag" . "src conf :tangle ~/.gnupg/gpg-agent.conf")))
+ (add-to-list 'org-structure-template-alist addition)))
#+end_src
* Autocompletion
** Ivy
-Simple, but not too simple autocompletion.
+A well balanced completion framework.
#+begin_src emacs-lisp
(use-package ivy
- :bind (("C-s" . swiper)
- :map ivy-minibuffer-map
- ("TAB" . ivy-alt-done)
- :map ivy-switch-buffer-map
+ :bind (:map ivy-minibuffer-map
+ ("TAB" . ivy-alt-done))
+ (:map ivy-switch-buffer-map
("M-d" . ivy-switch-buffer-kill))
:config (ivy-mode))
#+end_src
Ivy everywhere.
#+begin_src emacs-lisp
(use-package counsel
- :bind (("C-M-j" . 'counsel-switch-buffer)
- :map minibuffer-local-map
- ("C-r" . 'counsel-minibuffer-history))
- :custom (counsel-linux-app-format-function #'counsel-linux-app-format-function-name-only)
+ :bind ("C-M-j" . 'counsel-switch-buffer)
:config (counsel-mode))
#+end_src
** Remember frequent commands
#+begin_src emacs-lisp
(use-package ivy-prescient
:after counsel
- :custom (ivy-prescient-enable-filtering nil)
:config
(prescient-persist-mode)
(ivy-prescient-mode))
#+end_src
-** Swiper
-Better search utility.
-#+begin_src emacs-lisp
- (use-package swiper)
-#+end_src
-* EmacsOS
+* Emacs OS
** RSS
-Use elfeed for RSS. I have another file with all the feeds in it.
+Use elfeed for reading RSS. I have another file with all the feeds in it that I'd rather keep private.
#+begin_src emacs-lisp
(use-package elfeed
:bind (("C-c e" . elfeed))
- :config
- (load "~/.emacs.d/feeds.el")
- (add-hook 'elfeed-new-entry-hook
- (elfeed-make-tagger :feed-url "youtube\\.com"
- :add '(youtube)))
+ :config (load "~/.emacs.d/feeds.el")
:bind (:map elfeed-search-mode-map ("C-c C-o" . 'elfeed-show-visit)))
-
- (use-package elfeed-goodies
- :after elfeed
- :config (elfeed-goodies/setup))
#+end_src
** Email
Use mu4e for reading emails.
-
-I use `offlineimap` to sync my maildirs. It is slower than mbsync, but is fast enough for me, especially when ran with the =-q= option.
-
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.
+*** TODO Switch to mbsync
+=offlineimap= really crappy (slow and requires python2), and I need to replace it with =mbsync=.
+*** TODO Include mbsync/offlineimap config
+*** TODO Split up and document this config a bit
+*** Setup
#+begin_src emacs-lisp
(use-package smtpmail
:straight (:type built-in))
mu4e-confirm-quit nil
mu4e-view-use-gnus t
mail-user-agent 'mu4e-user-agent
+ mu4e-context-policy 'pick-first
mu4e-contexts
`( ,(make-mu4e-context
:name "school"
:query "maildir:\"/personal/INBOX\" or maildir:\"/school/INBOX\""
:key ?b))
:hook ((mu4e-compose-mode . flyspell-mode)
- (mu4e-compose-mode . auto-fill-mode)
- (mu4e-view-mode-hook . turn-on-visual-line-mode)))
-
+ (message-send-hook . (lambda () (unless (yes-or-no-p "Ya sure 'bout that?")
+ (signal 'quit nil))))))
#+end_src
-Discourage Gnus from displaying HTML emails
+*** Discourage Gnus from displaying HTML emails
#+begin_src emacs-lisp
(with-eval-after-load "mm-decode"
(add-to-list 'mm-discouraged-alternatives "text/html")
(add-to-list 'mm-discouraged-alternatives "text/richtext"))
#+end_src
** Default browser
-Set EWW as default browser except for videos.
+Set EWW as default browser except for multimedia which should open in MPV.
#+begin_src emacs-lisp
(defun browse-url-mpv (url &optional new-window)
- "Open URL in MPV."
+ "Ask MPV to load URL."
+ (interactive)
(start-process "mpv" "*mpv*" "mpv" url))
(setq browse-url-handlers
("peertube.*" . browse-url-mpv)
("vid.*" . browse-url-mpv)
("vid.*" . browse-url-mpv)
+ ("*.mp4" . browse-url-mpv)
+ ("*.mp3" . browse-url-mpv)
+ ("*.ogg" . browse-url-mpv)
("." . eww-browse-url)
)))
#+end_src
(global-set-key (kbd "C-c w") 'eww)
#+end_src
** IRC
+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.
#+begin_src emacs-lisp
- (use-package circe
- :config
- (enable-lui-track)
- (enable-circe-color-nicks))
-
(defun fetch-password (&rest params)
(require 'auth-source)
(let ((match (car (apply 'auth-source-search params))))
secret))
(error "Password not found for %S" params))))
- (setq circe-network-options
- '(("pounce"
- :host "irc.armaanb.net"
- :nick "emacs"
- :use-tls t
- :port "6697"
- :pass (lambda (fetch-password
- :login "emacs"
- :machine "irc.armaanb.net"
- :port 6697))))
+ (use-package circe
+ :config
+ (enable-lui-track)
+ (enable-circe-color-nicks)
+ (setq circe-network-defaults '(("libera"
+ :host "irc.armaanb.net"
+ :nick "emacs"
+ :user "emacs"
+ :use-tls t
+ :port 6698
+ :pass (lambda (null) (fetch-password
+ :login "emacs"
+ :machine "irc.armaanb.net"
+ :port 6698)))
+ ("oftc"
+ :host "irc.armaanb.net"
+ :nick "emacs"
+ :user "emacs"
+ :use-tls t
+ :port 6699
+ :pass (lambda (null) (fetch-password
+ :login "emacs"
+ :machine "irc.armaanb.net"
+ :port 6699)))
+ ("tilde"
+ :host "irc.armaanb.net"
+ :nick "emacs"
+ :user "emacs"
+ :use-tls t
+ :port 6696
+ :pass (lambda (null) (fetch-password
+ :login "emacs"
+ :machine "irc.armaanb.net"
+ :port 6696)))))
+ :custom (circe-default-part-message "goodbye!")
+ :bind (:map circe-mode-map ("C-c C-r" . circe-reconnect-all)))
- (circe "pounce")
+ (defun acheam-irc ()
+ "Open circe"
+ (interactive)
+ (if (get-buffer "irc.armaanb.net:6696")
+ (switch-to-buffer "irc.armaanb.net:6696")
+ (progn (switch-to-buffer "*scratch*")
+ (circe "libera")
+ (circe "oftc")
+ (circe "tilde"))))
+
+ (global-set-key (kbd "C-c i") 'acheam-irc)
#+end_src
-** Emacs Anywhere
-Use Emacs globally. Use the Emacs daemon and bind a key in your wm to =emacsclient --eval "(emacs-everywhere)"=.
+** Calendar
+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.
#+begin_src emacs-lisp
- (use-package emacs-everywhere)
+ (defun sync-calendar ()
+ "Sync calendars with vdirsyncer"
+ (interactive)
+ (async-shell-command "vdirsyncer sync"))
+
+ (use-package calfw
+ :bind (:map cfw:calendar-mode-map ("C-S-u" . sync-calendar)))
+ (use-package calfw-ical)
+ (use-package calfw-org)
+
+ (defun acheam-calendar ()
+ "Open calendars"
+ (interactive)
+ (cfw:open-calendar-buffer
+ :contents-sources (list
+ (cfw:org-create-source "Green")
+ (cfw:ical-create-source
+ "Personal"
+ "~/.local/share/vdirsyncer/mailbox/Y2FsOi8vMC8zMQ.ics"
+ "Gray")
+ (cfw:ical-create-source
+ "Personal"
+ "~/.local/share/vdirsyncer/mailbox/Y2FsOi8vMC8zMQ.ics"
+ "Red")
+ (cfw:ical-create-source
+ "School"
+ "~/.local/share/vdirsyncer/school/abhojwani22@nobles.edu.ics"
+ "Cyan"))
+ :view 'week))
+
+ (global-set-key (kbd "C-c c") 'acheam-calendar)
+#+end_src
+** PDF reader
+#+begin_src emacs-lisp
+ (use-package pdf-tools
+ :hook (pdf-view-mode . pdf-view-midnight-minor-mode))
#+end_src
* Emacs IDE
-** Code cleanup
+** Python formatting
#+begin_src emacs-lisp
(use-package blacken
:hook (python-mode . blacken-mode)
- :config (setq blacken-line-length 79))
+ :custom (blacken-line-length 79))
- ;; Purge whitespace
+#+end_src
+** Strip trailing whitespace
+#+begin_src emacs-lisp
(use-package ws-butler
:config (ws-butler-global-mode))
#+end_src
** Flycheck
+Automatic linting. I need to look into configuring this more.
#+begin_src emacs-lisp
(use-package flycheck
:config (global-flycheck-mode))
#+end_src
** Project management
+I never use this, but apparently its very powerful. Another item on my todo list.
#+begin_src emacs-lisp
(use-package projectile
:config (projectile-mode)
:config (counsel-projectile-mode))
#+end_src
** Dired
+The best file manager!
#+begin_src emacs-lisp
(use-package dired
:straight (:type built-in)
#+end_src
** Git
*** Magit
-# TODO: Write a command that commits hunk, skipping staging step.
+A very good Git interface.
#+begin_src emacs-lisp
(use-package magit)
#+end_src
-*** Colored diff in line number area
-#+begin_src emacs-lisp
- (use-package diff-hl
- :straight (diff-hl :type git :host github :repo "dgutov/diff-hl")
- :hook ((magit-pre-refresh-hook . diff-hl-magit-pre-refresh)
- (magit-post-refresh-hook . diff-hl-magit-post-refresh))
- :config (global-diff-hl-mode))
-#+end_src
*** Email
#+begin_src emacs-lisp
(use-package piem)
:straight (git-email :repo "https://git.sr.ht/~yoctocell/git-email")
:config (git-email-piem-mode))
#+end_src
-** Java
-*** Evaluate current buffer
-Stolen from https://stackoverflow.com/questions/19953924/how-do-you-run-java-codes-in-emacs
-#+begin_src emacs-lisp
- (defun java-eval-buffer ()
- "run current program (that requires no input)"
- (interactive)
- (let* ((source (file-name-nondirectory buffer-file-name))
- (out (file-name-sans-extension source))
- (class (concat out ".class")))
- (save-buffer)
- (shell-command (format "rm -f %s && javac %s" class source))
- (if (file-exists-p class)
- (shell-command (format "java %s" out) "*scratch*")
- (progn
- (set (make-local-variable 'compile-command)
- (format "javac %s" source))
- (command-execute 'compile)))))
-#+end_src
* General text editing
** Indentation
-Indent after every change.
+Automatically indent after every change. I'm not sure how much I like this. It slows down the editor and code sometimes ends up in a half-indented state meaning I have to manually reformat using "==" anyways.
#+begin_src emacs-lisp
(use-package aggressive-indent
:config (global-aggressive-indent-mode))
** Spell checking
Spell check in text mode, and in prog-mode comments.
#+begin_src emacs-lisp
- (dolist (hook '(text-mode-hook))
+ (dolist (hook '(text-mode-hook
+ markdown-mode-hook
+ scdoc-mode-hook))
(add-hook hook (lambda () (flyspell-mode))))
(dolist (hook '(change-log-mode-hook log-edit-mode-hook))
(add-hook hook (lambda () (flyspell-mode -1))))
(add-hook 'prog-mode (lambda () (flyspell-prog mode)))
+ (setq ispell-silently-savep t)
#+end_src
-** Expand tabs to spaces
+** Sane tab width
#+begin_src emacs-lisp
(setq-default tab-width 2)
#+end_src
-** Copy kill ring to clipboard
-#+begin_src emacs-lisp
- (setq x-select-enable-clipboard t)
- (defun copy-kill-ring-to-xorg ()
- "Copy the current kill ring to the xorg clipboard."
- (interactive)
- (x-select-text (current-kill 0)))
-#+end_src
** Save place
Opens file where you left it.
#+begin_src emacs-lisp
Distraction free writing a la junegunn/goyo.
#+begin_src emacs-lisp
(use-package olivetti
- :config
- (evil-leader/set-key "o" 'olivetti-mode))
+ :bind ("C-c o" . olivetti-mode))
#+end_src
** Abbreviations
-Abbreviate things!
+Abbreviate things! I just use this for things like my email address and copyright notice.
#+begin_src emacs-lisp
(setq abbrev-file-name "~/.emacs.d/abbrevs.el")
(setq save-abbrevs 'silent)
#+begin_src emacs-lisp
(setq tramp-default-method "ssh")
#+end_src
-** Don't ask about following symlinks in vc
+** Follow version controlled symlinks
#+begin_src emacs-lisp
(setq vc-follow-symlinks t)
#+end_src
-** Don't ask to save custom dictionary
-#+begin_src emacs-lisp
- (setq ispell-silently-savep t)
-#+end_src
** Open file as root
#+begin_src emacs-lisp
(defun doas-edit (&optional arg)
(global-set-key (kbd "C-x C-r") #'doas-edit)
#+end_src
+** Markdown mode
+#+begin_src emacs-lisp
+ (use-package markdown-mode)
+#+end_src
+** scdoc mode
+Get it for yourself at https://git.armaanb.net/scdoc
+#+begin_src emacs-lisp
+ (add-to-list 'load-path "~/Code/scdoc-mode")
+ (autoload 'scdoc-mode "scdoc-mode" "Major mode for editing scdoc files" t)
+ (add-to-list 'auto-mode-alist '("\\.scd\\'" . scdoc-mode))
+#+end_src
* Keybindings
** Switch windows
#+begin_src emacs-lisp
(substitute-key-definition 'kill-buffer 'kill-buffer-and-window global-map)
#+end_src
* Other settings
-** OpenSCAD
+** OpenSCAD syntax
#+begin_src emacs-lisp
(use-package scad-mode)
#+end_src
-** Control backup files
+** Control backup and lock files
Stop backup files from spewing everywhere.
#+begin_src emacs-lisp
- (setq backup-directory-alist `(("." . "~/.emacs.d/backups")))
+ (setq backup-directory-alist `(("." . "~/.emacs.d/backups"))
+ create-lockfiles nil)
#+end_src
** Make yes/no easier
#+begin_src emacs-lisp
#+begin_src emacs-lisp
(use-package 0x0
:straight (0x0 :type git :repo "https://git.sr.ht/~zge/nullpointer-emacs")
- :custom (0x0-default-service 'envs)
- :config (evil-leader/set-key
- "00" '0x0-upload
- "0f" '0x0-upload-file
- "0s" '0x0-upload-string
- "0c" '0x0-upload-kill-ring
- "0p" '0x0-upload-popup))
+ :custom (0x0-default-service 'envs))
+#+end_src
+*** TODO Replace this with uploading to my own server
+Similar to the ufile alias in my ashrc
+** Automatically clean buffers
+Automatically close unused buffers (except those of Circe) at midnight.
+#+begin_src emacs-lisp
+ (midnight-mode)
+ (add-to-list 'clean-buffer-list-kill-never-regexps (lambda (buffer-name)
+ (with-current-buffer buffer-name
+ (derived-mode-p 'lui-mode))))
#+end_src
* Tangles
** Spectrwm
+Spectrwm is a really awesome window manager! Would highly recommend.
*** General settings
#+begin_src conf :tangle ~/.spectrwm.conf
workspace_limit = 5
autorun = ws[1]:/home/armaa/Code/scripts/autostart
#+end_src
*** Bar
+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.
#+begin_src conf :tangle ~/.spectrwm.conf
bar_enabled = 0
- bar_font = xos4 Fira Code:pixelsize=14:antialias=true # any installed font
+ bar_font = xos4 JetBrains Mono:pixelsize=14:antialias=true # any installed font
#+end_src
*** Keybindings
+I'm not a huge fan of how spectrwm handles keybindings, probably my biggest gripe with it.
**** WM actions
#+begin_src conf :tangle ~/.spectrwm.conf
program[term] = st -e tmux
#+end_src
**** Programs
#+begin_src conf :tangle ~/.spectrwm.conf
- program[email] = emacsclient -c --eval "(mu4e)"
- program[irc] = emacsclient -c --eval '(switch-to-buffer "irc.armaanb.net:6697")'
- program[emacs] = emacsclient -c
+ program[email] = emacsclient -ce '(progn (switch-to-buffer "*scratch*") (mu4e))'
+ program[irc] = emacsclient -ce '(acheam-irc)'
+ program[rss] = emacsclient -ce '(elfeed)'
+ program[calendar] = emacsclient -ce '(acheam-calendar)'
+ program[calc] = emacsclient -ce '(progn (calc) (windmove-up) (delete-window))'
program[firefox] = firefox
- program[calc] = st -e because -l
- program[emacs-anywhere] = emacsclient --eval "(emacs-everywhere)"
+ program[emacs] = emacsclient -c
bind[email] = MOD+Control+1
bind[irc] = MOD+Control+2
- bind[firefox] = MOD+Control+3
- bind[emacs-anywhere] = MOD+Control+4
+ bind[rss] = MOD+Control+3
+ bind[calendar] = MOD+Control+4
bind[calc] = MOD+Control+5
+ bind[firefox] = MOD+Control+0
bind[emacs] = MOD+Control+Return
#+end_src
-**** Quirks
+*** Quirks
+Float some specific programs by default.
#+begin_src conf :tangle ~/.spectrwm.conf
quirk[Castle Menu] = FLOAT
quirk[momen] = FLOAT
#+end_src
** Ash
*** Options
+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.
#+begin_src conf :tangle ~/.config/ash/ashrc
set -o vi
#+end_src
*** Functions
-**** Update all packages
-#+begin_src shell :tangle ~/.config/ash/ashrc
- color=$(tput setaf 5)
- reset=$(tput sgr0)
-
- apu() {
- doas echo "${color}== upgrading with yay ==${reset}"
- yay
- echo ""
- echo "${color}== checking for pacnew files ==${reset}"
- doas pacdiff
- echo
- echo "${color}== upgrading flatpaks ==${reset}"
- flatpak update
- echo ""
- echo "${color}== updating nvim plugins ==${reset}"
- nvim +PlugUpdate +PlugUpgrade +qall
- echo "Updated nvim plugins"
- echo ""
- echo "${color}You are entirely up to date!${reset}"
- }
-#+end_src
-**** Clean all packages
-#+begin_src shell :tangle ~/.config/ash/ashrc
- apap() {
- doas echo "${color}== cleaning pacman orphans ==${reset}"
- (pacman -Qtdq | doas pacman -Rns - 2> /dev/null) || echo "No orphans"
- echo ""
- echo "${color}== cleaning flatpaks ==${reset}"
- flatpak remove --unused
- echo ""
- echo "${color}== cleaning nvim plugins ==${reset}"
- nvim +PlugClean +qall
- echo "Cleaned nvim plugins"
- echo ""
- echo "${color}All orphans cleaned!${reset}"
- }
-#+end_src
-**** Interact with 0x0
-#+begin_src shell :tangle ~/.config/ash/ashrc
- zxz="https://envs.sh"
- ufile() { curl -F"file=@$1" "$zxz" ; }
- upb() { curl -F"file=@-;" "$zxz" ; }
- uurl() { curl -F"url=$1" "$zxz" ; }
- ushort() { curl -F"shorten=$1" "$zxz" ; }
- uclip() { xclip -out | curl -F"file=@-;" "$zxz" ; }
-#+end_src
**** Finger
#+begin_src shell :tangle ~/.config/ash/ashrc
finger() {
#+end_src
**** Upload to ftp.armaanb.net
#+begin_src shell :tangle ~/.config/ash/ashrc
- pubup() {
- rsync "$1" "root@armaanb.net:/var/ftp/pub/${2}"
- echo "https://ftp.armaanb.net/pub/"$(basename "$1") | tee /dev/tty | xclip -sel c
+ _uprint() {
+ echo "https://l.armaanb.net/$(basename "$1")" | tee /dev/tty | xclip -sel c
+ }
+
+ _uup() {
+ rsync "$1" "root@armaanb.net:/var/ftp/pub/$2" --chmod 644
+ }
+
+ ufile() {
+ _uup "$1" "$2"
+ _uprint "$1"
+ }
+
+ uclip() {
+ tmp=$(mktemp)
+ xclip -o -sel c >> "$tmp"
+ basetmp=$(echo "$tmp" | tail -c +5)
+ _uup "$tmp" "$basetmp"
+ _uprint "$basetmp"
+ rm -f "$tmp"
}
#+end_src
*** Exports
export LC_CTYPE="en_US.UTF-8"
export LANGUAGE="en_US.UTF-8"
+ export CDPATH=:~
+
export KISS_PATH="/home/armaa/Virtual/kiss/home/armaa/kiss-repo"
export KISS_PATH="$KISS_PATH:/home/armaa/Clone/repo-main/core"
export KISS_PATH="$KISS_PATH:/home/armaa/Clone/repo-main/extra"
export KISS_PATH="$KISS_PATH:/home/armaa/Clone/repo-main/xorg"
export KISS_PATH="$KISS_PATH:/home/armaa/Clone/repo-main/testing"
export KISS_PATH="$KISS_PATH:/home/armaa/Clone/repo-community/community"
+ export PKG_CONFIG_PATH="$PKG_CONFIG_PATH:/usr/local/lib/pkgconfig"
#+end_src
*** Aliases
**** SSH
#+end_src
**** File management
#+begin_src shell :tangle ~/.config/ash/ashrc
- alias ls='ls -lh --group-directories-first'
+ alias ls='LC_COLLATE=C ls -lh --group-directories-first'
alias la='ls -A'
alias df='df -h / /boot'
alias du='du -h'
- alias free='free -h'
+ alias free='free -m'
alias cp='cp -riv'
alias rm='rm -iv'
alias mv='mv -iv'
alias ln='ln -v'
- alias grep='grep -in --color=auto'
+ alias grep='grep -in'
alias mkdir='mkdir -pv'
alias lanex='java -jar ~/.local/share/lxc/lanxchange.jar'
- alias vim=$EDITOR
- alias emacs=$EDITOR
+ emacs() { $EDITOR "$@" & }
+ alias vim="emacs"
#+end_src
**** System management
#+begin_src shell :tangle ~/.config/ash/ashrc
- alias pkill='pkill -i'
alias crontab='crontab-argh'
alias sudo='doas'
alias pasu='git -C ~/.password-store push'
alias gps='gpg --keyserver keyserver.ubuntu.com --search-keys'
alias gpp='gpg --keyserver keyserver.ubuntu.com --recv-key'
alias plan='T=$(mktemp) && \
- rsync root@armaanb.net:/etc/finger/plan.txt "$T" && \
- TT=$(mktemp) && \
- head -n -2 $T > $TT && \
- vim $TT && \
- echo "\nLast updated: $(date -R)" >> "$TT" && \
- fold -sw 72 "$TT" > "$T"| \
- rsync "$T" root@armaanb.net:/etc/finger/plan.txt'
+ rsync root@armaanb.net:/etc/finger/plan.txt "$T" && \
+ TT=$(mktemp) && \
+ head -n -2 $T > $TT && \
+ /bin/nvim $TT && \
+ echo >> "$TT" && \
+ echo "Last updated: $(date -R)" >> "$TT" && \
+ fold -sw 72 "$TT" > "$T"| \
+ rsync "$T" root@armaanb.net:/etc/finger/plan.txt && \
+ rm -f "$T"'
#+end_src
**** Virtual machines, chroots
#+begin_src shell :tangle ~/.config/ash/ashrc
-net user,smb=/home/armaa/Public \
-drive format=qcow2,file=/home/armaa/Virtual/windows.qcow2'
#+end_src
-**** Python
-#+begin_src shell :tangle ~/.config/ash/ashrc
- alias pip="python -m pip"
- alias black="black -l 79"
-#+end_src
**** Latin
#+begin_src shell :tangle ~/.config/ash/ashrc
alias words='gen-shell -c "words"'
alias words-e='gen-shell -c "words ~E"'
#+end_src
-**** Devour
-#+begin_src shell :tangle ~/.config/ash/ashrc
- alias zathura='devour zathura'
- alias cad='devour openscad'
- alias feh='devour feh'
-#+end_src
-**** Pacman
-#+begin_src shell :tangle ~/.config/ash/ashrc
- alias aps='yay -Ss'
- alias api='yay -Syu'
- alias apii='doas pacman -S'
- alias app='yay -Rns'
- alias azf='pacman -Q | fzf'
- alias favorites='pacman -Qe | cut -d " " -f 1 > ~/Documents/favorites'
-#+end_src
**** Other
#+begin_src shell :tangle ~/.config/ash/ashrc
alias bigrandomfile='dd if=/dev/urandom of=1GB-urandom bs=1M count=1024 \
- iflag=fullblock status=progress'
+ iflag=fullblock'
alias bigboringfile='dd if=/dev/zero of=1GB-zero bs=1M count=1024 \
- iflag=fullblock status=progress'
+ iflag=fullblock'
alias ytmusic="youtube-dl -x --add-metadata --audio-format aac \
--restrict-filenames -o '%(title)s.%(ext)s'"
- alias cal="cal -3 --color=auto"
alias bc='bc -l'
#+end_src
-** IPython
-#+begin_src python :tangle ~/.ipython/profile_default/ipython_config.py
- c.TerminalInteractiveShell.editing_mode = 'vi'
- c.InteractiveShell.colors = 'linux'
- c.TerminalInteractiveShell.confirm_exit = False
-#+end_src
** MPV
Make MPV play a little bit smoother.
#+begin_src conf :tangle ~/.config/mpv/mpv.conf
hwdec=auto-copy
#+end_src
** Inputrc
-For any GNU Readline programs
+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!.
#+begin_src conf :tangle ~/.inputrc
set editing-mode emacs
#+end_src
smtpserverport = 465
confirm = auto
#+end_src
-*** Submodules
+*** Submodule
#+begin_src conf :tangle ~/.gitconfig
[submodule]
recurse = true
loc = diff --stat 4b825dc642cb6eb9a060e54bf8d69288fbee4904 # Empty hash
pushnc = push -o skip-ci
#+end_src
-*** Commits
+*** Commit
#+begin_src conf :tangle ~/.gitconfig
[commit]
gpgsign = true
verbose = true
#+end_src
** Dunst
-Lightweight notification daemon.
+Lightweight notification daemon. Eventually I'd like to replace this with something dbus-less.
*** General
#+begin_src conf :tangle ~/.config/dunst/dunstrc
[global]
timeout = 0
#+end_src
** Zathura
+The best document reader!
*** Options
#+begin_src conf :tangle ~/.config/zathura/zathurarc
map <C-i> recolor
set recolor "true"
#+end_src
** Firefox
+Just some basic Firefox CSS. Will probably have to rewrite for the Proton redesign.
*** Swap tab and URL bars
#+begin_src css :tangle ~/.mozilla/firefox/armaan-release/chrome/userChrome.css
#nav-bar {
}
#+end_src
** Xresources
-Modus operandi theme.
+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.
#+begin_src conf :tangle ~/.Xresources
! special
,*.foreground: #ffffff
,*.color15: #dddddd
#+end_src
** Tmux
+I use tmux in order to keep my st build light. Still learning how it works.
#+begin_src conf :tangle ~/.tmux.conf
set -g status off
set -g mouse on
+ set-option -g history-limit 50000
set-window-option -g mode-keys vi
+ bind-key -T copy-mode-vi 'v' send -X begin-selection
+ bind -T copy-mode-vi y send-keys -X copy-pipe-and-cancel 'xclip -in -selection clipboard'
#+end_src
** GPG
*** Config
projects / config.org.git / blobdiff