Add init.el

1 files changed, 373 insertions, 0 deletions

@@ -0,0 +1,373 @@
+;; init.el ~ acdw
+
+(server-start)
+(setq custom-file (concat user-emacs-directory "custom.el"))
+
+;;; bootstrap packages
+(require 'package)
+(setq package-user-dir (concat user-emacs-directory "elpa"))
+(add-to-list 'package-archives '("gnu" . "https://elpa.gnu.org/packages/"))
+(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))
+(add-to-list 'package-archives '("org" . "https://orgmode.org/elpa/"))
+(unless package--initialized (package-initialize))
+;; bootstrap quelpa
+(unless (package-installed-p 'quelpa)
+  (with-temp-buffer
+    (url-insert-file-contents "https://raw.githubusercontent.com/quelpa/quelpa/master/quelpa.el")
+    (eval-buffer)
+    (quelpa-self-upgrade)))
+;; quelpa config
+(setq quelpa-git-clone-depth nil)
+;; quelpa-use-package
+(quelpa
+ '(quelpa-use-package
+   :fetcher git
+   :url "https://github.com/quelpa/quelpa-use-package.git"))
+(require 'quelpa-use-package)
+
+;;; packages
+;; use-package helpers
+(use-package use-package-ensure-system-package
+  :ensure)
+
+;; emacs
+(use-package emacs
+  :custom
+  (user-full-name "Case Duckworth")
+  (user-mail-address "acdw@acdw.net")
+  (inhibit-startup-screen t)
+  (initial-scratch-message "")
+  (visible-bell nil)
+  (frame-title-format
+   '((:eval (if (buffer-file-name)
+                 (abbreviate-file-name (buffer-file-name))
+              "%b"))))
+  (display-time-format " %H:%M ")
+  (display-time-default-load-average nil)
+  (show-paren-style 'mixed)
+  (backup-directory-alist
+   `((".*" . ,(concat user-emacs-directory "saves/"))))
+  (delete-old-versions t)
+  (kept-new-versions 10)
+  (kept-old-versions 10)
+  (version-control t)
+  (auto-save-file-name-transforms
+   `((".*" ,(concat user-emacs-directory "saves/") t)))
+  (create-lockfiles nil)
+  (scroll-conservatively 100)
+  (calendar-latitude 30.39)
+  (calendar-longitude -91.83)
+  (show-paren-style 'mixed)
+  :config
+  (display-time-mode 1)
+  (line-number-mode 1)
+  (column-number-mode 1)
+  (blink-cursor-mode 0)
+  (delete-selection-mode 1)
+  (global-auto-revert-mode t)
+  (prefer-coding-system 'utf-8)
+  (set-default-coding-systems 'utf-8)
+  (set-terminal-coding-system 'utf-8)
+  (set-keyboard-coding-system 'utf-8)
+  (fset 'yes-or-no-p 'y-or-n-p)
+  (global-prettify-symbols-mode t)
+  (menu-bar-mode -1)
+  (tool-bar-mode -1)
+  (scroll-bar-mode -1)
+  (fringe-mode 1)
+  (show-paren-mode 1)
+  :hook
+  ((beforpe-save . delete-trailing-whitespace)
+   (prog-mode . (lambda ()
+                  (if (and (fboundp 'display-line-numbers-mode)
+                           (display-graphic-p))
+                      #'display-line-numbers-mode
+                    #'linum-mode))))
+  :bind
+  (("C-z" . nil)))
+
+;; delight
+(use-package delight
+  :ensure)
+
+;; modeline
+(use-package all-the-icons
+  :ensure
+  :config
+  (set-face-attribute 'mode-line nil :height 100)
+  (set-face-attribute 'mode-line-inactive nil :height 100)
+  :custom
+  (all-the-icons-scale-factor 1.0))
+
+(use-package doom-modeline
+  :ensure
+  :custom
+  (doom-modeline-height 16)
+  (doom-modeline-enable-word-count t)
+  (doom-modeline-mu4e t)
+  (doom-modeline-gnus nil)
+  (doom-modeline-irc t)
+  :config
+  (doom-modeline-mode t))
+
+;; themes
+(use-package modus-operandi-theme
+  :if window-system
+  :ensure
+  :custom
+  (modus-operandi-theme-slanted-constructs t)
+  (modus-operandi-theme-bold-constructs t)
+  (modus-operandi-theme-3d-modeline t)
+  :config
+  (load-theme 'modus-operandi t t)
+  (run-at-time (nth 1 (split-string (sunrise-sunset)))
+               (* 60 60 24)
+               (lambda () (enable-theme 'modus-operandi))))
+
+(use-package modus-vivendi-theme
+  :if window-system
+  :ensure
+  :custom
+  (modus-vivendi-theme-slanted-constructs t)
+  (modus-vivendi-theme-bold-constructs t)
+  (modus-vivendi-theme-3d-modeline t)
+  :config
+  (load-theme 'modus-vivendi t t)
+  (run-at-time (nth 4 (split-string (sunrise-sunset)))
+               (* 60 60 24)
+               (lambda () (enable-theme 'modus-vivendi))))
+
+;; minibuffer completion
+(use-package ivy
+  :ensure
+  :delight
+  :custom
+  (ivy-use-virtual-buffers t)
+  (ivy-wrap t)
+  (ivy-count-format "(%d/%d) ")
+  (enable-recursive-minibuffers t)
+  :config
+  (ivy-mode 1))
+
+(use-package swiper
+  :ensure
+  :delight
+  :bind ("C-s" . swiper-isearch))
+
+(use-package counsel
+  :ensure
+  :delight
+  :config
+  (counsel-mode 1))
+
+(use-package ivy-rich
+  :ensure
+  :after (ivy)
+  :config
+  (ivy-rich-mode 1)
+  (setcdr (assq t ivy-format-functions-alist) #'ivy-format-function-line))
+
+(use-package savehist
+  :ensure
+  :config
+  (savehist-mode 1))
+
+(use-package ivy-dired-history
+  :after (ivy)
+  :config
+  (add-to-list 'savehist-additional-variables 'ivy-dired-history-variable))
+
+;; completion
+(use-package company
+  :ensure
+  :delight
+  :custom
+  (company-idle-delay 0.2)
+  :hook
+  (after-init . global-company-mode))
+
+;; undo
+(use-package undo-tree
+  :ensure
+  :config
+  (global-undo-tree-mode))
+
+;; git
+(use-package magit
+  :ensure
+  :custom
+  (magit-push-always-verify nil)
+  (git-commit-summary-max-length 50)
+  :bind
+  ("M-g" . magit-status))
+
+;; irc
+(defun my/fetch-password (&rest params)
+  "fetch a password from auth-sources"
+  (require 'auth-source)
+  (let ((match (car (apply 'auth-source-search params))))
+    (if match
+        (let ((secret (plist-get match :secret)))
+          (if (functionp secret)
+              (funcall secret)
+            secret))
+      (error "Password not found for %S" params))))
+
+(defun my/sasl-password (nick server)
+  "fetch an sasl password for $server"
+  (my/fetch-password :user nick :host server))
+
+(use-package circe
+  :ensure
+  :custom
+  (circe-network-options
+   `(("Freenode"
+      :tls t
+      :port 6697
+      :nick "acdw"
+      :sasl-username "acdw"
+      :sasl-password ,(my/sasl-password "acdw" "irc.freenode.net")
+      :channels ("#emacs" "#emacs-circe" "#daydreams"))
+     ("Tilde.chat"
+      :tls t
+      :port 6697
+      :nick "acdw"
+      :sasl-username "acdw"
+      :sasl-password ,(my/sasl-password "acdw" "irc.tilde.chat")
+      :channels ("#gemini" "#meta"))))
+  :custom-face
+  (circe-my-message-face ((t (:foreground "dark violet")))))
+      
+
+;; mail
+(use-package mu4e
+  :ensure-system-package mu ; TODO ensure mu4e is also installed
+  :load-path "/usr/share/emacs/site-lisp/mu4e"
+  :custom
+  (mu4e-headers-skip-duplicates t)
+  (mu4e-view-show-images t)
+  (mu4e-view-show-addresses t)
+  (mu4e-compose-format-flowed t)
+  (mu4e-date-format "%Y-%m-%d")
+  (mu4e-headers-date-format "%Y-%m-%d")
+  (mu4e-change-filenames-when-moving t)
+  (mu4e-attachments-dir "~/Downloads")
+  (message-kill-buffer-on-exit t)
+  (mu4e-update-interval (* 60 60))
+  (mu4e-maildir "~/Mail/fastmail")
+  (mu4e-refile-folder "/Archive")
+  (mu4e-sent-folder "/Sent")
+  (mu4e-drafts-folder "/Drafts")
+  (mu4e-trash-folder "/Trash")
+  (message-send-mail-function 'smtpmail-send-it)
+  (smtpmail-default-smtp-server "smtp.fastmail.com")
+  (smtpmail-smtp-server "smtp.fastmail.com")
+  (smtpmail-smtp-service 465)
+  (smtpmail-stream-type 'ssl)
+  :config
+  (fset 'my-move-to-trash "mTrash")
+  (define-key mu4e-headers-mode-map (kbd "d") 'my-move-to-trash)
+  (define-key mu4e-view-mode-map (kbd "d") 'my-move-to-trash))
+
+;; gemini/gopher
+(use-package elpher
+  :quelpa
+  (elpher
+    :fetcher git
+    :url "git://thelambdalab.xyz/elpher.git"))
+
+(use-package visual-fill-column
+  :ensure)
+
+(use-package gemini-mode
+  :after visual-fill-column
+  :quelpa
+  (gemini-mode
+    :fetcher git
+    :url "https://git.carcosa.net/jmcbray/gemini.el.git"))
+
+(use-package gemini-write
+  :after gemini-mode
+  :quelpa
+  (gemini-write
+    :fetcher git
+    :url "https://alexschroeder.ch/cgit/gemini-write"))
+
+;; window manager
+(use-package exwm
+  :ensure
+  :demand
+  :custom
+  (exwm-layout-show-all-buffers t)
+  (mouse-autoselect-window t)
+  (focus-follows-mouse t)
+  (exwm-workspace-number 1)
+  (exwm-input-global-keys
+        `(
+          ([?\s-r] . exwm-reset)
+          ([?\s-w] . exwm-workspace-switch)
+          ([?\s-&] . (lambda (command)
+                       (interactive (list (read-shell-command "$ ")))
+                       (start-process-shell-command command nil command)))
+          ,@(mapcar (lambda (i)
+                      `(,(kbd (format "s-%d" i)) .
+                        (lambda ()
+                          (interactive)
+                          (exwm-workspace-switch-create ,i))))
+                    (number-sequence 0 9))))
+  (exwm-input-simulation-keys
+        '(([?\C-b] . [left])
+          ([?\C-f] . [right])
+          ([?\C-p] . [up])
+          ([?\C-n] . [down])
+          ([?\C-a] . [home])
+          ([?\C-e] . [end])
+          ([?\M-v] . [prior])
+          ([?\C-v] . [next])
+          ([?\C-d] . [delete])
+          ([?\C-k] . [S-end delete])))
+  :hook
+  ((exwm-update-class .
+                      (lambda () "Rename buffer to window's class name"
+                        (exwm-workspace-rename-buffer exwm-class-name)))
+   (exwm-update-title .
+                      (lambda () "Update workspace name to window title"
+                        (when (not exwm-instance-name)
+                          (exwm-workspace-rename-buffer exwm-title))))
+   (exwm-manage-finish .
+                       (lambda () "Disable simulation keys for Firefox"
+                         (when (and exwm-class-name
+                                    (string= exwm-class-name "Firefox"))
+                           (exwm-input-set-local-simulation-keys nil)))))
+  :config
+  (exwm-enable)
+  (require 'exwm-systemtray)
+  (exwm-systemtray-enable))
+
+(use-package exwm-mff
+  :ensure
+  :hook (exwm-init . exwm-mff-mode))
+
+(use-package exwm-edit
+  :ensure)
+
+(use-package desktop-environment
+  :ensure
+  :hook (exwm-init . desktop-environment-mode)
+  :custom
+  (desktop-environment-update-exwm-global-keys :global)
+  (desktop-environment-brightness-get-command "light")
+  (desktop-environment-brightness-set-command "light %s")
+  (desktop-environment-brightness-get-regexp "^\\([0-9]+\\)")
+  (desktop-environment-brightness-normal-increment "-A 10")
+  (desktop-environment-brightness-normal-decrement "-U 10")
+  (desktop-environment-brightness-small-increment "-A 5")
+  (desktop-environment-brightness-small-decrement "-U 5")
+  (desktop-environment-volume-get-command "pavolume get")
+  (desktop-environment-volume-set-command "pavolume %s")
+  (desktop-environment-volume-toggle-command "pavolume mute toggle")
+  (desktop-environment-volume-get-regexp "^\\([0-9]+\\)")
+  (desktop-environment-volume-normal-increment "inc 10")
+  (desktop-environment-volume-normal-decrement "dec 10")
+  (desktop-environment-volume-small-increment "inc 5")
+  (desktop-environment-volume-small-decrement "dec 5"))