diff options
| -rw-r--r-- | emacs/init.el | 686 |
1 files changed, 686 insertions, 0 deletions
diff --git a/emacs/init.el b/emacs/init.el new file mode 100644 index 0000000..fa52557 --- /dev/null +++ b/emacs/init.el @@ -0,0 +1,686 @@ +(add-to-list 'load-path (expand-file-name (concat user-emacs-directory "site-lisp"))) + +(setq garbage-collection-messages t) + +(setopt user-mail-address "noa@gaiwan.org") + +;; properly distinguish these chords from their ascii legacy +(define-key input-decode-map [?\C-i] [C-i]) +(define-key input-decode-map [?\C-m] [C-m]) + +(use-package tubthumping-theme + :config + (load-theme 'tubthumping t)) + + +(global-set-key (kbd "<backspace>") 'backward-delete-char-untabify) + +;; I make my caps lock a menu key, so i can open the command palette with it +;; https://alexschroeder.ch/wiki/2020-07-16_Emacs_everything + +(define-key context-menu-mode-map (kbd "<menu>") nil) +(global-unset-key (kbd "M-x")) +(global-set-key (kbd "<menu>") 'execute-extended-command) + +(setopt + cursor-type 'bar + minibuffer-depth-indicate-mode t) + +(setopt + browse-url-browser-function 'eww-browse-url + url-cookie-trusted-urls '() + url-cookie-untrusted-urls '(".*")) + + +;;; candidate completion +(use-package vertico + :ensure t + :custom + (vertico-mode t) + (vertico-count 12) + (vertico-cycle t) + (read-buffer-completion-ignore-case t) + (read-file-name-completion-ignore-case t) + (completion-ignore-case t) +) + +(use-package orderless + :ensure t + :custom + (completion-styles '(orderless basic)) + (completion-category-defaults nil) + (completion-category-overrides '((file (styles partial-completion))))) + +(setopt confirm-nonexistent-file-or-buffer 'after-completion) + +(use-package nano-modeline + :ensure t + :hook ( + (prog-mode . nano-modeline-prog-mode) + (text-mode . nano-modeline-text-mode) + (org-mode . nano-modeline-org-mode) + (pdf-view-mode . nano-modeline-pdf-mode) + (mu4e-headers-mode . nano-modeline-mu4e-headers-mode) + (mu4e-view-mode . nano-modeline-mu4e-message-mode) + (term-mode . nano-modeline-term-mode) + (xwidget-webkit-mode . nano-modeline-xwidget-mode) + (messages-buffer-mode . nano-modeline-message-mode) + (org-capture-mode . nano-modeline-org-capture-mode) + (org-agenda-mode . nano-modeline-org-agenda-mode) + ) + :config + (setq-default mode-line-format nil) + ) + +(use-package beacon + :ensure t + :delight + :custom (beacon-mode t)) + +(use-package nov + :ensure t + :mode ("\\.epub\\'" . nov-mode)) + +(use-package shr + :custom + (shr-max-width nil)) + +;; also check out jinx https://github.com/minad/jinx +(use-package spell-fu + :ensure t + :hook (text-mode . spell-fu-mode)) + +(use-package minimap + :ensure t + :custom + (minimap-width-fraction 0.1) + (minimap-minimum-width 10) + (minimap-window-location 'right) + (minimap-update-delay 0.15)) + +;; consult-buffer replaces the buffer menu. as well as listing buffers, it lists bookmarks and recent files. +(use-package consult + :ensure t + :bind ( + ([remap switch-to-buffer] . consult-buffer) + ([remap yank-pop] . consult-yank-pop) + ([remap goto-line] . consult-goto-line)) + :custom + (completion-in-region-function 'consult-completion-in-region) + ) + +(use-package marginalia + :ensure t + :custom + (marginalia-mode t) + (marginalia-max-relative-age most-positive-fixnum) + (marginalia-align 'right)) + + +(global-set-key (kbd "<C-i>") 'completion-at-point) + +;; Add extensions +(use-package cape + :ensure t + :bind + ("C-c p f" . cape-file) + ("C-c p :" . cape-emoji) + :init + (add-hook 'completion-at-point-functions #'cape-file) + (add-hook 'completion-at-point-functions #'cape-dabbrev) + (add-hook 'completion-at-point-functions #'cape-elisp-block) + ;;(add-hook 'completion-at-point-functions #'cape-history) + ;;(add-hook 'completion-at-point-functions #'cape-keyword) + ;;(add-hook 'completion-at-point-functions #'cape-tex) + ;;(add-hook 'completion-at-point-functions #'cape-sgml) + ;;(add-hook 'completion-at-point-functions #'cape-rfc1345) + ;;(add-hook 'completion-at-point-functions #'cape-abbrev) + ;;(add-hook 'completion-at-point-functions #'cape-dict) + ;;(add-hook 'completion-at-point-functions #'cape-elisp-symbol) + ;;(add-hook 'completion-at-point-functions #'cape-line) +) + +(use-package org-roam + :ensure t + :custom + (org-roam-directory (expand-file-name "~/data/notes/")) + (org-roam-completion-everywhere t) + :bind ( + ("C-c n l" . org-roam-buffer-toggle) + ("C-c n f" . org-roam-node-find) + ("C-c n g" . org-roam-graph) + ("C-c n i" . org-roam-node-insert) + ("C-c n c" . org-roam-capture) + ;; Dailies + ("C-c n j" . org-roam-dailies-capture-today) + ) + :custom + ;; If you're using a vertical completion framework, you might want a more informative completion interface + (org-roam-node-display-template (concat "${title:*} " (propertize "${tags:10}" 'face 'org-tag))) + (org-roam-db-autosync-mode t) + :config + (require 'org-roam-protocol) +) + +(use-package org + :custom + (org-startup-indented t) + (org-pretty-entities t) + (org-use-sub-superscripts "{}") + (org-hide-emphasis-markers t) + (org-startup-with-inline-images t) + (org-image-actual-width '(300)) + (org-auto-align-tags nil) + (org-tags-column 0) + (org-catch-invisible-edits 'show-and-error) + (org-special-ctrl-a/e t) + (org-insert-heading-respect-content t) + (org-ellipsis "…") + + (org-agenda-tags-column t) + (org-agenda-block-separator ?─) + (org-agenda-time-grid + '((daily today require-timed) + (800 1000 1200 1400 1600 1800 2000) + " ┄┄┄┄┄ " "┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄")) + (org-agenda-current-time-string + "◀── now ─────────────────────────────────────────────────") + + :custom-face + ;;(org-ellipsis ((t (:inherit default :box nil)))) +) + +(use-package org-appear + :ensure t + :after org + :hook + (org-mode . org-appear-mode)) + +(use-package org-modern + :ensure t + :after org + :hook + (org-mode . org-modern-mode) + (org-agenda-finalize . org-modern-agenda) + :custom + (org-modern-keyword nil) + (org-modern-checkbox nil) + (org-modern-table nil)) + +(use-package olivetti + :ensure t + :hook ( + (text-mode . olivetti-mode) + (eww-after-render . olivetti-mode) + (nov-post-html-render . olivetti-mode) + (mu4e-view-mode . olivetti-mode) + ) +) + +(use-package delight + :ensure t) + +(use-package eldoc + :delight + :custom + (global-eldoc-mode t)) + +(use-package rainbow-mode + :ensure t + :delight + :hook (prog-mode . rainbow-mode)) + +(use-package hyperspace + :disabled + :ensure t + :bind ("<C-m>" . hyperspace)) + +(use-package hyperbole + :disabled + :ensure t) + +;; use a bar cursor and blink it and don't stop blinking it. i don't know how i feel about this yet to be honest, but it helps me know which window is active so for now i'm keeping it +(setopt + cursor-type 'bar + blink-cursor-mode -1 + blink-cursor-interval 0.7) + +(setopt + dired-recursive-deletes 'always + dired-recursive-copies 'always + dired-clean-up-buffers-too nil + delete-by-moving-to-trash t + dired-dwim-target t + dired-listing-switches "-alv") + +;;; indentation: tabs and whitespace settings + +;; my rules for inserting tabs are that the tab key should insert tabs. i personally prefer tabs. spaces don't work for me because then people go trigger happy with alignment, which doesn't really work with proportional fonts. + +;; todo: elastic tabstops +;; https://nickgravgaard.com/elastic-tabstops/ +;; https://github.com/tenbillionwords/spaceship-mode + +;; always insert \t for tab. +(setopt + electric-indent-mode nil + backward-delete-char-untabify-method nil + tab-width 8) + +;; do a naive duplicate whitespace on return, vi/nano style. +(define-key global-map (kbd "TAB") 'self-insert-command) +(defun naive-return-and-indent () + "insert a newline and copy the indentation of the previous line" + (interactive) + (open-line 1) + (let* ((start (progn (beginning-of-line) (point))) + (indent (progn (back-to-indentation) (point))) + (end (progn (end-of-line) (point))) + (whitespace (buffer-substring start indent))) + (delete-trailing-whitespace start end) + (beginning-of-line 2) + (insert whitespace))) +(define-key global-map (kbd "RET") 'naive-return-and-indent) + +;;; interface + +;; we want to make sure that various bits of the interface are hidden. but this isn't an "all gui chrome is useless" rampage. i personally think the scrollbar is useful, i like the visual indication it gives of how far i am through a file. +(setopt + menu-bar-mode nil + tool-bar-mode nil + tooltip-mode nil ;; show tooltips in the echo area + echo-keystrokes 0.1) ;; show chord progress (almost) immediately + +(use-package paren + :custom + (show-paren-mode t) + + ) + +;; populate and enable the context menu +;; (setopt context-menu-functions '( +;; context-menu-ffap +;; occur-context-menu +;; context-menu-region +;; context-menu-undo +;; goto-address-context-menu) +;; context-menu-mode t) +(use-package mouse + :custom + (context-menu-mode t)) + + + +(use-package tab-bar + :disabled + :custom + (tab-bar-mode t) + (tab-bar-format '(tab-bar-format-align-right tab-bar-format-global tab-bar-format-menu-bar)) + + ) + + +(use-package font-lock + :custom + (global-font-lock-mode t) + (font-lock-maximum-decoration nil)) + +(setopt + display-time-mode t + display-battery-mode t + inhibit-startup-screen t + mouse-drag-and-drop-region nil + mouse-yank-at-point t + delete-selection-mode nil ;; deleting should be an explicit action + ) + +(global-set-key (kbd "C-t") 'tab-new) + +;; shift click to select region with the mouse. This annoyingly rings the bell for an error +(global-unset-key (kbd "S-<down-mouse-1>")) +(global-set-key (kbd "S-<down-mouse-1>") 'mouse-save-then-kill) + +;;; packages +(setopt package-archives '( + ("gnu" . "https://elpa.gnu.org/packages/") + ("nongnu" . "https://elpa.nongnu.org/nongnu/") + ("melpa-stable" . "https://stable.melpa.org/packages/") + ("melpa" . "https://melpa.org/packages/"))) + +;;; saving + +;; backups are pointless in long emacs sessions imo, but autosaves are useful +(setopt make-backup-files nil + backup-by-copying t + create-lockfiles nil + auto-save-mode 1 + auto-save-interval 20 ;; every twenty keystrokes + auto-save-timeout 5 ;; every 5 seconds + auto-save-default t + auto-save-no-message t + version-control t + auto-save-visited-mode t) +(add-hook 'focus-out-hook (lambda () (interactive) (save-some-buffers t))) +(add-hook 'mouse-leave-buffer-hook (lambda () (interactive) (save-some-buffers t))) + +;;; scrolling +(setopt + mouse-wheel-scroll-amount '(1 ((shift) . 1)) + mouse-wheel-progressive-speed nil + mouse-wheel-follow-mouse 't + scroll-step 1 + pixel-scroll-precision-mode t + pixel-scroll-precision-use-momentum t) + + +;;; sentences +(setopt sentence-end-double-space nil) + +;;; spellcheck +(setopt + flyspell-mode t + ispell-program-name "aspell" + ispell-dictionary "en_GB" + ispell-extra-args '("--sug-mode=ultra") + require-final-newline t + window-min-height 1 + window-combination-resize t + window-resize-pixelwise t + frame-resize-pixelwise t) + +;;; history +(setopt + history-length 250 + kill-ring-max 25) + +(use-package savehist + :custom + (savehist-file "~/.config/emacs/savehist") + (savehist-additional-variables '( + kill-ring + command-history + set-variable-value-history + custom-variable-history + query-replace-history + read-expression-history + minibuffer-history + read-char-history + face-name-history + bookmark-history + file-name-history)) + (savehist-mode t)) + +(use-package frame + :custom + (window-divider-mode t) + (window-divider-default-right-width 1) + (window-divider-default-bottom-width 1) + (window-divider-default-places t) + ) + +(use-package emacs + :init + ;; Add prompt indicator to `completing-read-multiple'. + ;; We display [CRM<separator>], e.g., [CRM,] if the separator is a comma. + (defun crm-indicator (args) + (cons (format "[CRM%s] %s" + (replace-regexp-in-string + "\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" "" + crm-separator) + (car args)) + (cdr args))) + (advice-add #'completing-read-multiple :filter-args #'crm-indicator) + + ;; Do not allow the cursor in the minibuffer prompt + (setq minibuffer-prompt-properties + '(read-only t cursor-intangible t face minibuffer-prompt)) + (add-hook 'minibuffer-setup-hook #'cursor-intangible-mode) + + :custom + ;; Support opening new minibuffers from inside existing minibuffers. + (enable-recursive-minibuffers t) + (debug-on-error t) + + ;; Hide commands in M-x which do not work in the current mode. + (read-extended-command-predicate 'command-completion-default-include-p)) + +(setopt + recentf-max-menu-items 25 + recentf-save-file "~/.config/emacs/recentf" + recentf-mode 1 + bookmark-default-file "~/.config/emacs/bookmarks") + + + +;;; miscellaneous +(setopt + save-place-mode 1) + +(use-package goto-addr + :custom + (global-goto-address-mode t) + (goto-address-mail-face 'link) + (goto-address-mail-mouse-face 'link) + (goto-address-url-face 'link) + (goto-address-url-mouse-face 'link) +) + +(setenv "PAGER" "cat") +(setenv "TERM" "dumb") +(setenv "GPG_AGENT_INFO" nil) +(defalias 'yes-or-no-p 'y-or-n-p) +(setq disabled-command-function nil) +(setopt custom-file (make-temp-file "custom")) +(setq inhibit-startup-echo-area-message "noa") ;; #userfreedom + +(use-package simple + :delight visual-line-mode + :custom + (global-visual-line-mode t)) + +(setopt + kill-whole-line t + uniquify-after-kill-buffer-p t + uniquify-buffer-name-style 'forward + uniquify-ignore-buffers-re "^\\*" + uniquify-separator "/") + +(setopt + save-interprogram-paste-before-kill t + apropos-do-all t + mouse-yank-at-point t + require-final-newline t + visible-bell t + load-prefer-newer t + frame-inhibit-implied-resize t + ediff-window-setup-function 'ediff-setup-windows-plain) + +(load "server") +(unless (server-running-p) (server-start)) + +(setopt help-at-pt-display-when-idle t) + +;;; search +;; search without regard for unicode characters +(setopt search-default-mode 'char-fold-to-regexp + replace-char-fold t + search-highlight t + isearch-lazy-highlight t) +;; when exiting isearch after a match, put the cursor at the beginning of the search rather than the end +(setq isearch-mode-end-hook '(goto-beginning-of-search)) +(defun goto-beginning-of-search () + "positions the point at the beginning of the isearch match" + (when (and (not isearch-mode-end-hook-quit) + isearch-forward) + (goto-char isearch-other-end))) +;; wrap searches +(setopt isearch-wrap-pause 'no-ding) +;; jump straight to previous match when change search direction +(setopt isearch-repeat-on-direction-change t) + +(use-package ctrlf + :ensure t + :bind ( + ([remap isearch-forward] . ctrlf-forward-default) + ([remap isearch-backward] . ctrlf-backward-default) + ([remap isearch-forward-regexp] . ctrlf-forward-alternate) + ([remap isearch-backward-regexp] . ctrlf-backward-alternate) + ([remap isearch-forward-symbol] . ctrlf-forward-symbol) + ([remap isearch-forward-symbol-at-point] . ctrlf-forward-symbol-at-point) + ) + :custom + (ctrlf-go-to-end-of-match nil "It makes more sense to go to the start of the match, because i start searching where i want to be.") +) + +(global-set-key (kbd "M-o") 'other-window) + +(global-set-key (kbd "C-x k") 'kill-this-buffer) + +;; undo C-/ +;; redo C-S-/ +(setopt undo-no-redo t) + +;; mu4e +(use-package mu4e + :custom + (mu4e-headers-skip-duplicates t) + (mu4e-view-show-images t) + (mu4e-view-show-addresses t) + (mu4e-compose-format-flowed nil) + (mu4e-change-filenames-when-moving t) + (mu4e-use-fancy-chars nil) + (mu4e-confirm-quit nil) + (mu4e-headers-leave-behavior 'apply) + (mu4e-headers-precise-alignment t) + (mu4e-search-threads nil) + (mu4e-hide-index-messages t) + (mu4e-get-mail-command "mbsync -c ~/.config/mbsyncrc fastmail") + (mu4e-maildir "~/data/mail") + (mu4e-drafts-folder "/Drafts") + (mu4e-sent-folder "/Sent") + (mu4e-refile-folder "/Archive") + (mu4e-trash-folder "/Trash") + (mu4e-bookmarks '( + (:name "Waiting room" :query "\"maildir:/Waiting room\"" :key ?w) + (:name "Inbox" :query "maildir:/Inbox" :key ?i) + (:name "Feeds" :query "maildir:/Feeds" :key ?f) + (:name "Paper trail" :query "\"maildir:/Paper trail\"" :key ?p))) + + :bind ( + :map mu4e-headers-mode-map + ("d" . my-move-to-trash) + :map mu4e-view-mode-map + ("d" . my-move-to-trash) + ) + :init + (fset 'my-move-to-trash "mTrash") ;; function to move mails to trash + :custom-face + ) + +(use-package button + :custom-face + ;;(button ((t (:underline t :foreground unspecified)))) + ) + +(use-package faces + :custom-face + ;; (link ((t (:underline t :foreground unspecified)))) + ;; (fringe ((t (:background unspecified)))) + ;; (mode-line ((t (:background unspecified :box 2)))) + ;; (mode-line-active ((t (:inverse-video t)))) + ;; (mode-line-inactive ((t (:background unspecified :box 2 :weight unspecified)))) + ;; (help-key-binding ((t (:inherit default :background unspecified :foreground unspecified :box 1)))) + ) + +(global-set-key (kbd "M-z") 'zap-up-to-char) + +(use-package markdown-mode + :ensure t + :mode ("\\.md\\'" . markdown-mode) + ) +(use-package valign + :ensure t + :after markdown-mode + :hook (markdown-mode . valign-mode)) + + +;;; TOUCHSCREEN +;; this should be obsolete in emacs 30 +;; Copyright 2024-present Naheel Azawy. All rights reserved. +(defvar touchscreen-last-time) +(defvar touchscreen-last-pos-pixel) +(defvar touchscreen-last-dist 0) +(defvar touchscreen-begin-char) + +(defun touchscreen-time () + "Time in seconds." + (time-convert (current-time) 'integer)) + +(defun touchscreen-handle-touch-begin (input) + "Handle touch begining at input INPUT." + (interactive "e") + (let* ((event (nth 1 input)) + (pos-pixel (nth 3 event)) + (pos-char (nth 6 event)) + (win (nth 1 event))) + ;; (message (format "%s" input)) + (if (not (equal (selected-window) win)) + ;; switch window + (select-window win)) + ;; set globals + (setq touchscreen-last-time (touchscreen-time)) + (setq touchscreen-last-pos-pixel pos-pixel) + (setq touchscreen-begin-char pos-char) + )) + +(defun touchscreen-handle-touch-update (input) + "Handle touch update at input INPUT." + (interactive "e") + (let* ((event (nth 0 (nth 1 input))) + (pos-pixel (nth 3 event)) + (pos-char (nth 6 event)) + (diff-time (- (touchscreen-time) touchscreen-last-time)) + (diff-pixel (- (cdr touchscreen-last-pos-pixel) (cdr pos-pixel))) + (diff-char (abs (- touchscreen-begin-char pos-char)))) + + (if (= (length (nth 1 input)) 2) + ;; pinch zoom + (let* ((event2 (nth 1 (nth 1 input))) + (pos-pixel2 (nth 3 event2)) + (dist (sqrt (+ (expt (- (car pos-pixel2) (car pos-pixel)) 2) + (expt (- (cdr pos-pixel2) (cdr pos-pixel)) 2)))) + (dist-diff (- dist touchscreen-last-dist))) + (setq touchscreen-last-dist dist) + (if (> dist-diff 0) + (text-scale-increase 0.1) + (if (< dist-diff 0) + (text-scale-decrease 0.1))) + ) + + (if (> diff-time 1) + ;; TODO: set marker on long press + (goto-char pos-char)) + (if (> diff-char 1) + ;; scroll + (progn + (move-to-window-line nil) + (if (> diff-pixel 0) + (pixel-scroll-pixel-up diff-pixel) + (if (< diff-pixel 0) + (pixel-scroll-pixel-down (* -1 diff-pixel)))) + (setq touchscreen-last-time (touchscreen-time)) + (setq touchscreen-last-pos-pixel pos-pixel)) + )))) + +(defun touchscreen-handle-touch-end (input) + "Handle touch end at input INPUT." + (interactive "e") + (let* ((event (nth 1 input)) + (pos-char (nth 6 event))) + (if (= touchscreen-begin-char pos-char) + ;; move cursor + (goto-char pos-char)))) + +(global-set-key [touchscreen-begin] #'touchscreen-handle-touch-begin) +(global-set-key [touchscreen-update] #'touchscreen-handle-touch-update) +(global-set-key [touchscreen-end] #'touchscreen-handle-touch-end) |