23 KiB
23 KiB
Emacs Configuration
Literate emacs configuration
I can never rembember what various configs do. Jumping on this literate emacs config to see if it helps!
Set some ENV vars
These are needed to make emacs aware of various things (like Go binaries,
etc). I have them here because sometimes when emacs is launched from rofi
or similar it doesn't have the same ENV as it does when launching from the
shell.
(defun expand-if-exists (d)
;; expand-if-exists(d) expands d only if d exists
(if (file-exists-p d)
(expand-file-name d)))
(let ((paths
'(
"/usr/local/bin"
"/usr/local/go/bin"
"/usr/local/MacGPG2/bin"
"/Library/TeX/texbin"
"/usr/local/jdk-11/bin"
"/usr/ports/infrastructure/bin"
"~/bin"
"~/.nix-profile/bin"
"~/go/bin"
"~/opt/bin"
"/usr/local/plan9/bin"
)))
(setenv "PATH" (concat (getenv "PATH") (mapconcat 'expand-if-exists (remove nil paths) ":")))
(setq exec-path (append exec-path (remove "" (split-string (getenv "PATH") ":")))))Start the emacs server
Starting as a server lets me connect externally to do things like change themes, save buffers via cron and other such dumbary!
(load "server")
(unless (server-running-p) (server-start))OpenBSD Lockups
For some reason OpenBSD hangs, these seem to help a bit
(setq x-select-enable-clipboard-manager nil)
(setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))
(setf x-selection-timeout 500)Interface and Behavior
Interface
Global font
;; This is currently set in ~/.Xresources - for some reason emacs doesn't like the line below
(set-frame-font "Go Mono")Use 80 columns, this helps keep things readable when windows are split
(setq whitespace-style '(trailing lines space-before-tab)
whitespace-line-column 80)
(setq-default fill-column 80)I know I am in emacs, don't need to see the startup screen.
(setq inhibit-startup-screen t)If we are on OpenBSD, fill the scratch buffer with fortune \o/.
(if (file-executable-p "/usr/games/fortune")
(setq initial-scratch-message
(concat
(shell-command-to-string "fortune | sed -e 's/^/;; /g'")
"\n\n")))Use UTF8 where ever possible
(prefer-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)Change various UI bits
(tool-bar-mode -1)
(menu-bar-mode -1)
(scroll-bar-mode -1)
(column-number-mode +1)
(global-font-lock-mode 1)No GNU ls here
(setq ls-lisp-use-insert-directory-program nil)
(require 'ls-lisp)Behavior
Switch various defaults to be more comfortable for myself.
(fset 'yes-or-no-p 'y-or-n-p)
(show-paren-mode t)
(setq desktop-dirname "~/.emacs.d/"
desktop-base-file-name "emacs.desktop"
desktop-base-lock-name "lock"
desktop-path (list desktop-dirname)
desktop-save t
desktop-files-not-to-save "^$" ;reload tramp paths
desktop-load-locked-desktop nil
desktop-auto-save-timeout 30)
(desktop-save-mode 1)
(setq backup-directory-alist '(("." . "~/.emacs-saves")))
(setq auto-mode-alist
(append
(list
'("\\.gpg$" . sensitive-minor-mode)
)
auto-mode-alist))
(setq auth-sources
'((:source "~/.netrc")))Use spelling and auto-fill when we are in text mode.
(add-hook 'text-mode-hook (lambda ()
(auto-fill-mode 1)
(turn-on-flyspell)))This fixes some tramp "waiting for prompt" errors.
;;(setq trarmp-shell-prompt-pattern "\\(?:^\\|\r\\)[^]#$%>λ\n]*#?[]#$%>λ].* *\\(^[\\[[0-9;]*[a-zA-Z] *\\)*")
;;(require 'tramp-sh nil t)
;;(setf tramp-ssh-controlmaster-options
;; (concat
;; "-o ControlPath=/tmp/ssh-%%r@%%h:%%p "
;; "-o ControlMaster=auto -o ControlPersist=yes"))If things aren't working the way we want:
(setq tramp-verbose 6)Include ports site-lisp
On OpenBSD various packages (mu, git.. etc) install elisp things into a global directory, this makes sure we include it.
(if (file-directory-p "/usr/local/share/emacs/site-lisp")
(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/"))Unset custom-file
The customization file mostly just causes churn in the SCM so we disable it here.
(setq custom-file (make-temp-file ""))Ensure packages are pinned and installed
This makes sure use-package installs things (and makes it so we don't need
:ensure t set for every package.
(setq use-package-always-ensure t)
;;(setq use-package-always-pin "melpa-stable")Packages
parchment-theme
This is a nice theme that resembles acme in plan9. Minimal.
(use-package parchment-theme
:config (load-theme 'parchment t))keychain-environment
I make heavy use of ssh-agent this lets emacs pickup / use the existing
agents I have running.
(use-package keychain-environment
;;:pin "melpa"
:init
(keychain-refresh-environment))ivy
ivy is fantastic. It gives me nice visual search for buffers,
code.. etc. Combined with smex for sorting (shows last used things first) and
counsel (extends ivy into various areas like the help stuff).
(use-package counsel)
(setq smex-save-file (expand-file-name "~/.emacs.d/smex.save"))
(use-package smex)
(use-package ivy
:hook (after-init . ivy-mode)
:bind
("C-s" . swiper)
("M-x" . counsel-M-x)
("C-x C-f" . counsel-find-file)
("C-x b" . ivy-switch-buffer))magit
Magit is a awesome. Not sure what else to say about it. :P
(use-package magit
:bind ("C-c m" . magit-status)
:init
(setq magit-completing-read-function 'ivy-completing-read))flycheck
flycheck does automatic syntax checking for most things
(use-package flycheck
:init (global-flycheck-mode))- [2020-05-29 Fri] Unfortunately it clobbers the "C-c !" prefix, so we need to add this to get it back:
(define-key flycheck-mode-map (kbd "C-c !") 'org-time-stamp-inactive)lsp-mode
lsp-mode supports language servers for various things.
(use-package lsp-mode
:hook ((go-mode . lsp-deferred)
(ruby-mode . lsp)
(typescript-mode . lsp)
(elm-mode . lsp)
(perl-mode . lsp)
(nix-mode . lsp)
(lua-mode . lsp))
:commands (lsp lsp-deferred))
(use-package lsp-ui :commands lsp-ui-mode)projectile
(use-package projectile
:init
(projectile-mode +1)
:bind (:map projectile-mode-map
("C-c C-p" . projectile-command-map)))company and friends
company allows for auto-completion of various things. It can interface with lsp-mode to complete
things like Go.
(use-package company
:config
(setq company-tooltip-limit 20
company-minimum-prefix-length 1
company-idle-delay .3
company-echo-delay 0)
:hook (prog-mode . company-mode))gitgutter
This gives me a nice in-ui way to see modifications and what not.
(use-package git-gutter
:hook
(after-init . global-git-gutter-mode))nix
Add support for nix files. I don't use nix much atm, but it was recently ported to OpenBSD, so I am hopeful I can start using it there more!
(use-package nix-mode
:mode "\\.nix\\'")shell
I don't often use the shell from emacs, but when I do these bits make it easier for me to treat it like a regular shell.
;; Kill terminal buffers on exit so I din't have to kill the buffer after I exit.
(defadvice term-handle-exit
(after term-kill-buffer-on-exit activate)
(kill-buffer))restclient
(use-package restclient
;;:pin "melpa"
:mode (("\\.http$" . restclient-mode)))sr-speedbar
Speedbar is almost perfect.. If it only ran in the current frame!! :D
Enter sr-speedbar
(use-package sr-speedbar)Speedbar options
(setq
speedbar-show-unknown-files t
sr-speedbar-right-side nil)
(global-set-key (kbd "C-x C-n") 'sr-speedbar-toggle)Language Configurations
Shell
(use-package shfmt)
(add-hook 'sh-mode-hook 'shfmt-on-save-mode)Typescript
(use-package typescript-mode)Nix
(use-package nix-mode
:mode "\\.nix\\'")Elm
(use-package elm-mode)Ada
;;(use-package ada-mode)Go
go-add-tags
This lets one select a struct or similar and auto add the `json:"NAME"` bits.
(use-package go-add-tags)go-mode
This allows for things like gofmt and auto adding / removing of imports.
(use-package go-mode
:after (go-add-tags lsp-mode)
:bind
("C-c t" . go-add-tags))
(defun lsp-go-install-save-hooks ()
(add-hook 'before-save-hook #'lsp-format-buffer t t)
(add-hook 'before-save-hook #'lsp-organize-imports t t))
(add-hook 'go-mode-hook #'lsp-go-install-save-hooks)go-eldoc
This extends eldoc to be able to speak Go - quite handy for quickly looking up what things do.
(use-package go-eldoc
:after (go-mode lsp-mode)
:hook
(go-mode . go-eldoc-setup))yasnippet
Some go tools use this.
(use-package yasnippet
:commands yas-minor-mode
:hook (go-mode . yas-minor-mode))Zig
(use-package zig-mode)Lua
(use-package lua-mode)
mu has been the best mail client for me on emacs.
Initializing mu
The defaults mu uses make no sense. ~/.cache is for .. caching data, not
persistent databases.. So we init things with sane defaults:
mu init --muhome=/home/qbit/.mu -m /home/qbit/Maildir/fastmail/ --my-address="aaron@bolddaemon.com"General mail configuration
(require 'smtpmail)
(setq user-mail-address "aaron@bolddaemon.com"
user-full-name "Aaron Bieber"
message-send-mail-function 'smtpmail-send-it
message-kill-buffer-on-exit t
smtpmail-smtp-user "qbit@fastmail.com"
smtpmail-smtp-server "smtp.fastmail.com"
smtpmail-smtp-service 465
smtpmail-default-smtp-server "smtp.fastmail.com"
smtpmail-stream-type 'ssl)mu4e specific configs
;;(require 'mu4e)
;;(require 'mu4e-speedbar)
;;(require 'org-mu4e)
;;(setq mail-user-agent 'mu4e-user-agent
;; mu4e-get-mail-command "mbsync fastmail"
;; mu4e-update-interval 420
;; mu4e-compose-context-policy nil
;; mu4e-context-policy 'pick-first
;; mu4e-drafts-folder "/Drafts"
;; mu4e-sent-folder "/Sent Items"
;; mu4e-trash-folder "/Trash"
;; mu4e-maildir-shortcuts
;; '( ("/INBOX" . ?i)
;; ("/Archive" . ?a)
;; ("/Sent Items" . ?s))
;; org-mu4e-link-query-in-headers-mode nil
;; mu4e-attachment-dir
;; (lambda (fname mtype)
;; (cond
;; ((and fname (string-match "\\.diff$" fname)) "~/patches")
;; ((and fname (string-match "\\.patch$" fname)) "~/patches")
;; ((and fname (string-match "\\.diff.gz$" fname)) "~/patches")
;; (t "~/Downloads")))
;; mu4e-bookmarks
;; `(( :name "Inbox"
;; :query "maildir:/Inbox AND NOT flag:trashed"
;; :key ?i)
;; ( :name "TODO"
;; :query "maildir:/TODO AND NOT flag:trashed"
;; :key ?T)
;; ( :name "Unread messages"
;; :query "flag:unread AND NOT flag:trashed AND NOT list:ports-changes.openbsd.org AND NOT list:source-changes.openbsd.org"
;; :key ?u)
;; ( :name "Today's messages"
;; :query (concat
;; "date:today..now"
;; " AND NOT flag:trashed"
;; " AND NOT list:ports-changes.openbsd.org"
;; " AND NOT list:source-changes.openbsd.org")
;; :key ?d)
;; ( :name "Last 7 days"
;; :query (concat
;; "date:6d..now"
;; " AND NOT flag:trashed"
;; " AND NOT list:ports-changes.openbsd.org"
;; " AND NOT list:source-changes.openbsd.org")
;; :key ?w)
;; ( :name "Hackers"
;; :query "list:hackers.openbsd.org AND NOT flag:trashed"
;; :key ?h)
;; ( :name "Bugs"
;; :query "list:bugs.openbsd.org AND NOT flag:trashed"
;; :key ?b)
;; ( :name "Tech"
;; :query "list:tech.openbsd.org AND NOT flag:trashed"
;; :key ?t)
;; ( :name "Ports"
;; :query "list:ports.openbsd.org AND NOT flag:trashed"
;; :key ?p)
;; ( :name "Misc"
;; :query "list:misc.openbsd.org AND NOT flag:trashed"
;; :key ?m)
;; ( :name "9front"
;; :query "list:9front.9front.org AND NOT flag:trashed"
;; :key ?9)
;; ( :name "GOT"
;; :query "list:gameoftrees.openbsd.org AND NOT flag:trashed"
;; :key ?g)))org-mode
Oh org-mode. It's the reason I started using emacs.. and it's the reason I
can't quit!
Config
(org-babel-do-load-languages
'org-babel-load-languages
'((plantuml . t)
(dot . t)
(latex . t)))Publish bits
I publish some of my notes on suah.dev/p. Also some recipes.
(setq my-org-publish-alist
'(("notes" :components ("org-notes" "notes-static" "notes-rss"))
("deftly" :components ("deftly-blog" "deftly-static"))
("ohmyksh" :components ("ohmy-web" "ohmy-static"))
("org-notes"
:auto-preamble t
:auto-sitemap t
:headline-levels 4
:publishing-directory "/ssh:suah.dev:/var/www/suah.dev/p/"
:publishing-function org-html-publish-to-html
:recursive t
:section-numbers nil
:html-head "<link rel=\"stylesheet\" href=\"https://suah.dev/p/css/stylesheet.css\" type=\"text/css\" />"
:html-link-home "http://suah.dev/p/"
:html-link-up "../"
:style-include-default nil
:sitemap-filename "index.org"
:sitemap-title "Notes"
:with-title t
:author-info nil
:creator-info nil
:base-directory "~/org/notes")
("deftly-blog"
:auto-preamble t
:auto-sitemap t
:headline-levels 1
:publishing-directory "/ssh:suah.dev:/var/www/deftly.net/new/"
:publishing-function org-html-publish-to-html
:recursive t
:section-numbers nil
:html-head "<link rel=\"stylesheet\" href=\"https://deftly.net/new/css/stylesheet.css\" type=\"text/css\" />"
:html-link-home "http://deftly.net/new"
:html-link-up "../"
:style-include-default nil
:sitemap-title "Deftly.net"
:with-title t
:author-info t
:creator-info nil
:base-directory "~/org/deftly")
("ohmy-web"
:auto-preamble t
:auto-sitemap nil
:headline-levels 2
:publishing-directory "/ssh:suah.dev:/var/www/deftly.net/ohmyksh/"
:publishing-function org-html-publish-to-html
:recursive t
:section-numbers nil
:html-head "<link rel=\"stylesheet\" href=\"https://deftly.net/ohmyksh/css/stylesheet.css\" type=\"text/css\" />"
:html-link-home "http://deftly.net/ohmyksh"
:html-link-up "../"
:style-include-default nil
:with-title t
:author-info t
:creator-info nil
:base-directory "~/src/ohmyksh")
("notes-static"
:base-directory "~/org/notes"
:publishing-directory "/ssh:suah.dev:/var/www/suah.dev/p/"
:base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|ogg\\|svg"
:recursive t
:publishing-function org-publish-attachment)
("deftly-static"
:base-directory "~/org/deftly"
:publishing-directory "/ssh:suah.dev:/var/www/deftly.net/new/"
:base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|ogg"
:recursive t
:publishing-function org-publish-attachment)
("ohmy-static"
:base-directory "~/src/ohmyksh"
:publishing-directory "/ssh:suah.dev:/var/www/deftly.net/ohmyksh/"
:base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|ogg"
:recursive t
:publishing-function org-publish-attachment)
("notes-rss"
:publishing-directory "/ssh:suah.dev:/var/www/suah.dev/p/"
:publishing-function org-rss-publish-to-rss
:recursive t
:rss-extension "xml"
:section-numbers nil
:exclude ".*"
:include ("index.org")
:table-of-contents nil
:base-directory "~/org/notes")
("mammoth"
:publishing-directory "/ssh:suah.dev:/var/www/mammothcircus.com/"
:publishing-function org-html-publish-to-html
:author-info nil
:creator-info nil
:section-numbers nil
:recursive t
:base-directory "~/org/mammoth")
("recipes"
:auto-preamble t
:auto-sitemap t
:headline-levels 4
:publishing-directory "/ssh:suah.dev:/var/www/suah.dev/recipes/"
:publishing-function org-html-publish-to-html
:recursive t
:section-numbers nil
:html-head "<link rel=\"stylesheet\" href=\"https://suah.dev/p/css/stylesheet.css\" type=\"text/css\" />"
:html-link-home "http://suah.dev/recipes/"
:html-link-up "../"
:style-include-default nil
:sitemap-filename "index.org"
:sitemap-title "Recipes"
:with-title t
:author-info nil
:creator-info nil
:base-directory "~/org/recipes")
))Capture templates
(setq my-org-capture-templates
`(("t" "TODO"
entry (file+headline "~/org/todo.org" "TODOs")
,(concat
"* TODO %?\n"
":PROPERTIES:\n"
":LOGGING: TODO(!) WAIT(!) DONE(!) CANCELED(!)\n"
":END:\n") :prepend t)
("f" "TODO with File"
entry (file+headline "~/org/todo.org" "TODOs")
,(concat
"* TODO %?\n"
":PROPERTIES:\n"
":LOGGING: TODO(!) WAIT(!) DONE(!) CANCELED(!)\n"
":END:\n"
"%i\n %a") :prepend t)
("b" "Bug"
entry (file+olp+datetree "~/org/bugs.org" "Bugs")
"* BUG %?\nEntered on %U\n :PROPERTIES:\n :FILE: %a\n :END:\n" :prepend t)
("p" "Protocol"
entry (file+headline "~/org/links.org" "Links")
"* %^{Title}\nSource: %u, %c\n #+BEGIN_QUOTE\n%i\n#+END_QUOTE\n\n\n%?")
("L" "Protocol Link" entry (file+headline "~/org/links.org" "Links")
"* %? %:link\n%:description\n")
("j" "Journal"
entry (file+olp+datetree "~/org/journal.org")
"* %?\nEntered on %U\n %i\n")))org
(use-package org
:hook
(org-mode . (lambda ()
(turn-on-flyspell)
(auto-revert-mode)
(auto-fill-mode 1)))
:bind
("C-c c" . org-capture)
("C-c p" . org-publish)
("C-c l" . org-store-link)
("C-c a" . org-agenda)
("C-c b" . org-iswitchb)
:config
(load-library "find-lisp")
(setq org-directory "~/org"
org-agenda-files (find-lisp-find-files "~/org" "\.org$")
org-startup-indented t
org-log-done 'time
org-export-with-sub-superscripts nil
org-html-inline-images t
org-log-into-drawer t
org-src-tab-acts-natively t
org-agenda-skip-scheduled-if-deadline-is-shown t
org-todo-keywords '((sequence "TODO(t)" "|" "DONE(d)")
(sequence "REPORT(r)" "BUG(b)" "KNOWNCAUSE(k)" "|" "FIXED(f)")
(sequence "|" "CANCELED(c)")))
(setq org-publish-project-alist my-org-publish-alist)
(setq org-capture-templates my-org-capture-templates))Extra bits
(use-package org-journal
:defer t
:config
(setq org-journal-dir "~/org/journal/"
org-journal-file-format "%Y/%m-%d"
org-journal-date-format "%A, %d %B %Y"))Add in some org-mode helpers:
org-habitlets me keep track of TODOs and other things.-
org-checklistlets me reset checklists for reoccurring tasks.- This requires one to
pkg_add a2ps. RESET_CHECK_BOXESproperty to be set toton a task headline. (properties can be set viaC-c C-x d
- This requires one to
(require 'org-habit)
;(require 'org-checklist)Found this bad boy to integrate pinboard with org-mode:
(defun org-pinboard-store-link ()
"Store a link taken from a pinboard buffer."
(when (eq major-mode 'pinboard-mode)
(pinboard-with-current-pin pin
(org-store-link-props
:type "pinboard"
:link (alist-get 'href pin)
:description (alist-get 'description pin)))))
(org-link-set-parameters "pinboard"
:follow #'browse-url
:store #'org-pinboard-store-link)Custom agenda commands for various things.
Daily habitsshows how well I am keeping track of daily things.
(setq org-agenda-custom-commands
'(("h" "Daily habits"
((agenda ""))
((org-agenda-show-log t)
(org-agenda-ndays 7)
(org-agenda-log-mode-items '(state))))))