151 lines
4.4 KiB
EmacsLisp
151 lines
4.4 KiB
EmacsLisp
;;; ~/.config/doom/config.el -*- lexical-binding: t; -*-
|
|
|
|
;; (defvar xdg-data (getenv "XDG_DATA_HOME"))
|
|
;; (defvar xdg-bin (getenv "XDG_BIN_HOME"))
|
|
;; (defvar xdg-cache (getenv "XDG_CACHE_HOME"))
|
|
;; (defvar xdg-config (getenv "XDG_CONFIG_HOME"))
|
|
|
|
(add-to-list 'default-frame-alist '(inhibit-double-buffering . t))
|
|
|
|
(setq user-full-name "Colin Powell"
|
|
user-mail-address "colin@onec.me"
|
|
|
|
doom-theme 'nimbus
|
|
doom-font (font-spec :family "Iosevka" :size 16)
|
|
doom-big-font (font-spec :family "Iosevka" :size 22))
|
|
|
|
;;
|
|
;; Host-specific config
|
|
|
|
(pcase (system-name)
|
|
("halimede"
|
|
(font-put doom-font :size 9)) ; smaller display
|
|
("triton"
|
|
;; I've swapped these keys on my keyboard
|
|
(setq x-super-keysym 'meta
|
|
x-meta-keysym 'super)))
|
|
|
|
(when IS-LINUX
|
|
(font-put doom-font :weight 'semi-light))
|
|
(when IS-MAC
|
|
(setq ns-use-thin-smoothing t))
|
|
|
|
|
|
;;
|
|
;; Keybinds
|
|
|
|
;;:m "M-j" '+hlissner:multi-next-line
|
|
;;:m "M-k" '+hlissner:multi-previous-line
|
|
(map! ;; Easier window movement
|
|
:n "C-h" 'evil-window-left
|
|
:n "C-j" 'evil-window-down
|
|
:n "C-k" 'evil-window-up
|
|
:n "C-l" 'evil-window-right
|
|
|
|
(:map evil-treemacs-state-map
|
|
"C-h" 'evil-window-left
|
|
"C-l" 'evil-window-right)
|
|
|
|
(:when IS-LINUX
|
|
"s-x" #'execute-extended-command
|
|
"s-;" #'eval-expression
|
|
;; use super for window/frame navigation/manipulation
|
|
"s-w" #'delete-window
|
|
"s-W" #'delete-frame
|
|
"s-n" #'+default/new-buffer
|
|
"s-j" #'org-move-subtree-down
|
|
"s-k" #'org-move-subtree-up
|
|
"s-N" #'make-frame
|
|
"s-q" (if (daemonp) #'delete-frame #'evil-quit-all)
|
|
;; Restore OS undo, save, copy, & paste keys (without cua-mode, because
|
|
;; it imposes some other functionality and overhead we don't need)
|
|
"s-z" #'undo
|
|
"s-c" (if (featurep 'evil) #'evil-yank #'copy-region-as-kill)
|
|
"s-v" #'yank
|
|
"s-s" #'save-buffer
|
|
;; Buffer-local font scaling
|
|
"s-+" (λ! (text-scale-set 0))
|
|
"s-=" #'text-scale-increase
|
|
"s--" #'text-scale-decrease
|
|
;; Conventional text-editing keys
|
|
"s-a" #'mark-whole-buffer
|
|
:gi [s-return] #'+default/newline-below
|
|
:gi [s-S-return] #'+default/newline-above
|
|
:gi [s-backspace] #'doom/backward-kill-to-bol-and-indent)
|
|
|
|
:leader
|
|
(:prefix "j"
|
|
:desc "Dumb jump to def" "g" #'dumb-jump-go
|
|
:desc "Dumb jump back" "b" #'dumb-jump-back)
|
|
(:prefix "f"
|
|
:desc "Find file in dotfiles" "t" #'+hlissner/find-in-dotfiles
|
|
:desc "Browse dotfiles" "T" #'+hlissner/browse-dotfiles)
|
|
(:prefix "t"
|
|
:desc "Switch themes" "t" #'load-theme)
|
|
(:prefix "o"
|
|
:desc "Elfeed feed reader" "f" #'elfeed)
|
|
(:prefix "p"
|
|
:desc "Black buffer" "b" #'blacken-buffer)
|
|
(:prefix "/"
|
|
:desc "Search the web" "w" #'web-search)
|
|
(:prefix "y"
|
|
:desc "Yank pop!" "p" #'counsel-yank-pop
|
|
:desc "Git yank link" "g" #'git-link))
|
|
|
|
;; app/rss
|
|
(add-hook! 'elfeed-show-mode-hook (text-scale-set 1.5))
|
|
|
|
;; app/search
|
|
(after! web-search
|
|
(push '("Searx" "http://search.unbl.ink/?q=%s")
|
|
web-search-providers)
|
|
(setq web-search-default-provider "Searx"))
|
|
|
|
(after! beacon
|
|
(beacon-mode 1))
|
|
|
|
;;
|
|
;; Modules
|
|
|
|
(setq +workspaces-switch-project-function #'ignore
|
|
+format-on-save-enabled-modes '(python-mode)
|
|
+pretty-code-enabled-modes '(emacs-lisp-mode org-mode))
|
|
|
|
;; app/mpdel
|
|
;;
|
|
(setq libmpdel-hostname "play.unbl.ink")
|
|
|
|
;; app/rss
|
|
(add-hook! 'elfeed-show-mode-hook (text-scale-set 2))
|
|
(setq rmh-elfeed-org-files (list "~/org/elfeed.org"))
|
|
|
|
;; emacs/eshell
|
|
(after! eshell
|
|
(set-eshell-alias!
|
|
"f" "(other-window 1) && find-file $1"
|
|
"l" "ls -lh"
|
|
"d" "dired $1"
|
|
"gl" "(call-interactively 'magit-log-current)"
|
|
"gs" "magit-status"
|
|
"gc" "magit-commit"))
|
|
|
|
;; tools/magit
|
|
(setq magit-repository-directories '(("~/work" . 2))
|
|
magit-save-repository-buffers nil)
|
|
|
|
;;; Setup sending email with msmtp
|
|
(setq send-mail-function 'sendmail-send-it
|
|
sendmail-program "/usr/local/bin/msmtp"
|
|
mail-specify-envelope-from t
|
|
message-sendmail-envelope-from 'header
|
|
mail-envelope-from 'header)
|
|
|
|
;; tools/org
|
|
(load! "+org") ;; Org mode stuff like todos and rebindings
|
|
(load! "+org-gcal")
|
|
|
|
;; other
|
|
(load! "+mail") ;; Mail stuff
|
|
(load! "+ranger")
|
|
(load! "+wttrin") ;; Weather config
|