infrastructure

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README

init.el (1911B)


      1 ;; -*- lexical-binding: t -*-
      2 
      3 ;; Utilities
      4 (require 'which-key)
      5 (which-key-mode)
      6 
      7 (savehist-mode 1)
      8 (pending-delete-mode 1)
      9 (setq undo-tree-auto-save-history t)
     10 
     11 (setq org-agenda-files '("~/notes/work/daily.org" "~/notes/books.org"))
     12 
     13 ;; Appearance
     14 (load-theme 'modus-operandi-tinted)
     15 
     16 (set-face-attribute 'default nil :font "Jetbrains Mono Nerd Font" :height 140)
     17 (add-to-list 'default-frame-alist '(ns-transparent-titlebar . t))
     18 (add-to-list 'default-frame-alist '(ns-appearance . dark))
     19 (setq inhibit-startup-message t)
     20 (setq initial-scratch-message "")
     21 (menu-bar-mode -1)
     22 (tool-bar-mode -1)
     23 (tooltip-mode -1)
     24 (scroll-bar-mode -1)
     25 (set-fringe-mode 10)
     26 
     27 ;; LSP
     28 (add-hook 'python-mode-hook 'eglot-ensure)
     29 
     30 (global-set-key (kbd "C-c l") 'org-store-link)
     31 (global-set-key (kbd "C-c a") 'org-agenda)
     32 (global-set-key (kbd "C-c c") 'org-capture)
     33 
     34 ;; expand-region
     35 (require 'expand-region)
     36 (global-set-key (kbd "C-=") 'er/expand-region)
     37 
     38 ;; notmuch
     39 (require 'notmuch)
     40 (setq mail-user-agent 'notmuch-user-agent)
     41 (setq notmuch-fcc-dirs '(("silas@silasbrack.com" . "silasbrack/Sent")
     42                           ("silasbrack@gmail.com" . "gmail/[Gmail]/Sent Mail")))
     43 (setq notmuch-saved-searches
     44       '((:name "inbox" :query "tag:inbox" :key "i")
     45         (:name "silasbrack" :query "folder:silasbrack/INBOX" :key "s")
     46         (:name "gmail" :query "folder:gmail/INBOX" :key "g")
     47         (:name "sent" :query "tag:sent" :key "t")
     48         (:name "unread" :query "tag:unread" :key "u")))
     49 (setq notmuch-search-oldest-first nil)
     50 (setq message-send-mail-function 'message-send-mail-with-sendmail)
     51 (setq sendmail-program "msmtp")
     52 (setq message-sendmail-extra-arguments '("--read-envelope-from"))
     53 (setq message-sendmail-f-is-evil t)
     54 (setq user-mail-address "silas@silasbrack.com")
     55 (setq user-full-name "Silas Brack")
     56 (global-set-key (kbd "C-c m") 'notmuch)
     57 
     58 ;; keepass
     59 (require 'keepass-mode)
     60 
     61 ;; pdf-tools
     62 (pdf-loader-install)