3236 lines
133 KiB
EmacsLisp
3236 lines
133 KiB
EmacsLisp
;;; Init.el --- Daniel's Emacs Configuration -*- lexical-binding: t -*-
|
||
|
||
;;; Commentary:
|
||
|
||
;; This is the main entry point for Emacs to load this configuration. The
|
||
;; structure is roughly as follows:
|
||
;; - first comes some preliminary setup, mostly setting up `package’;
|
||
;; - the main activation of the configuration is done in the function
|
||
;; `db/run-init’, which is installed in `after-init-hook’; it is thus run
|
||
;; after init.el has been read
|
||
;; - then comes setting up all the packages that can be used by this
|
||
;; configuration; most of these packages are not loaded however, and only
|
||
;; configuration hooks are installed (using `use-package’); this way a user
|
||
;; can choose in `db/run-init’ which configuration to activate without
|
||
;; changing much of the rest of the file.
|
||
;; - this file also introduces a new customization group `personal-settings’
|
||
;; containing variables (mostly file paths) that must be set to enable some
|
||
;; of the provided functionality.
|
||
|
||
;;; Code:
|
||
|
||
|
||
;;* Preliminaries (constants and path settings)
|
||
|
||
(when (version< emacs-version "30")
|
||
(error "Emacs version is too old! We need at least Emacs 30, but this is %s"
|
||
emacs-version))
|
||
|
||
(defconst emacs-d (file-name-directory
|
||
(file-chase-links load-file-name))
|
||
"The giant turtle on which the world rests.")
|
||
|
||
(add-to-list 'load-path (expand-file-name "site-lisp" emacs-d))
|
||
|
||
(defvar emacs-d-userdata (expand-file-name "private/" emacs-d)
|
||
"Directory to store user data in.")
|
||
|
||
;; Ensure that `emacs-d-userdata' exists as a directory, because we want to
|
||
;; store data there.
|
||
(unless (file-directory-p emacs-d-userdata)
|
||
(make-directory emacs-d-userdata))
|
||
|
||
(setq custom-file (expand-file-name "custom.el" emacs-d-userdata)
|
||
custom-theme-directory (expand-file-name "themes/" emacs-d))
|
||
|
||
(defconst on-windows (memq system-type '(windows-nt cygwin))
|
||
"Non-nil if and only if this instance of Emacs runs on Windows.")
|
||
|
||
|
||
;;* Packages
|
||
|
||
(defvar use-package-enable-imenu-support t)
|
||
|
||
(require 'use-package)
|
||
(require 'bind-key)
|
||
|
||
(setopt use-package-always-defer t
|
||
use-package-verbose t
|
||
use-package-minimum-reported-time 0.01)
|
||
|
||
(when init-file-debug
|
||
(setopt use-package-expand-minimally nil
|
||
use-package-compute-statistics t
|
||
debug-on-error t))
|
||
|
||
(use-package package
|
||
:init (setopt package-archives
|
||
'(("melpa" . "https://melpa.org/packages/")
|
||
("gnu" . "https://elpa.gnu.org/packages/")
|
||
("melpa-stable" . "https://stable.melpa.org/packages/")
|
||
("nongnu" . "https://elpa.nongnu.org/nongnu/")))
|
||
:config (progn
|
||
(add-to-list 'package-pinned-packages '(use-package . "melpa-stable"))
|
||
(add-to-list 'package-pinned-packages '(bind-key . "melpa-stable"))))
|
||
|
||
|
||
;;* Personal Customization Variables
|
||
|
||
(use-package db-customize
|
||
:demand t
|
||
:defines (db/jabber-id
|
||
db/important-documents-path
|
||
db/path-to-onenote
|
||
db/path-to-outlook
|
||
db/cert-file-directory
|
||
org-working-task-id
|
||
org-break-task-id
|
||
org-home-task-id
|
||
db/org-clock-current-task-file
|
||
db/org-default-org-file
|
||
db/org-default-work-file
|
||
db/org-default-home-file
|
||
db/org-default-notes-file
|
||
db/org-default-refile-file
|
||
db/after-init-load-files)
|
||
:autoload (db/frequently-used-features-prefix))
|
||
|
||
|
||
;;* Core Configuration
|
||
|
||
(use-package cl-lib
|
||
:demand t)
|
||
|
||
(use-package subr-x
|
||
:demand t)
|
||
|
||
;; Encoding: use UTF-8 everywhere
|
||
(set-default-coding-systems 'utf-8)
|
||
(prefer-coding-system 'utf-8)
|
||
(set-terminal-coding-system 'utf-8)
|
||
(set-keyboard-coding-system 'utf-8)
|
||
(setq buffer-file-coding-system 'utf-8)
|
||
(setopt x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))
|
||
|
||
;; Startup configuration
|
||
(setopt inhibit-startup-message t
|
||
inhibit-default-init t
|
||
initial-scratch-message nil
|
||
initial-major-mode 'fundamental-mode
|
||
ring-bell-function #'ignore
|
||
load-prefer-newer nil ; t breaks `org-reload'
|
||
use-short-answers nil)
|
||
|
||
(setq-default fill-column 100
|
||
undo-limit 80000000
|
||
indent-tabs-mode nil
|
||
indicate-buffer-boundaries 'left)
|
||
|
||
(setq frame-title-format "emacs")
|
||
|
||
(use-package help-fns
|
||
:defines (help-enable-symbol-autoload))
|
||
|
||
(setopt select-enable-clipboard t
|
||
select-enable-primary t
|
||
save-interprogram-paste-before-kill t
|
||
mouse-yank-at-point t
|
||
scroll-conservatively 10
|
||
scroll-preserve-screen-position 'always ; Make M-v undo C-v
|
||
message-log-max t
|
||
inhibit-eol-conversion nil
|
||
tab-always-indent 'complete
|
||
enable-recursive-minibuffers t
|
||
set-mark-command-repeat-pop t
|
||
echo-keystrokes 0.1
|
||
delete-trailing-lines nil
|
||
x-underline-at-descent-line t
|
||
visual-line-fringe-indicators '(left-curly-arrow right-curly-arrow)
|
||
history-delete-duplicates t
|
||
track-eol t
|
||
garbage-collection-messages nil
|
||
read-process-output-max (* 1024 1024) ; 1mb
|
||
next-error-message-highlight t
|
||
help-enable-symbol-autoload t
|
||
describe-bindings-outline t
|
||
redisplay-skip-fontification-on-input t
|
||
async-shell-command-buffer 'new-buffer
|
||
sort-fold-case t)
|
||
|
||
(setq byte-compile-warnings '(not docstrings)) ; yields warning when used with setopt
|
||
|
||
(put 'set-goal-column 'disabled nil)
|
||
|
||
(when (memq system-type '(gnu gnu/linux gnu/kfreebsd))
|
||
(setq x-wait-for-event-timeout nil))
|
||
|
||
(when on-windows
|
||
;; Fix: treat memory for display time ... hey, this is Windows, memory doesn’t
|
||
;; matter!
|
||
(setq inhibit-compacting-font-caches t))
|
||
|
||
;; don't let the cursor go into minibuffer prompt
|
||
(setq minibuffer-prompt-properties '(read-only t
|
||
face minibuffer-prompt
|
||
cursor-intangible t))
|
||
|
||
;; Fix: disable gconf settings, as it might interfere with ours, see
|
||
;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=25228 and
|
||
;; https://emacs.stackexchange.com/questions/32641/something-changes-the-default-face-in-my-emacs.
|
||
(define-key special-event-map [config-changed-event] 'ignore)
|
||
|
||
;; Individual package configuration from here on.
|
||
|
||
(use-package appt
|
||
:commands (appt-activate)
|
||
:init (setq appt-display-mode-line nil))
|
||
|
||
(use-package auth-source
|
||
:init (setq auth-sources '("~/.authinfo.gpg")
|
||
auth-source-save-behavior nil))
|
||
|
||
(use-package autorevert
|
||
:diminish auto-revert-mode)
|
||
|
||
(use-package browser-url
|
||
:init (setq browse-url-browser-function 'browse-url-generic
|
||
browse-url-generic-program "firefox"))
|
||
|
||
(use-package calc
|
||
;; https://florian.adamsky.it/2016/03/31/emacs-calc-for-programmers-and-cs.html
|
||
:defines (math-additional-units ; from calc-units.el
|
||
math-units-table) ; from calc-units.el
|
||
:init (setopt math-additional-units '((bit nil "Bit")
|
||
(byte "8 * bit" "Byte")
|
||
(bps "bit / s" "Bit per second"))
|
||
math-units-table nil
|
||
calc-kill-line-numbering nil))
|
||
|
||
(use-package calender
|
||
:init (setq calendar-date-style 'iso
|
||
calendar-time-zone-style 'numeric
|
||
calendar-week-start-day 1 ; Monday
|
||
calendar-bahai-all-holidays-flag nil
|
||
calendar-chinese-all-holidays-flag nil
|
||
calendar-christian-all-holidays-flag nil
|
||
calendar-islamic-all-holidays-flag nil
|
||
calendar-hebrew-all-holidays-flag nil
|
||
;; The following list should contain only holidays without work, as it is examined by
|
||
;; `db/org-home-time-for-date'.
|
||
holiday-general-holidays '((holiday-fixed 1 1 "New Year's Day")
|
||
(holiday-fixed 5 1 "Labour Day")
|
||
(holiday-fixed 10 3 "German Unity Day")
|
||
(holiday-fixed 10 31 "Reformation Day")
|
||
(holiday-float 11 3 -1 "Day of Repentance and Prayer" 22))
|
||
holiday-other-holidays '((holiday-fixed 2 13 "Jahrestag Zerstörung Dresden 1945")
|
||
(holiday-fixed 2 14 "Valentine's Day")
|
||
(holiday-fixed 4 1 "April Fools' Day")
|
||
|
||
(holiday-fixed 5 25 "Towel Day")
|
||
(holiday-fixed 6 4 "Tiananmen Massacre 1989")
|
||
(holiday-fixed 6 5 "Snowden-Veröffentlichungen 2013")
|
||
(holiday-fixed 6 6 "D-Day 1944")
|
||
(holiday-fixed 6 8 "Yoneda Appreciation Day")
|
||
(holiday-fixed 6 10 "Jahrestag Zerstörung von Oradour-sur-Glane 1944")
|
||
(holiday-fixed 6 10 "Jahrestag Massaker von Distomo 1944")
|
||
(holiday-fixed 6 16 "Bloomsday")
|
||
(holiday-fixed 7 20 "Jahrestag Attentat auf Hitler 1944")
|
||
(holiday-fixed 7 21 "Jahrestag der 1. Mondlandung 1969")
|
||
(holiday-fixed 7 21 "Jahrestag Massaker von Vassieux-en-Vercors 1944")
|
||
(holiday-fixed 7 28 "Start WWI 1914")
|
||
(holiday-float 11 4 4 "Thanksgiving")
|
||
(holiday-fixed 11 11 "End WWI 1918"))
|
||
diary-show-holidays-flag t
|
||
calendar-view-holidays-initially-flag nil))
|
||
|
||
(use-package grep
|
||
:commands (rgrep zrgrep)
|
||
:bind (:map grep-mode-map
|
||
("C-x C-q" . wgrep-change-to-wgrep-mode)
|
||
("C-c C-c" . wgrep-finish-edit))
|
||
:config (progn
|
||
|
||
;; I am not quite sure why `grep-read-files' is prompting for file
|
||
;; names when asking for a file pattern, so let's just hook it up
|
||
;; and replace it with something more straightforward.
|
||
(advice-add 'grep-read-files :around #'db/grep-read-files)))
|
||
|
||
(use-package ibuffer
|
||
:config (add-hook 'ibuffer-mode-hook
|
||
#'(lambda ()
|
||
(ibuffer-switch-to-saved-filter-groups "default"))))
|
||
|
||
(use-package ibuf-ext
|
||
:commands (ibuffer-switch-to-saved-filter-groups)
|
||
:init (setq ibuffer-show-empty-filter-groups nil
|
||
ibuffer-saved-filter-groups '(("default"
|
||
("Org" (or (mode . org-mode)
|
||
(mode . org-lint--report-mode)
|
||
(name . "^\\*Org Src")
|
||
(name . "^\\*Org Agenda\\*$")))
|
||
("Dired" (mode . dired-mode))
|
||
("Magit" (or (mode . magit-status-mode)
|
||
(mode . magit-process-mode)
|
||
(mode . magit-repolist-mode)))
|
||
("Gnus" (or (mode . gnus-group-mode)
|
||
(mode . gnus-summary-mode)
|
||
(mode . gnus-article-mode)))
|
||
("Shells" (or (mode . term-mode)
|
||
(mode . shell-mode)
|
||
(mode . eshell-mode)))
|
||
("Emacs" (or (name . "^\\*Async-native-compile-log\\*$")
|
||
(name . "^\\*Messages\\*$")
|
||
(name . "^\\*Pp Eval Output\\*$")
|
||
(name . "^\\*scratch\\*$")
|
||
(name . "^\\*Shell Command Output\\*$")
|
||
(name . "^\\*Warnings\\*$")
|
||
(name . "^\\*xref\\*$")
|
||
(mode . Custom-mode)
|
||
(mode . package-menu-mode)
|
||
(mode . calendar-mode)
|
||
(mode . calc-mode)
|
||
(mode . calc-trail-mode)))
|
||
("Help" (or (name . "^\\*Help\\*$")
|
||
(name . "^\\*info\\*$")
|
||
(name . "^\\*helpful")))
|
||
("Tramp" (name . "^\\*tramp.*"))
|
||
("Files" (filename . ".*"))))))
|
||
|
||
(use-package man
|
||
:init (setopt Man-switches "-a"))
|
||
|
||
(use-package minibuffer
|
||
:bind (:map minibuffer-mode-map
|
||
("M-r" . consult-history)
|
||
("C-r" . consult-history))
|
||
:hook (minibuffer-setup . cursor-intangible-mode))
|
||
|
||
(use-package multisession
|
||
:init (setq multisession-directory (expand-file-name "multisession/" emacs-d-userdata)))
|
||
|
||
(use-package proced
|
||
:init (setq proced-tree-flag t
|
||
proced-auto-update-flag (not on-windows)
|
||
proced-format 'medium
|
||
proced-auto-update-interval 1
|
||
proced-goal-attribute nil
|
||
proced-enable-color-flag t))
|
||
|
||
(use-package project
|
||
:init (setopt project-list-file (expand-file-name "projects" emacs-d-userdata)
|
||
project-switch-commands 'project-eshell
|
||
project-vc-merge-submodules nil
|
||
project-mode-line nil)
|
||
:config (progn
|
||
|
||
;; Sort known projects before persisting, to reduce committer noise
|
||
(define-advice project--write-project-list (:before
|
||
()
|
||
sort-before-writing)
|
||
(setq project--list (cl-sort project--list
|
||
#'string<
|
||
:key #'cl-first)))))
|
||
|
||
(use-package quail
|
||
:init (setq default-input-method "TeX"))
|
||
|
||
(use-package savehist
|
||
:commands (savehist-mode)
|
||
:init (setq savehist-file (expand-file-name "savehist" emacs-d-userdata)))
|
||
|
||
(use-package server
|
||
:commands (server-running-p server-start)
|
||
:init (setq server-log t))
|
||
|
||
(use-package tab-bar
|
||
:init (setopt tab-bar-show t
|
||
tab-bar-tab-hints t
|
||
tab-bar-close-button-show nil
|
||
tab-bar-new-button-show nil
|
||
tab-bar-auto-width nil
|
||
tab-bar-separator " | "
|
||
tab-bar-format '(tab-bar-format-tabs-groups
|
||
tab-bar-separator))
|
||
:config (progn
|
||
|
||
;; Two display overrides inspired by
|
||
;; https://www.rahuljuliato.com/posts/emacs-tab-bar-groups.
|
||
|
||
(define-advice tab-bar-tab-name-format-hints (:around
|
||
(orig-fun name tab idx)
|
||
only-show-tab-number)
|
||
(ignore orig-fun tab)
|
||
(if tab-bar-tab-hints
|
||
(format "[%d]" idx)
|
||
name))
|
||
|
||
(define-advice tab-bar-tab-group-format-default (:around
|
||
(orig-fun tab idx &optional currentp)
|
||
only-show-group-name)
|
||
(ignore orig-fun idx)
|
||
(propertize (funcall tab-bar-tab-group-function tab)
|
||
'face (if currentp
|
||
'tab-bar-tab-group-current
|
||
'tab-bar-tab-group-inactive)))))
|
||
|
||
(use-package undo-tree
|
||
:ensure t
|
||
:commands (global-undo-tree-mode
|
||
undo
|
||
undo-tree-redo)
|
||
:init (setq undo-tree-visualizer-timestamps t
|
||
undo-tree-visualizer-diff t
|
||
undo-tree-auto-save-history nil
|
||
undo-tree-history-directory-alist `(("." . ,(expand-file-name "ebackup/" emacs-d))))
|
||
:diminish undo-tree-mode)
|
||
|
||
(use-package url
|
||
:init (setq url-configuration-directory (expand-file-name "url" emacs-d-userdata)))
|
||
|
||
(use-package window
|
||
:init (setopt switch-to-buffer-obey-display-actions nil
|
||
switch-to-buffer-in-dedicated-window 'pop
|
||
recenter-positions '(top middle bottom)
|
||
display-buffer-base-action '(display-buffer-reuse-window)
|
||
split-height-threshold 50
|
||
split-width-threshold 140)
|
||
:config (progn
|
||
(add-to-list 'display-buffer-alist
|
||
'("^\\*Async Shell Command*"
|
||
(display-buffer-no-window)))
|
||
(add-to-list 'display-buffer-alist
|
||
'("^\\*Warnings\\*"
|
||
(display-buffer-in-side-window)
|
||
(side . right)
|
||
(slot . 1)
|
||
(window-width . 0.33)))
|
||
|
||
;; Inspired by masteringemacs
|
||
(add-to-list 'display-buffer-alist
|
||
'("^\\*Help\\*"
|
||
(display-buffer-reuse-window
|
||
display-buffer-reuse-mode-window
|
||
display-buffer-pop-up-window)))
|
||
(add-to-list 'display-buffer-alist
|
||
'("^\\*helpful"
|
||
(display-buffer-reuse-window
|
||
display-buffer-reuse-mode-window
|
||
display-buffer-pop-up-window)))
|
||
|
||
(add-to-list 'display-buffer-alist
|
||
'("shell\\*"
|
||
(display-buffer-reuse-window
|
||
display-buffer-pop-up-window)))
|
||
|
||
|
||
(define-advice split-window-sensibly (:around
|
||
(orig-fun &optional window)
|
||
split-horizontally-first)
|
||
"We try to split horizontally first, and if this does not work, let
|
||
`split-window-sensibly' do the rest. This will result in trying to
|
||
split horizontally again, but this extra work should not matter much."
|
||
(let ((window (or window (selected-window))))
|
||
(or (and (window-splittable-p window t)
|
||
;; Split window horizontally.
|
||
(with-selected-window window
|
||
(split-window-right)))
|
||
(funcall orig-fun window))))))
|
||
|
||
(use-package which-key
|
||
:ensure t
|
||
:commands (which-key-mode)
|
||
:diminish which-key-mode
|
||
:init (setq which-key-side-window-max-width 0.33
|
||
which-key-side-window-max-height 0.25)
|
||
:config (which-key-setup-side-window-bottom))
|
||
|
||
(use-package winner
|
||
:commands (winner-mode winner-undo winner-redo))
|
||
|
||
|
||
;;* Basic External Packages
|
||
|
||
(use-package crux
|
||
:ensure t
|
||
:commands (crux-eval-and-replace
|
||
crux-smart-open-line-above
|
||
crux-kill-whole-line
|
||
crux-cleanup-buffer-or-region
|
||
crux-delete-buffer-and-file))
|
||
|
||
(use-package dash
|
||
:defer nil
|
||
:autoload (-difference)
|
||
:config (progn
|
||
(global-dash-fontify-mode)
|
||
(dash-register-info-lookup)))
|
||
|
||
(use-package db-utils
|
||
:commands (endless/fill-or-unfill
|
||
db/gnus
|
||
db/org-agenda
|
||
db/scratch
|
||
db/find-user-init-file
|
||
db/find-default-org-file
|
||
db/find-default-refile-file
|
||
db/ement-connect
|
||
db/shortcuts
|
||
db/hex-to-ascii
|
||
db/text-to-hex
|
||
turn-on-lispy-when-available
|
||
db/two-monitors-xrandr
|
||
db/one-monitor-xrandr
|
||
db/pretty-print-xml
|
||
db/bookmark-add-external
|
||
db/bookmark-add-url
|
||
db/bookmark-add-eww
|
||
db/bookmark-relocate
|
||
db/bookmark-bmenu-relocate
|
||
db/lookup-smime-key
|
||
db/dired-from-shell-command
|
||
db/switch-to-dark-theme
|
||
db/switch-to-light-theme
|
||
keyboard-quit-context+
|
||
db/dired-ediff-files
|
||
db/dired-back-to-top
|
||
db/dired-jump-to-bottom
|
||
db/dired-get-size
|
||
hydra-toggle/body
|
||
hydra-rectangle/body)
|
||
:autoload (turn-on-flycheck-when-file
|
||
db/sort-nsm-permanent-settings
|
||
endless/colorize-compilation
|
||
db/system-open
|
||
db/convert-lf-to-crlf-in-buffer
|
||
db/convert-crlf-to-lf-in-buffer
|
||
db/replace-variables-in-string
|
||
db/grep-read-files
|
||
db/make-selector-from-table-header
|
||
db/get-library-version))
|
||
|
||
(use-package diminish
|
||
:ensure t)
|
||
|
||
(use-package exec-path-from-shell
|
||
:pin "melpa-stable"
|
||
:commands (exec-path-from-shell-copy-envs))
|
||
|
||
(use-package helpful
|
||
:pin "melpa-stable"
|
||
:ensure t
|
||
:config (progn
|
||
;; To avoid errors about `org-link-types' not being defined, we explicitly ensure that
|
||
;; `ol.el' is loaded after `helpful.el' is.
|
||
(require 'ol)))
|
||
|
||
(use-package hydra
|
||
:pin "melpa-stable"
|
||
:ensure t)
|
||
|
||
(use-package lv
|
||
;; `lv' is a dependency of `hydra'
|
||
:pin "melpa-stable")
|
||
|
||
(use-package projectile
|
||
:commands (projectile-mode)
|
||
:bind (:map projectile-mode-map ("C-c p" . projectile-command-map))
|
||
:init (setq projectile-switch-project-action 'projectile-dired
|
||
projectile-ignored-project-function #'file-remote-p
|
||
projectile-create-missing-test-files t
|
||
projectile-known-projects-file (expand-file-name "projectile-bookmarks.eld"
|
||
emacs-d-userdata)
|
||
projectile-cache-file (expand-file-name "projectile.cache"
|
||
emacs-d-userdata)))
|
||
|
||
|
||
;;* Text editing
|
||
|
||
(setq sentence-end-double-space t)
|
||
|
||
(put 'upcase-region 'disabled nil)
|
||
(put 'downcase-region 'disabled nil)
|
||
(put 'narrow-to-region 'disabled nil)
|
||
(put 'scroll-left 'disabled nil)
|
||
|
||
(use-package text-mode
|
||
:config (progn
|
||
(add-hook 'text-mode-hook 'page-break-lines-mode)
|
||
(add-hook 'text-mode-hook 'turn-on-auto-fill)
|
||
(add-hook 'text-mode-hook 'abbrev-mode)
|
||
(add-hook 'text-mode-hook 'hl-line-mode)
|
||
(add-hook 'text-mode-hook #'(lambda () (setq show-trailing-whitespace t)))))
|
||
|
||
(use-package abbrev
|
||
:init (setq save-abbrevs 'silently
|
||
abbrev-file-name (expand-file-name "abbrev_defs" emacs-d-userdata))
|
||
:diminish abbrev-mode)
|
||
|
||
(use-package dictionary
|
||
:init (setq dictionary-server "dict.org"))
|
||
|
||
(use-package edit-indirect ; to allow code editing in markdown-mode
|
||
:ensure t)
|
||
|
||
(use-package electric
|
||
:commands (electric-quote-mode))
|
||
|
||
(use-package elec-pair
|
||
:commands (electric-pair-mode)
|
||
:config (progn
|
||
(add-to-list 'electric-pair-pairs '(?“ . ?”))
|
||
(add-to-list 'electric-pair-text-pairs '(?“ . ?”))
|
||
(add-to-list 'electric-pair-pairs '(?„ . ?“))
|
||
(add-to-list 'electric-pair-text-pairs '(?„ . ?“))))
|
||
|
||
(use-package flyspell
|
||
:config (progn
|
||
(unbind-key "C-M-i" flyspell-mode-map)
|
||
(unbind-key "C-c $" flyspell-mode-map)))
|
||
|
||
(use-package key-chord
|
||
:ensure t
|
||
:commands (key-chord-mode)
|
||
:config (progn
|
||
(key-chord-define-global "``" "“")
|
||
(key-chord-define-global "''" "”")
|
||
(key-chord-define-global ",," "„")))
|
||
|
||
(use-package markdown-mode
|
||
:ensure t
|
||
:pin "melpa-stable"
|
||
:commands (markdown-mode)
|
||
:init (progn
|
||
(setq markdown-use-pandoc-style-yaml-metadata t
|
||
markdown-command "pandoc --standalone --toc"
|
||
markdown-fontify-code-blocks-natively t)
|
||
(fset 'markdown-output-standalone-p #'(lambda () t))
|
||
(add-hook 'markdown-mode-hook #'turn-off-auto-fill)
|
||
(add-hook 'markdown-mode-hook #'turn-on-visual-line-mode)
|
||
(add-hook 'markdown-mode-hook #'turn-on-visual-fill-column-mode)))
|
||
|
||
(use-package multiple-cursors
|
||
:pin "melpa-stable"
|
||
:ensure t
|
||
:commands (mc/edit-lines
|
||
mc/mark-next-like-this
|
||
mc/mark-previous-like-this
|
||
mc/mark-all-like-this))
|
||
|
||
(use-package olivetti
|
||
:ensure t
|
||
:commands (olivetti-mode)
|
||
:init (setq-default olivetti-body-width 0.618034))
|
||
|
||
(use-package outline
|
||
:init (setopt outline-minor-mode-use-buttons 'in-margins))
|
||
|
||
(use-package outline-indent
|
||
:init (setopt outline-indent-ellipsis " ▼ "))
|
||
|
||
(use-package table
|
||
:init (progn
|
||
;; Pandoc supports colons in grid tables to denote alignments, so let's have table.el
|
||
;; recognize those too.
|
||
(setq table-cell-horizontal-chars "-=:")))
|
||
|
||
(use-package tex
|
||
:init (add-to-list 'major-mode-remap-alist '(latex-mode . LaTeX-mode))
|
||
:config (require 'db-latex))
|
||
|
||
(use-package textile-mode
|
||
:config (progn
|
||
;; Do not wrap lines automatically in textile mode, as text produced
|
||
;; in this mode is usually copied to Redmine Wiki pages later on.
|
||
(add-hook 'textile-mode-hook #'turn-off-auto-fill)
|
||
(add-hook 'textile-mode-hook #'turn-on-visual-line-mode)
|
||
(add-hook 'textile-mode-hook #'turn-on-visual-fill-column-mode)))
|
||
|
||
(use-package visual-fill-column
|
||
:ensure t
|
||
:autoload (turn-on-visual-fill-column-mode
|
||
visual-fill-column-adjust)
|
||
:config (progn
|
||
(setopt visual-fill-column-enable-sensible-window-split t)
|
||
(advice-add 'text-scale-adjust :after #'visual-fill-column-adjust)))
|
||
|
||
(use-package wgrep
|
||
:ensure t
|
||
:commands (wgrep-finish-edit
|
||
wgrep-change-to-wgrep-mode))
|
||
|
||
(use-package yaml-mode
|
||
:ensure t
|
||
:config (progn
|
||
(add-hook 'yaml-mode-hook #'highlight-indentation-mode)
|
||
|
||
(add-hook 'yaml-mode-hook #'(lambda ()
|
||
(with-demoted-errors "Cannot activate folding: %s"
|
||
(outline-indent-minor-mode))))))
|
||
|
||
(use-package yasnippet
|
||
:commands (yas-minor-mode-on
|
||
yas-minor-mode
|
||
yas-global-mode
|
||
yas-reload-all)
|
||
:ensure t
|
||
:diminish yas-minor-mode
|
||
:config (yas-reload-all))
|
||
|
||
|
||
;;* Org
|
||
|
||
(use-package db-org
|
||
:commands (db/org-clock-out
|
||
db/org-clock-in-break-task
|
||
db/org-clock-in-home-task
|
||
db/org-clock-in-work-task
|
||
db/show-current-org-task
|
||
db/org-agenda-list-deadlines
|
||
hydra-org-agenda-view/body
|
||
db/org-eval-subtree-no-confirm
|
||
hydra-org-clock/body
|
||
hydra-org-jump/body
|
||
hydra-org-custom/body
|
||
db/org-execute-babel-in-buffer-and-iterate-tables
|
||
db/make-org-capture-frame
|
||
db/org-cleanup-continuous-clocks
|
||
db/org-update-headline-log-note
|
||
db/find-csv-in-org
|
||
db/export-diary
|
||
db/org-insert-checklist
|
||
db/org-copy-body-from-item-to-point
|
||
db/org-find-links-to-current-item
|
||
db/org-add-link-to-other-item
|
||
db/org-add-link-to-current-clock
|
||
hydra-org-linking/body
|
||
db/org-clock-goto-first-open-checkbox)
|
||
:autoload (db/check-special-org-files-in-agenda
|
||
db/verify-refile-target
|
||
db/org-refile-get-location
|
||
db/find-parent-task
|
||
db/ensure-running-clock
|
||
db/save-current-org-task-to-file
|
||
db/org-remaining-effort-of-current-item
|
||
db/org-cmp-remaining-effort
|
||
org-dblock-write:db/org-workload-report
|
||
db/org-home-time-for-date
|
||
endless/org-ispell
|
||
db/org-agenda-insert-active-filters
|
||
db/org-agenda-insert-efforts
|
||
db/org-timestamp-difference
|
||
db/org-capture-code-snippet
|
||
db/org-onenote-open
|
||
db/org-outlook-open
|
||
db/org-rfc-open
|
||
db/org-mark-current-default-task
|
||
db/org-clocktable-write-with-threshold
|
||
org-dblock-write:db/org-backlinks
|
||
db/org-ignore-insert-on-headline-start
|
||
org-password-manager-get-password-by-id
|
||
db/org-bookmark-open
|
||
db/org-bookmark-store-link
|
||
db/org-bookmark-export
|
||
db/org-lint-invalid-bookmark-link
|
||
db/org-lint-possible-bookmark-link))
|
||
|
||
;; This is to make the byte-compiler happy about setting some variables later on
|
||
;; that are defined in those packages.
|
||
(use-package org-attach)
|
||
(use-package org-id)
|
||
|
||
(use-package org
|
||
:pin "gnu"
|
||
:bind (:map org-mode-map
|
||
([remap org-return] . (lambda () (interactive) (org-return :indent)))
|
||
([remap org-clock-goto] . db/org-clock-goto-first-open-checkbox)
|
||
([remap org-goto] . consult-org-heading)
|
||
("C-c ;" . nil) ; Disable default binding for `org-toggle-comment'
|
||
)
|
||
:autoload (org-get-todo-state
|
||
org-entry-get)
|
||
:commands (org-return)
|
||
:init (progn
|
||
(setopt org-deadline-warning-days 14
|
||
org-read-date-popup-calendar t
|
||
org-insert-heading-respect-content t
|
||
org-adapt-indentation nil
|
||
org-edit-timestamp-down-means-later t
|
||
org-archive-location "%s_archive.gpg::"
|
||
org-image-actual-width nil
|
||
org-imenu-depth 10
|
||
org-footnote-section nil
|
||
org-log-into-drawer "LOGBOOK"
|
||
org-log-reschedule 'note
|
||
org-log-redeadline 'note
|
||
org-log-refile 'note
|
||
org-log-note-clock-out nil
|
||
org-log-done 'note
|
||
org-clone-delete-id t
|
||
org-fold-catch-invisible-edits 'show-and-error
|
||
org-fold-show-context-detail '((default . lineage)) ; reveal more context by
|
||
; default, to avoid
|
||
; incompletly revealed items
|
||
org-M-RET-may-split-line '((default . nil))
|
||
org-highlight-latex-and-related '(latex)
|
||
org-use-sub-superscripts '{}
|
||
org-src-fontify-natively t
|
||
org-src-preserve-indentation t
|
||
org-src-tab-acts-natively nil
|
||
org-ellipsis "↲"
|
||
org-fontify-done-headline nil
|
||
org-cycle-separator-lines 2
|
||
org-special-ctrl-a/e t
|
||
org-highlight-latex-and-related nil
|
||
org-attach-store-link-p 'attached
|
||
org-attach-auto-tag nil
|
||
org-bookmark-names-plist nil
|
||
org-id-link-to-org-use-id t
|
||
org-return-follows-link t
|
||
org-hide-emphasis-markers t
|
||
|
||
org-blank-before-new-entry '((heading . t)
|
||
(plain-list-item . auto))
|
||
|
||
org-duration-format '(("y") ("w") ("d") (special . h:mm))
|
||
|
||
org-treat-S-cursor-todo-selection-as-state-change nil
|
||
|
||
org-global-properties
|
||
'(("Effort_ALL" . "0:00 0:05 0:10 0:15 0:30 0:45 1:00 2:00 3:00 4:00 6:00 8:00"))
|
||
|
||
org-columns-default-format
|
||
"%80ITEM(Task) %10Effort(Effort) %10CLOCKSUM"
|
||
|
||
;; We activate speed keys primarily to avoid invalidating headlines by accidentally
|
||
;; typing non-star characters when at the start of a headline. See
|
||
;; `db/org-ignore-insert-on-headline-start'.
|
||
org-use-speed-commands t)
|
||
|
||
;; Keywords and Tags
|
||
|
||
(setopt org-todo-keywords
|
||
'((sequence "TODO(t@)" "CONT(n!)" "REFINE(f!)" "|" "DONE(d@)" "CANC(c@)" "MRGD(m@)")
|
||
(sequence "GOTO(g@)" "ATTN(a!)" "|" "DONE(d@)")
|
||
(sequence "READ(r@)" "CONT(n!)" "|" "DONE(d@)")
|
||
(sequence "DELG(e@)" "WAIT(w@)" "HOLD(h@)" "|" "CANC(c@)"))
|
||
|
||
org-todo-state-tags-triggers
|
||
'(("WAIT" ("HOLD") ("WAIT" . t))
|
||
("DELG" ("HOLD") ("WAIT" . t))
|
||
("HOLD" ("HOLD" . t) ("WAIT"))
|
||
(done ("HOLD") ("WAIT"))
|
||
("TODO" ("HOLD") ("WAIT") ("DATE") ("READ"))
|
||
("READ" ("READ" . t) ("DATE") ("HOLD") ("WAIT"))
|
||
("GOTO" ("DATE" . t) ("READ") ("HOLD") ("WAIT"))
|
||
("CONT" ("DATE") ("HOLD") ("WAIT") ("READ"))
|
||
("REFINE" ("DATE") ("HOLD") ("WAIT") ("READ"))
|
||
("ATTN" ("DATE" . t) ("READ") ("HOLD") ("WAIT"))
|
||
("" ("HOLD") ("WAIT") ("DATE") ("READ")))
|
||
|
||
org-tag-alist
|
||
'((:startgroup)
|
||
("WORK" . ?w)
|
||
("HOME" . ?h)
|
||
("FUN" . ?f)
|
||
("UNTAGGED" . ?u)
|
||
(:endgroup)
|
||
("NOTE" . ?n)
|
||
(:startgroup)
|
||
("PERIODIC" . ?p)
|
||
("NOP" . ?o)
|
||
("TOPIC" . ?t)
|
||
("TEMPLATE" . ?l)
|
||
("GOAL" . ?g)
|
||
(:endgroup))
|
||
|
||
org-tags-exclude-from-inheritance
|
||
'("NOP" "TOPIC" "GOAL")
|
||
org-tags-column -85
|
||
|
||
org-fast-tag-selection-single-key 'expert)
|
||
|
||
;; Faces
|
||
|
||
(setq org-todo-keyword-faces
|
||
'(("TODO" :foreground "red" :weight normal)
|
||
("GOTO" :foreground "red" :weight normal)
|
||
("READ" :foreground "red" :weight normal)
|
||
("CONT" :foreground "DeepSkyBlue" :weight normal)
|
||
("ATTN" :foreground "DeepSkyBlue" :weight normal)
|
||
("DONE" :foreground "forest green" :weight normal)
|
||
("MRGD" :foreground "dark cyan" :weight normal)
|
||
("DELG" :foreground "dark orange" :weight normal)
|
||
("REFINE" :foreground "tomato" :weight normal)
|
||
("WAIT" :foreground "orange" :weight normal)
|
||
("HOLD" :foreground "magenta" :weight normal)
|
||
("CANC" :foreground "lime green" :weight normal))
|
||
|
||
org-priority-faces
|
||
'((?A . (:foreground "Red" :weight bold))
|
||
(?B . (:foreground "firebrick"))
|
||
(?C . (:foreground "tomato"))))
|
||
|
||
;; Refiling
|
||
|
||
(setopt org-refile-targets '((org-agenda-files . (:maxlevel . 9))
|
||
(nil . (:maxlevel . 9))
|
||
(db/org-default-notes-file . (:maxlevel . 9)))
|
||
org-refile-use-outline-path 'buffer-name
|
||
org-refile-use-cache nil
|
||
org-refile-allow-creating-parent-nodes nil
|
||
org-indirect-buffer-display 'current-window
|
||
org-outline-path-complete-in-steps nil
|
||
org-refile-target-verify-function 'db/verify-refile-target)
|
||
|
||
;; Babel
|
||
|
||
(setopt org-babel-load-languages '((shell . t)
|
||
(emacs-lisp . t)
|
||
(sql . t))))
|
||
|
||
:config (progn
|
||
|
||
;; Some hooks from text-mode-hook, Org mode does not seem to run those?
|
||
(add-hook 'org-mode-hook 'page-break-lines-mode)
|
||
(add-hook 'org-mode-hook 'turn-on-auto-fill)
|
||
|
||
;; Hide drawers by default when cycling items
|
||
(add-hook 'org-cycle-hook #'org-cycle-hide-drawers)
|
||
|
||
;; File Apps
|
||
|
||
(add-to-list 'org-file-apps '(directory . emacs))
|
||
|
||
(add-to-list 'org-file-apps '("\\.docx?\\'" . default))
|
||
(add-to-list 'org-file-apps '("\\.pptx?\\'" . default))
|
||
(add-to-list 'org-file-apps '("\\.xlsx?\\'" . default))
|
||
|
||
(when (eq system-type 'cygwin)
|
||
(add-to-list 'org-file-apps '(t . "cygstart %s") t))
|
||
|
||
;; Mark some org mode regions to be skipped by ispell
|
||
(add-hook 'org-mode-hook #'endless/org-ispell)
|
||
|
||
;; Some timers
|
||
|
||
(unless (memq #'org-clock-save
|
||
(mapcar #'timer--function timer-list))
|
||
(run-with-timer 0 3600 #'org-clock-save))
|
||
|
||
;; Hack: The default implementation is too slow, because it is
|
||
;; parsing all properties of an entry by default. Let’s simplify
|
||
;; this to only parse what we are looking for. This makes tag
|
||
;; search *much* faster!
|
||
(when (version<= org-version "9.5.5")
|
||
(with-eval-after-load 'org
|
||
(define-advice org-cached-entry-get (:around
|
||
(orig-fun pom property)
|
||
speed-up-cache-lookup)
|
||
(ignore orig-fun)
|
||
(if (or (eq t org-use-property-inheritance)
|
||
(and (stringp org-use-property-inheritance)
|
||
(let ((case-fold-search t))
|
||
(string-match-p org-use-property-inheritance property)))
|
||
(and (listp org-use-property-inheritance)
|
||
(member-ignore-case property org-use-property-inheritance)))
|
||
;; Caching is not possible, check it directly.
|
||
(org-entry-get pom property 'inherit)
|
||
;; This is different in the original implementation
|
||
(org-entry-get pom property)))))
|
||
|
||
;; Fix (Org 9.5.5): the variable `org-time-was-given' dynamically
|
||
;; bound to signify when `org-read-date-analyze' has found a hh:mm
|
||
;; part; it's only considered, however, when it has previously been
|
||
;; bound, resulting in some prior calls of `org-read-date' to ignore
|
||
;; the hh:mm part. So let's bind this variable now to make things
|
||
;; work.
|
||
(defvar org-time-was-given nil)
|
||
|
||
;; Completely redo agenda buffer when jumping to today; this ensures that agenda views
|
||
;; from previous days get updated as expected.
|
||
(define-advice org-agenda-goto-today (:before () redo-all)
|
||
(org-agenda-redo-all))
|
||
|
||
;; Inhibit direct input when point is at the beginning of a headline.
|
||
(add-to-list 'org-speed-command-hook 'db/org-ignore-insert-on-headline-start)))
|
||
|
||
(use-package org-cycle
|
||
:autoload (org-cycle-hide-drawers)
|
||
:init (setq org-cycle-include-plain-lists 'integrate))
|
||
|
||
(use-package org-lint
|
||
:autoload (org-lint-checker-name
|
||
org-lint-add-checker)
|
||
:config (progn
|
||
|
||
;; Yes, this is ugly, but I would like to get rid of checking for
|
||
;; obsolete percentage encoding in URLs without loosing the other
|
||
;; checkers.
|
||
(setq org-lint--checkers (cl-remove-if #'(lambda (c)
|
||
(eq (org-lint-checker-name c)
|
||
'percent-encoding-link-escape))
|
||
org-lint--checkers))
|
||
|
||
(org-lint-add-checker 'link-to-bookmark
|
||
"Report links to non-existing bookmarks"
|
||
#'db/org-lint-invalid-bookmark-link
|
||
:categories '(link)
|
||
:trust 'low)
|
||
|
||
(org-lint-add-checker 'link-replacable-by-bookmark
|
||
"Report links that can be replaced by bookmarks"
|
||
#'db/org-lint-possible-bookmark-link
|
||
:categories '(link)
|
||
:trust 'low)))
|
||
|
||
;; Drag-and-Drop images into org-mode buffer
|
||
(use-package org-download
|
||
:commands (org-download-yank
|
||
org-download-screenshot
|
||
org-download-clipboard)
|
||
:init (setq org-download-method 'attach))
|
||
|
||
;; Extended query language and dynamic blocks
|
||
(use-package org-ql
|
||
:pin "melpa-stable"
|
||
:ensure t
|
||
:commands (org-ql-view
|
||
org-ql-search
|
||
org-dblock-write:org-ql)
|
||
;; `org-ql-search' defines the dblock features of `org-ql' but is not loaded
|
||
;; by default, so let's do this here; note that this implicitly loads
|
||
;; `org-ql-view' as well.
|
||
:config (require 'org-ql-search))
|
||
|
||
(use-package ol
|
||
:init (setopt org-link-keep-stored-after-insertion t
|
||
org-link-search-must-match-exact-headline nil
|
||
|
||
;; Link shortcuts (some taken from the documentation)
|
||
org-link-abbrev-alist '(("wpen" . "https://en.wikipedia.org/wiki/")
|
||
("wpde" . "https://de.wikipedia.org/wiki/")
|
||
("ddg" . "https://duckduckgo.com/?q=%s")
|
||
("omap" . "https://nominatim.openstreetmap.org/search?q=%s&polygon=1")
|
||
("github" . "https://github.com/")
|
||
("gitlab" . "https://gitlab.com/")))
|
||
:commands (org-store-link)
|
||
:autoload (org-link-set-parameters)
|
||
:config (progn
|
||
|
||
;; Statically color links indepedently of whether the file exists or not (we could add
|
||
;; different faces to highlight non-existing files, but this turns out to be slow on
|
||
;; Windows, and we can use `org-lint' to check this when necessary)
|
||
(org-link-set-parameters "file" :face 'org-link)
|
||
|
||
;; Custom link types
|
||
(org-link-set-parameters "rfc" :follow #'db/org-rfc-open)
|
||
(org-link-set-parameters "cve" :follow #'(lambda (number)
|
||
(browse-url
|
||
(format "https://www.cve.org/CVERecord?id=CVE-%s"
|
||
number))))
|
||
(org-link-set-parameters "bookmark"
|
||
:follow #'db/org-bookmark-open
|
||
:store #'db/org-bookmark-store-link
|
||
:export #'db/org-bookmark-export)
|
||
(when (eq system-type 'windows-nt)
|
||
(org-link-set-parameters "onenote" :follow #'db/org-onenote-open)
|
||
(org-link-set-parameters "outlook" :follow #'db/org-outlook-open))
|
||
|
||
;; Allow additional link targets
|
||
(require 'ol-man) ; manpages
|
||
(with-demoted-errors "Cannot load package: %s"
|
||
(require 'orgit)) ; magit buffers
|
||
|
||
(when (version< (org-version) "9.7")
|
||
;; Pushing already stored links to the front of `org-stored-links' became default
|
||
;; behavior in Org 9.7, the below code is thus only needed for older versions.
|
||
|
||
(define-advice org-store-link (:around
|
||
(orig-func &rest args)
|
||
db/org--push-new-links-to-beginning)
|
||
"Ensure that new links in `org-store-link' are always at the beginning."
|
||
;; The idea here is to store the list of already known links,
|
||
;; stored in `org-stored-links', and call `org-store-link' with an
|
||
;; empty value of `org-stored-links'. This way, the link to the
|
||
;; current item is store in any case, and we prepend these new
|
||
;; values (can be more than one if CUSTOM_ID is set) to the old
|
||
;; list of links. We also remove the newly prepended links from
|
||
;; the list of already known links.
|
||
|
||
(let ((org-stored-links--original org-stored-links)
|
||
(org-stored-links--new nil)
|
||
(org-store-link--return-value nil))
|
||
|
||
(let ((org-stored-links nil))
|
||
;; This is the actual call to `org-store-link', which may (and
|
||
;; usually will) update `org-stored-links'. Note that the new
|
||
;; value of `org-stored-links' is only available after
|
||
;; `org-store-link' as finished, which is why we make two
|
||
;; separate calls to `setq' here instead of only one.
|
||
(setq org-store-link--return-value (apply orig-func args))
|
||
(setq org-stored-links--new org-stored-links))
|
||
|
||
;; Note: `org-stored-links--new' might still be nil after
|
||
;; calling `org-store-link', as under some circumstances (and
|
||
;; only when the `interactive?' argument to `org-store-link' is
|
||
;; non-nil), `org-store-link' may only return a link and not
|
||
;; update `org-stored-links'; in this case, we do not have to
|
||
;; touch the original value of `org-stored-links' at all.
|
||
|
||
(unless (null org-stored-links--new)
|
||
(setq org-stored-links (nconc org-stored-links--new
|
||
(cl-remove-if #'(lambda (x)
|
||
(member x org-stored-links--new))
|
||
org-stored-links--original))))
|
||
|
||
org-store-link--return-value)))
|
||
|
||
(define-advice org-link-make-string (:around
|
||
(orig-func link &optional description)
|
||
db/org--remove-statistics-cookie-from-link-descriptions)
|
||
"Remove statistics cookies from link descriptions.
|
||
|
||
Such cookies get updated with other statistics cookies and
|
||
quickly loose their meaning.
|
||
|
||
Temporary fix: when the description ends on a closing
|
||
bracket (ignoring trailing whitespace) after the statistics
|
||
cookie has been removed, add a non-breaking space to the end.
|
||
This is to fix the current alignment of Org tables, which counts
|
||
a zero-width character, which is used to escape the end of an Org
|
||
link, as one character but does not adjust the width of the table
|
||
accordingly."
|
||
(funcall orig-func
|
||
link
|
||
(when description
|
||
;; Inspired by `org--get-outline-path-1':
|
||
(->> description
|
||
(replace-regexp-in-string "\\[[0-9]*%\\]\\|\\[[0-9]+/[0-9]+\\]\\|\\[/\\]" "")
|
||
(replace-regexp-in-string "\\]\s-*$" "] ") ; XXX temporary
|
||
(org-trim)))))))
|
||
|
||
(use-package ol-bbdb
|
||
:config (add-to-list 'org-bbdb-anniversary-format-alist
|
||
(cons "day-of-death"
|
||
#'(lambda (name years suffix)
|
||
(format "Day of Death: [[bbdb:%s][%s (%s%s)]]"
|
||
name name years suffix)))))
|
||
|
||
(use-package org-clock
|
||
:commands (org-clock-save)
|
||
:init (progn
|
||
(setq org-clock-history-length 35
|
||
org-clock-in-resume t
|
||
org-clock-into-drawer t
|
||
org-clock-idle-time nil
|
||
org-clock-out-remove-zero-time-clocks t
|
||
org-clock-out-when-done '("DONE" "CANC" "MRGD" "WAIT" "HOLD")
|
||
org-clock-auto-clock-resolution 'when-no-clock-is-running
|
||
org-clock-mode-line-total 'auto
|
||
org-clock-clocked-in-display 'both
|
||
org-clock-report-include-clocking-task t
|
||
org-clock-in-switch-to-state #'(lambda (_)
|
||
(when (not
|
||
(and (boundp 'org-capture-mode)
|
||
org-capture-mode))
|
||
(cond
|
||
((member (org-get-todo-state)
|
||
(list "TODO" "READ"))
|
||
"CONT")
|
||
((member (org-get-todo-state)
|
||
(list "GOTO"))
|
||
"ATTN"))))
|
||
org-clock-persist t
|
||
org-clock-persist-file (expand-file-name "org-clock-save.el" emacs-d-userdata)
|
||
org-clock-persist-query-resume nil
|
||
org-clock-ask-before-exiting nil
|
||
org-time-stamp-rounding-minutes '(1 1))
|
||
|
||
;; On Windows, we don't have dbus to show notifications; default to
|
||
;; `message' instead
|
||
(when on-windows
|
||
(setq org-show-notification-handler #'message)))
|
||
|
||
:config (progn
|
||
(org-clock-persistence-insinuate)
|
||
|
||
(add-hook 'org-clock-in-hook #'db/org-mark-current-default-task)
|
||
|
||
;; Clock in default task if no other task is given
|
||
(add-hook 'org-clock-out-hook #'db/ensure-running-clock 'append)
|
||
|
||
;; Communicate the currently clocked in task to the outside world
|
||
(add-hook 'org-clock-in-hook #'db/save-current-org-task-to-file)))
|
||
|
||
;; Agenda
|
||
|
||
(use-package org-agenda
|
||
:commands (org-agenda
|
||
org-agenda-redo-all)
|
||
:bind (:map org-agenda-mode-map
|
||
("i" . org-agenda-clock-in)
|
||
("v" . hydra-org-agenda-view/body)
|
||
([remap org-clock-goto] . db/org-clock-goto-first-open-checkbox)
|
||
([remap org-agenda-redo-all] . org-agenda-redo))
|
||
:init (setq org-agenda-include-diary t
|
||
org-agenda-span 1
|
||
org-agenda-insert-diary-strategy 'top-level
|
||
org-agenda-sorting-strategy '((agenda time-up priority-down user-defined-up category-keep)
|
||
(todo priority-down user-defined-up category-keep)
|
||
(tags priority-down user-defined-up category-keep)
|
||
(search priority-down user-defined-up category-keep))
|
||
org-agenda-cmp-user-defined #'db/org-cmp-remaining-effort
|
||
org-agenda-window-setup 'current-window
|
||
org-agenda-restore-windows-after-quit t
|
||
org-agenda-compact-blocks nil
|
||
org-agenda-todo-ignore-with-date nil
|
||
org-agenda-todo-ignore-deadlines nil
|
||
org-agenda-todo-ignore-scheduled nil
|
||
org-agenda-todo-ignore-timestamp nil
|
||
org-agenda-skip-deadline-if-done t
|
||
org-agenda-skip-scheduled-if-done t
|
||
org-agenda-skip-timestamp-if-done t
|
||
org-agenda-skip-scheduled-if-deadline-is-shown 'not-today
|
||
org-agenda-tags-todo-honor-ignore-options t
|
||
org-agenda-start-with-log-mode nil
|
||
org-agenda-log-mode-items '(closed)
|
||
org-agenda-remove-tags nil
|
||
org-agenda-sticky nil
|
||
org-agenda-inhibit-startup nil
|
||
org-agenda-tags-todo-honor-ignore-options t
|
||
org-agenda-dim-blocked-tasks nil
|
||
org-enforce-todo-checkbox-dependencies t
|
||
org-enforce-todo-dependencies t
|
||
org-agenda-use-time-grid t
|
||
org-agenda-persistent-filter t
|
||
org-agenda-search-headline-for-time nil
|
||
org-agenda-search-view-always-boolean t
|
||
|
||
org-agenda-clock-consistency-checks
|
||
'(:max-duration 9999999
|
||
:min-duration 0
|
||
:max-gap 0
|
||
:gap-ok-around nil
|
||
:default-face ((:background "DarkRed") (:foreground "white"))
|
||
:overlap-face nil :gap-face nil :no-end-time-face nil
|
||
:long-face nil :short-face nil)
|
||
|
||
org-agenda-clockreport-parameter-plist
|
||
'(:link t :maxlevel 4 :compact t :narrow 60 :fileskip0 t)
|
||
|
||
;; Note: projects scheduled in the future are not considered stuck, even though they
|
||
;; are projects by itself; the rationale here is that projects that have an explicit
|
||
;; SCHEDULED entry should not be considered before this date is due.
|
||
org-stuck-projects
|
||
'("+TODO=\"\"-DATE-HOLD-NOTE-WAIT-NOP-TOPIC-SOMEWHEN-TEMPLATE-SCHEDULED>=\"<+0d>\""
|
||
("CONT" "TODO" "READ" "WAIT" "GOTO" "DELG" "ATTN")
|
||
("DATE")
|
||
"")
|
||
|
||
org-agenda-prefix-format
|
||
'((agenda . " %11s%?-12t%-4(db/org-remaining-effort-of-current-item) ")
|
||
(todo . " %-8c%-4(db/org-remaining-effort-of-current-item) ")
|
||
(tags . " %-8c%-4(db/org-remaining-effort-of-current-item) ")
|
||
(search . " %-8c%-4(db/org-remaining-effort-of-current-item) "))
|
||
|
||
org-agenda-custom-commands
|
||
`(("A" "Main Agenda"
|
||
((agenda
|
||
""
|
||
((org-agenda-entry-types '(:timestamp :sexp :scheduled :deadline))
|
||
(org-deadline-warning-days 0)))
|
||
(db/org-agenda-list-deadlines
|
||
""
|
||
((org-agenda-overriding-header "Deadlines")
|
||
(org-deadline-past-days 0)
|
||
(org-agenda-sorting-strategy '(deadline-up priority-down))
|
||
(org-deadline-warning-days 30)))
|
||
(tags-todo "TODO={CONT\\|ATTN}-HOLD-SOMEWHEN"
|
||
((org-agenda-overriding-header "Things to do next (Task shortlist and WIP, TODO ∈ {CONT,ATTN}, not scheduled, no near deadline)")
|
||
(org-agenda-todo-ignore-scheduled 'all)
|
||
(org-agenda-todo-ignore-timestamp 0)
|
||
(org-agenda-todo-ignore-deadlines 'near)))))
|
||
|
||
("B" "Backlog"
|
||
((tags-todo "-HOLD-SOMEWHEN-DATE-PERIODIC-TEMPLATE-SCHEDULED<>\"\""
|
||
((org-agenda-overriding-header "Backlog: Actionable items (not periodic, not scheduled)")
|
||
(org-tags-match-list-sublevels t)))
|
||
(tags "TODO=\"\"-HOLD-SOMEWHEN-DATE-PERIODIC-NOTE-NOP-TOPIC-TEMPLATE"
|
||
((org-agenda-overriding-header "Backlog: Complex tasks (i.e., goals)")
|
||
(org-tags-match-list-sublevels t)))))
|
||
|
||
("C" "Checks"
|
||
((tags "TODO=\"\"-HOLD-SOMEWHEN-DATE-PERIODIC-NOTE-NOP-TOPIC-TEMPLATE-GOAL"
|
||
((org-agenda-overriding-header "Goals (i.e., complex tasks) not marked with GOAL")))
|
||
|
||
;; Note: checking whether any SCHEDULED is behind a
|
||
;; DEADLINE is not necessary, as items will appear on the
|
||
;; deadline view anyway.
|
||
|
||
))
|
||
|
||
("U" "Unsupervised (Waiting, Missed Appointments, Hold)"
|
||
((tags "WAIT-TODO={DONE\\|CANC\\|MRGD}-HOLD-SOMEWHEN-SCHEDULED<>\"\"-DEADLINE<=\"<today>\""
|
||
((org-agenda-overriding-header "Waiting For List")))
|
||
(tags-todo "TAGS={DATE}-TIMESTAMP>=\"<today>\""
|
||
((org-agenda-overriding-header "Missed appointments (DATEs with timestamp in the past)")))
|
||
(tags "TAGS={HOLD}-TODO={DONE\\|CANC\\|MRGD}-SOMEWHEN-SCHEDULED<>\"\""
|
||
((org-agenda-overriding-header "Tasks on Hold")))))
|
||
|
||
("S" "Somewhen"
|
||
((tags "TAGS={SOMEWHEN}+TODO=\"\"-NOP-TOPIC-PERIODIC-DATE-SCHEDULED>=\"<today>\""
|
||
((org-agenda-overriding-header "Open Tasks to do SOMEWHEN (no TODO keyword, no PERIODIC, no DATE, no now or future SCHEDULED)")))
|
||
(tags-todo "SOMEWHEN-HOLD"
|
||
((org-agenda-overriding-header "Things To Do SOMEWHEN")
|
||
(org-agenda-todo-ignore-with-date t)
|
||
(org-tags-match-list-sublevels nil)))))
|
||
|
||
("P" "Current Projects and Topics"
|
||
((stuck ""
|
||
((org-agenda-overriding-header "Stuck Complex Tasks")))
|
||
(tags "TAGS={TOPIC}-TODO={DONE\\|CANC\\|MRGD}-SOMEWHEN-SCHEDULED>=\"<today>\"-HOLD-WAIT"
|
||
((org-agenda-overriding-header "Topics (items directly tagged with TOPIC)")))
|
||
(tags "TAGS={NOTE}-TODO={CANC\\|DONE\\|MRGD}-HOLD-NOP-SOMEWHEN-SCHEDULED>=\"<today>\""
|
||
((org-agenda-overriding-header "Project Notes (items explicitly tagged with NOTE but not NOP)")))
|
||
(tags "TAGS={PERIODIC}-TODO={DONE\\|CANC\\|MRGD}-HOLD-SCHEDULED>=\"<today>\"-HOLD-WAIT"
|
||
((org-agenda-overriding-header "Periodic Projects (PERIODIC, not scheduled in the future, not done, not on hold)")))))
|
||
|
||
("W" "Weekly Review"
|
||
((agenda ""
|
||
((org-agenda-span 7)
|
||
(org-agenda-dim-blocked-tasks nil)
|
||
(org-agenda-skip-deadline-prewarning-if-scheduled t)))))))
|
||
|
||
:config (progn
|
||
;; Avoid important buffers to end up in `org-agenda-new-buffers’ by
|
||
;; opening them manually
|
||
(mapc #'find-file-noselect org-agenda-files)
|
||
|
||
;; Check that all expected agenda files are being displayed.
|
||
(advice-add 'org-agenda
|
||
:before #'db/check-special-org-files-in-agenda)
|
||
|
||
(add-hook 'org-agenda-mode-hook #'hl-line-mode 'append)
|
||
|
||
;; Show daily efforts directly in the agenda
|
||
(add-hook 'org-agenda-finalize-hook #'db/org-agenda-insert-efforts)
|
||
|
||
;; Prominently display active filters on top of agenda view; also
|
||
;; update current agenda view when updating filters to make sure our
|
||
;; display is always correct.
|
||
(add-hook 'org-agenda-finalize-hook #'db/org-agenda-insert-active-filters)
|
||
(add-hook 'org-agenda-filter-hook #'org-agenda-redo-all)
|
||
|
||
(define-advice org-agenda-redo (:around
|
||
(actual-agenda-redo &rest r)
|
||
inhibit-recentering)
|
||
"Try to avoid recentering the window when redoing the Org agenda buffer."
|
||
(let ((old-recenter (symbol-function 'recenter)))
|
||
(fset 'recenter 'identity)
|
||
(unwind-protect
|
||
(apply actual-agenda-redo r)
|
||
(fset 'recenter old-recenter))))))
|
||
|
||
;; Capturing
|
||
|
||
(use-package org-capture
|
||
:commands (org-capture)
|
||
:init (setq org-capture-use-agenda-date nil
|
||
org-bookmark-names-plist nil
|
||
org-capture-templates
|
||
`(("t" "Simple Task"
|
||
entry
|
||
(file db/org-default-refile-file)
|
||
,(concat "* TODO [#B] %^{What}\n"
|
||
":PROPERTIES:\n:CREATED: %U\n:END:\n"
|
||
"\nVia %(with-temp-buffer (db/org-add-link-to-current-clock) (string-trim (buffer-string)))."
|
||
"%?")
|
||
:empty-lines-before 1
|
||
:empty-lines-after 1)
|
||
("g" "Record new goal"
|
||
entry
|
||
(file db/org-default-refile-file)
|
||
,(concat "* %^{Description} (%^{Ticket Number}) :GOAL:\n"
|
||
":PROPERTIES:\n:CREATED: %U\n:END:"
|
||
"%?"))
|
||
("h" "Headline (generic Org item)"
|
||
entry
|
||
(file db/org-default-refile-file)
|
||
,(concat "* [#B] %^{What}\n"
|
||
":PROPERTIES:\n:CREATED: %U\n:END:\n"
|
||
"%a"
|
||
"%?")
|
||
:empty-lines-before 1
|
||
:empty-lines-after 1)
|
||
("n" "Note"
|
||
entry
|
||
(file db/org-default-refile-file)
|
||
"* Note: %^{About} :NOTE:\n:PROPERTIES:\n:CREATED: %U\n:END:%?"
|
||
:empty-lines-before 1
|
||
:empty-lines-after 1)
|
||
("d" "Date"
|
||
entry
|
||
(file db/org-default-refile-file)
|
||
,(concat "* GOTO [#B] %^{What} :DATE:\n%^{When}t\n"
|
||
"\nVia %(with-temp-buffer (db/org-add-link-to-current-clock) (string-trim (buffer-string))).\n"
|
||
"%?")
|
||
:empty-lines-before 1
|
||
:empty-lines-after 1)
|
||
("i" "Interruptions"
|
||
entry
|
||
(file db/org-default-refile-file)
|
||
,(concat "* DONE [#B] %^{What}\nCLOSED: %U\n"
|
||
":PROPERTIES:\n:CREATED: %U\n:END:\n"
|
||
"\nInterrupted %(with-temp-buffer (db/org-add-link-to-current-clock) (string-trim (buffer-string)))."
|
||
"%?")
|
||
:clock-in t
|
||
:clock-resume t
|
||
:empty-lines-before 1
|
||
:empty-lines-after 1)
|
||
("r" "Respond"
|
||
entry
|
||
(file db/org-default-refile-file)
|
||
,(concat "* TODO [#B] Reply: %:subject (%:from) :EMAIL:\n"
|
||
":PROPERTIES:\n:CREATED: %U\n:END:\n"
|
||
"\n%a%?")
|
||
:empty-lines-before 1
|
||
:empty-lines-after 1))))
|
||
|
||
;; Babel
|
||
|
||
(use-package ob-core
|
||
:init (setq org-export-use-babel t
|
||
org-babel-default-header-args '((:session . "none")
|
||
(:results . "output drawer replace")
|
||
(:exports . "both")
|
||
(:cache . "no")
|
||
(:noweb . "no")
|
||
(:hlines . "no")
|
||
(:tangle . "no")
|
||
(:eval . "never-export")))
|
||
:config (progn
|
||
;; Let's disable evaluation of some text-only modes.
|
||
(dolist (mode '("json" "markdown" "yaml" "textile" "text"))
|
||
(let ((var-name (intern (format "org-babel-default-header-args:%s" mode))))
|
||
(if (boundp var-name)
|
||
(add-to-list var-name '(:eval . "never"))
|
||
(defvar-1 var-name '((:eval . "never"))))))))
|
||
|
||
(use-package ob-sql
|
||
:config (progn
|
||
|
||
;; XXX: maybe merge this into the advice for `org-babel-execute:sql'?
|
||
(define-advice org-babel-sql-dbstring-oracle (:around
|
||
(orig-fun host port user password database)
|
||
ask-for-password)
|
||
"Ask for PASSWORD if not given, and call ORIG-FUN with arguments afterwards."
|
||
(cond
|
||
((not (or (and user database host port)
|
||
(and user database)))
|
||
(user-error "Insufficient login credentials given, aborting"))
|
||
(password
|
||
(funcall orig-fun host port user password database))
|
||
(t
|
||
(funcall orig-fun
|
||
host port user
|
||
(password-read (format "Password for %s@%s: " user database))
|
||
database))))))
|
||
|
||
;; Exporting
|
||
|
||
(use-package ox-icalendar
|
||
:commands (org-icalendar-combine-agenda-files)
|
||
:init (setq org-icalendar-include-body nil
|
||
org-icalendar-store-UID t
|
||
org-icalendar-use-deadline nil
|
||
org-icalendar-use-scheduled nil
|
||
org-icalendar-include-todo nil
|
||
org-icalendar-exclude-tags '("NO_EXPORT")))
|
||
|
||
(use-package ox
|
||
:init (setq org-export-with-broken-links 'mark
|
||
org-export-with-sub-superscripts '{}
|
||
org-export-with-author nil
|
||
org-export-with-date nil
|
||
org-export-with-toc nil
|
||
org-export-with-archived-trees nil
|
||
org-export-with-tags t
|
||
org-export-with-priority nil
|
||
org-export-with-creator nil
|
||
org-export-with-entities t
|
||
org-export-with-special-strings t
|
||
org-export-with-todo-keywords nil
|
||
org-export-exclude-tags '("NO_EXPORT"))
|
||
:config (with-demoted-errors "Cannot load package: %s"
|
||
(require 'ox-md)
|
||
(require 'ox-pandoc)))
|
||
|
||
(use-package ox-html
|
||
:init (setq org-html-postamble nil))
|
||
|
||
(use-package ox-pandoc
|
||
:init (setq org-pandoc-options-for-docx '((standalone . t))))
|
||
|
||
;; Extra Org packages
|
||
|
||
(use-package org-tree-slide
|
||
:commands (org-tree-slide-mode)
|
||
;; Configuration from https://protesilaos.com/dotemacs/
|
||
:init (setopt org-tree-slide-breadcrumbs " → "
|
||
org-tree-slide-header t
|
||
org-tree-slide-slide-in-effect nil
|
||
org-tree-slide-heading-emphasis nil
|
||
org-tree-slide-cursor-init t
|
||
org-tree-slide-modeline-display nil
|
||
org-tree-slide-content-margin-top 2
|
||
org-tree-slide-skip-done nil
|
||
org-tree-slide-skip-comments t
|
||
org-tree-slide-fold-subtrees-skipped t
|
||
org-tree-slide-skip-outline-level 8
|
||
org-tree-slide-never-touch-face t
|
||
org-tree-slide-activate-message (propertize "Presentation mode ON" 'face 'success)
|
||
org-tree-slide-deactivate-message (propertize "Presentation mode OFF" 'face 'error))
|
||
:bind (:map org-tree-slide-mode-map
|
||
("<C-down>" . org-tree-slide-display-header-toggle)
|
||
("<C-right>" . org-tree-slide-move-next-tree)
|
||
("<C-left>" . org-tree-slide-move-previous-tree)))
|
||
|
||
(use-package org-roam
|
||
:init (progn
|
||
(add-to-list 'display-buffer-alist
|
||
'("\\*org-roam\\*"
|
||
(display-buffer-in-side-window)
|
||
(side . right)
|
||
(slot . 0)
|
||
(window-width . 0.33)
|
||
(window-parameters . ((no-other-window . t)
|
||
(no-delete-other-windows . t)))))
|
||
|
||
(setq org-roam-directory (expand-file-name "~/Documents/zettelkasten/")
|
||
org-roam-db-location (expand-file-name "~/Documents/zettelkasten/org-roam.db")
|
||
org-roam-completion-everywhere t
|
||
org-roam-mode-sections (list #'org-roam-backlinks-section
|
||
#'org-roam-reflinks-section
|
||
#'org-roam-unlinked-references-section)))
|
||
|
||
:commands (org-roam-node-insert
|
||
org-roam-node-find
|
||
org-roam-capture
|
||
org-roam-buffer-toggle)
|
||
|
||
:autoload (org-roam-backlinks-section
|
||
org-roam-reflinks-section
|
||
org-roam-unlinked-references-section)
|
||
|
||
:config (progn
|
||
(org-roam-db-autosync-mode)
|
||
|
||
(define-advice org-roam-buffer-render-contents
|
||
(:around (orig-func) show-buffer-in-selected-window)
|
||
"Show Org roam buffer in selected window before updating its content.
|
||
|
||
See https://github.com/org-roam/org-roam/issues/1586, and in particular
|
||
https://github.com/org-roam/org-roam/issues/1586#issuecomment-1412250226.
|
||
Note that this workaround is incomplete, as explained in this comment."
|
||
(let ((org-roam-buffer-window (display-buffer (current-buffer))))
|
||
;; When we cannot display the buffer, there is also no need to
|
||
;; update it, no?
|
||
(when org-roam-buffer-window
|
||
(with-selected-window org-roam-buffer-window
|
||
(funcall orig-func)))))))
|
||
|
||
(with-eval-after-load 'org
|
||
;; I would like to include this keybinding in the :bind definition of `org'
|
||
;; above, but doing so seems to attach an autoload to `org-roam-buffer-toggle'
|
||
;; on org.el; the latter inclusion of `org-roam-buffer-toggle' in the
|
||
;; :commands list of `org-roam' does not seem to overwrite this.
|
||
(bind-key "C-c n l" #'org-roam-buffer-toggle org-mode-map))
|
||
|
||
|
||
;;* General Programming
|
||
|
||
;; Configuration that pertains to programming in general, without referring to
|
||
;; any programming language in particular.
|
||
|
||
(use-package prog-mode
|
||
:config (progn
|
||
(add-hook 'prog-mode-hook 'electric-indent-local-mode)
|
||
(add-hook 'prog-mode-hook 'hl-line-mode)
|
||
(add-hook 'prog-mode-hook 'page-break-lines-mode)
|
||
(add-hook 'prog-mode-hook 'display-fill-column-indicator-mode)
|
||
(add-hook 'prog-mode-hook #'(lambda () (setq show-trailing-whitespace t)))
|
||
(add-hook 'prog-mode-hook 'outline-minor-mode)))
|
||
|
||
(use-package diff-hl
|
||
:ensure t
|
||
:commands (global-diff-hl-mode
|
||
diff-hl-dired-mode)
|
||
:autoload (diff-hl-magit-post-refresh))
|
||
|
||
(use-package ediff
|
||
:init (setq ediff-diff-options "-w"
|
||
ediff-window-setup-function 'ediff-setup-windows-plain
|
||
ediff-split-window-function 'split-window-horizontally
|
||
ediff-show-clashes-only t)
|
||
:config (add-hook 'ediff-after-quit-hook-internal 'winner-undo))
|
||
|
||
(use-package eldoc
|
||
:commands (global-eldoc-mode
|
||
turn-on-eldoc-mode)
|
||
:diminish eldoc-mode)
|
||
|
||
(use-package eglot
|
||
:ensure nil
|
||
;; Inspired by https://andreyor.st/posts/2023-09-09-migrating-from-lsp-mode-to-eglot.
|
||
:init (setq eglot-autoshutdown t
|
||
eglot-extend-to-xref nil
|
||
eglot-stay-out-of '(yasnippet)))
|
||
|
||
(use-package flycheck
|
||
:ensure t
|
||
:commands (global-flycheck-mode flycheck-mode)
|
||
:init (setq flycheck-emacs-lisp-load-path 'inherit
|
||
;; Hack: inherit `byte-compile-warnings' setting in Emacs
|
||
;; subprocess; this value is only set once upon starting Emacs, so
|
||
;; make sure to manually update this setting when updating
|
||
;; `byte-compile-warnings'.
|
||
flycheck-emacs-args `("-Q"
|
||
"--batch"
|
||
"--eval" ,(message "(setq byte-compile-warnings (quote %s))"
|
||
byte-compile-warnings))))
|
||
|
||
(use-package flymake
|
||
:init (setq flymake-show-diagnostics-at-end-of-line 'short))
|
||
|
||
(use-package git-commit
|
||
:commands (global-git-commit-mode)
|
||
:init (setq git-commit-style-convention-checks '(non-empty-second-line
|
||
overlong-summary-line)))
|
||
|
||
(use-package git-link
|
||
:commands (git-link
|
||
git-link-homepage
|
||
git-link-dispatch)
|
||
:init (setopt git-link-consider-ssh-config t
|
||
git-link-open-in-browser t
|
||
git-link-use-commit t)
|
||
:config (progn
|
||
;; Add default generic Gitea handler for URLs containing “gitea”.
|
||
(add-to-list 'git-link-remote-alist '("gitea" git-link-gitea) t)
|
||
(add-to-list 'git-link-commit-remote-alist '("gitea" git-link-commit-gitea) t)
|
||
(add-to-list 'git-link-homepage-remote-alist '("gitea" git-link-homepage-github) t)))
|
||
|
||
(use-package highlight-indentation
|
||
:commands highlight-indentation-mode)
|
||
|
||
(use-package iedit
|
||
:ensure t
|
||
:commands (iedit-mode))
|
||
|
||
;; See https://andreyor.st/posts/2023-09-09-migrating-from-lsp-mode-to-eglot/
|
||
;; for where some of the configuration for `lsp-mode' is coming from.
|
||
(use-package lsp-mode
|
||
:commands (lsp-mode)
|
||
:ensure nil
|
||
:init (setq lsp-keymap-prefix "C-c C-l"
|
||
lsp-session-file (expand-file-name ".lsp-session" emacs-d-userdata)
|
||
lsp-log-io t
|
||
lsp-keep-workspace-alive nil
|
||
lsp-idle-delay 0.5
|
||
lsp-auto-configure t
|
||
lsp-headerline-breadcrumb-enable nil
|
||
lsp-signature-doc-lines 1)
|
||
:hook ((lsp-mode . lsp-diagnostics-mode)
|
||
(lsp-mode . lsp-completion-mode))
|
||
:commands (lsp lsp-deferred))
|
||
|
||
(use-package lsp-ui
|
||
:ensure nil
|
||
:commands (lsp-ui-mode))
|
||
|
||
(use-package magit
|
||
:ensure t
|
||
:commands (magit-status
|
||
magit-list-repositories)
|
||
:autoload (magit-repolist-column-ident
|
||
magit-repolist-column-flag
|
||
magit-repolist-column-unpulled-from-upstream
|
||
magit-repolist-column-unpushed-to-upstream
|
||
magit-repolist-column-version
|
||
magit-repolist-column-path)
|
||
:init (progn
|
||
(setopt magit-diff-refine-hunk nil
|
||
magit-commit-show-diff nil
|
||
magit-branch-direct-configure nil
|
||
|
||
magit-repository-directories '(("~/" . 0)
|
||
("~/.emacs.d" . 0)
|
||
("~/Documents/" . 3)
|
||
("~/.local/share/dotfiles" . 0))
|
||
|
||
magit-repolist-columns `(("Name" 20 ,#'magit-repolist-column-ident
|
||
())
|
||
("S" 1 ,#'magit-repolist-column-flag
|
||
())
|
||
("B<U" 3 ,#'magit-repolist-column-unpulled-from-upstream
|
||
((:right-align t)
|
||
(:sort <)))
|
||
("B>U" 3 ,#'magit-repolist-column-unpushed-to-upstream
|
||
((:right-align t)
|
||
(:sort <)))
|
||
("Version" 35 ,#'magit-repolist-column-version
|
||
((:sort magit-repolist-version<)))
|
||
("Path" 99 ,#'magit-repolist-column-path
|
||
())))
|
||
|
||
(when on-windows
|
||
;; Increase performance by not automatically refreshing status buffers
|
||
(setopt magit-refresh-status-buffer nil)))
|
||
|
||
:config (progn
|
||
(when (fboundp 'global-magit-file-mode)
|
||
(global-magit-file-mode -1))
|
||
(global-git-commit-mode 1)
|
||
|
||
;; Update diff-hl fringe marks after committing
|
||
(add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh)))
|
||
|
||
(use-package page-break-lines
|
||
:pin "melpa-stable"
|
||
:commands (page-break-lines-mode)
|
||
:diminish page-break-lines-mode)
|
||
|
||
(use-package transient
|
||
:init (setq transient-levels-file (expand-file-name "transient/levels.el" emacs-d-userdata)
|
||
transient-values-file (expand-file-name "transient/values.el" emacs-d-userdata)
|
||
transient-history-file (expand-file-name "transient/history.el" emacs-d-userdata)))
|
||
|
||
(use-package vc
|
||
:init (setopt vc-git-diff-switches '("--histogram")))
|
||
|
||
|
||
;;* Mail
|
||
|
||
(use-package db-mail
|
||
:commands (db/smtpmail-send-it
|
||
db/public-key
|
||
db/encryption-possible-p
|
||
db/message-recipients
|
||
db/signencrypt-message-when-possible
|
||
db/gnus-save-newsrc-with-whitespace-1
|
||
db/gnus-summary-open-Link
|
||
db/gnus-html-mime-part-to-org
|
||
db/gnus-demon-scan-news-on-level-2))
|
||
|
||
(use-package bbdb
|
||
:ensure t
|
||
:commands (bbdb-search-name
|
||
bbdb-initialize
|
||
bbdb-mua-auto-update-init
|
||
bbdb-save)
|
||
:hook ((message-setup . bbdb-mail-aliases)
|
||
(mail-setup . bbdb-mail-aliases))
|
||
:init (setq bbdb-completion-display-record nil
|
||
bbdb-complete-mail-allow-cycling t
|
||
bbdb-mua-auto-action 'query
|
||
bbdb-default-country "Germany")
|
||
:config (run-with-timer 0 3600 #'bbdb-save))
|
||
|
||
;; Gnus package configuration
|
||
|
||
(use-package gnus
|
||
:commands (gnus)
|
||
:config (progn
|
||
(require 'db-mail)
|
||
|
||
(with-demoted-errors "Setting up BBDB failed: %s"
|
||
(bbdb-initialize 'gnus 'message)
|
||
(bbdb-mua-auto-update-init 'message))
|
||
|
||
;; Ensure that whenever we compose new mail, it will use the correct posting style.
|
||
;; This is ensured by setting ARG of `gnus-group-mail’ to 1 in case it is not set, to
|
||
;; let it query the user for a group.
|
||
(define-advice gnus-group-mail (:around
|
||
(orig-fun &optional arg)
|
||
inhibit-no-argument)
|
||
(if arg
|
||
(funcall orig-fun arg)
|
||
(funcall orig-fun 1)))
|
||
|
||
(remove-hook 'gnus-mark-article-hook
|
||
'gnus-summary-mark-read-and-unread-as-read)
|
||
(add-hook 'gnus-mark-article-hook 'gnus-summary-mark-unread-as-read)
|
||
|
||
;; Quit Gnus gracefully when exiting Emacs
|
||
(add-hook 'kill-emacs-hook #'(lambda ()
|
||
(interactive)
|
||
(when (get-buffer "*Group*")
|
||
(gnus-group-exit))))
|
||
|
||
;; Don’t quit summary buffer when pressing `q’
|
||
(bind-key "q" #'gnus-summary-expand-window gnus-article-mode-map)
|
||
|
||
;; Show topics in group buffer
|
||
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
|
||
|
||
;; Increase score of group after reading it
|
||
(add-hook 'gnus-summary-exit-hook
|
||
'gnus-summary-bubble-group)
|
||
|
||
;; Use Gnus’ registry; doing this too early conflicts with `gnus'
|
||
;; calling `gnus-shutdown', which in turn calls
|
||
;; `gnus-registry-clear', leaving us with an empty registry upon
|
||
;; startup. So let's call this initialization right before startup,
|
||
;; that should be fine.
|
||
(add-hook 'gnus-before-startup-hook
|
||
#'gnus-registry-initialize)
|
||
|
||
;; Automatic encryption if all necessary keys are present
|
||
(add-hook 'gnus-message-setup-hook
|
||
#'db/signencrypt-message-when-possible)
|
||
|
||
;; Do some pretty printing before saving the newsrc file
|
||
(add-hook 'gnus-save-quick-newsrc-hook
|
||
#'db/gnus-save-newsrc-with-whitespace-1)
|
||
|
||
;; Automatically scan for new news
|
||
(gnus-demon-add-handler 'db/gnus-demon-scan-news-on-level-2 5 5)
|
||
|
||
;; Automatically expire groups on idle
|
||
(gnus-demon-add-handler 'gnus-group-expire-all-groups 10 5)
|
||
|
||
;; Visit group under point and immediately close it; this updates
|
||
;; gnus’ registry as a side-effect
|
||
(bind-key "v u"
|
||
#'(lambda ()
|
||
(interactive)
|
||
(save-mark-and-excursion
|
||
(when (gnus-topic-select-group)
|
||
(gnus-summary-exit))))
|
||
gnus-group-mode-map)
|
||
|
||
;; Toggle visibility of News group
|
||
(bind-key "v c"
|
||
#'(lambda ()
|
||
(interactive)
|
||
(save-mark-and-excursion
|
||
(gnus-topic-jump-to-topic "News")
|
||
(gnus-topic-read-group)))
|
||
gnus-group-mode-map)
|
||
|
||
(bind-key "C-<return>" #'db/gnus-summary-open-Link gnus-summary-mode-map)
|
||
(bind-key "C-<return>" #'db/gnus-summary-open-Link gnus-article-mode-map)))
|
||
|
||
(use-package gnus-topic
|
||
:commands (gnus-topic-select-group
|
||
gnus-topic-jump-to-topic
|
||
gnus-topic-read-group))
|
||
|
||
(use-package gnus-demon
|
||
:autoload (gnus-demon-add-handler))
|
||
|
||
(use-package gnus-group
|
||
:commands (gnus-group-exit))
|
||
|
||
;; General Gnus configuration
|
||
|
||
(use-package nntp)
|
||
(use-package nnml)
|
||
(use-package message)
|
||
(use-package gnus-msg)
|
||
(use-package gnus-async)
|
||
|
||
(setq gnus-init-file (expand-file-name "gnus.el" emacs-d)
|
||
gnus-home-directory (expand-file-name "~/.config/gnus-news")
|
||
gnus-directory gnus-home-directory
|
||
gnus-kill-files-directory gnus-directory
|
||
gnus-startup-file (expand-file-name "gnus-newsrc" emacs-d-userdata)
|
||
gnus-cache-directory (expand-file-name "cache/" gnus-directory)
|
||
gnus-verbose 6
|
||
gnus-dbus-close-on-sleep t
|
||
|
||
message-directory (expand-file-name "mail/" gnus-directory)
|
||
nnmail-message-id-cache-file (expand-file-name ".nnmail-cache" gnus-directory)
|
||
nnml-directory message-directory
|
||
mail-sources '((file))
|
||
mail-source-delete-incoming t
|
||
nntp-nov-is-evil t
|
||
nntp-connection-timeout nil
|
||
gnus-asynchronous t
|
||
gnus-save-killed-list nil
|
||
gnus-save-newsrc-file nil
|
||
gnus-read-newsrc-file nil
|
||
gnus-check-new-newsgroups nil
|
||
gnus-use-cache 'passive
|
||
gnus-read-active-file 'some
|
||
gnus-subscribe-newsgroup-method 'gnus-subscribe-killed
|
||
gnus-group-list-inactive-groups t
|
||
gnus-suppress-duplicates nil
|
||
gnus-large-newsgroup 500
|
||
nnmail-expiry-wait 7
|
||
nnmail-cache-accepted-message-ids t
|
||
gnus-use-full-window nil
|
||
gnus-always-force-window-configuration t
|
||
gnus-select-method '(nnnil "")
|
||
gnus-refer-article-method 'current
|
||
|
||
message-citation-line-function
|
||
#'(lambda ()
|
||
(when message-reply-headers
|
||
(insert "ghItlhpu' "
|
||
(mail-header-from message-reply-headers)
|
||
":")
|
||
(newline))))
|
||
|
||
;; Gnus Appearence
|
||
|
||
(use-package gnus-sum
|
||
:commands (gnus-summary-exit
|
||
gnus-summary-expand-window)
|
||
:init (setq gnus-group-line-format "%S%p%P%5y(%2i):%B%(%s:%G%)\n"
|
||
gnus-build-sparse-threads 'some
|
||
gnus-summary-next-group-on-exit nil
|
||
gnus-fetch-old-headers nil
|
||
gnus-auto-select-first nil
|
||
gnus-auto-select-next nil
|
||
gnus-summary-stop-at-end-of-message nil
|
||
gnus-summary-line-format "%U%ub%R%O%6k %(%&user-date; %-18,18f %B%s%)\n"
|
||
gnus-thread-sort-functions '(gnus-thread-sort-by-most-recent-date)
|
||
gnus-subthread-sort-functions '(gnus-thread-sort-by-date)
|
||
gnus-thread-hide-subtree t
|
||
gnus-user-date-format-alist '((t . "%Y-%m-%d %H:%M"))
|
||
gnus-sum-thread-tree-indent " "
|
||
gnus-sum-thread-tree-root "● "
|
||
gnus-sum-thread-tree-false-root "◎ "
|
||
gnus-sum-thread-tree-single-indent "◯ "
|
||
gnus-sum-thread-tree-single-leaf "╰► "
|
||
gnus-sum-thread-tree-leaf-with-other "├► "
|
||
gnus-sum-thread-tree-vertical "│"
|
||
gnus-summary-thread-gathering-function 'gnus-gather-threads-by-references
|
||
gnus-summary-mark-below nil
|
||
|
||
;; New mark symbols (seen here:
|
||
;; `https://github.com/cofi/dotfiles/blob/master/gnus.el')
|
||
gnus-ancient-mark ?✓
|
||
;; gnus-cached-mark ?☍
|
||
gnus-canceled-mark ?↗
|
||
gnus-del-mark ?✗
|
||
;; gnus-dormant-mark ?⚐
|
||
gnus-expirable-mark ?♻
|
||
gnus-forwarded-mark ?↪
|
||
;; gnus-killed-mark ?☠
|
||
;; gnus-process-mark ?⚙
|
||
gnus-read-mark ?✓
|
||
gnus-recent-mark ?✩
|
||
gnus-replied-mark ?↺
|
||
gnus-unread-mark ?✉
|
||
;; gnus-unseen-mark ?★
|
||
;; gnus-ticked-mark ?⚑
|
||
))
|
||
|
||
(use-package gnus-art
|
||
:init (setq gnus-ignored-mime-types '("text/x-vcard")
|
||
gnus-inhibit-mime-unbuttonizing nil
|
||
gnus-buttonized-mime-types '("multipart/signed" "multipart/encrypted")
|
||
gnus-inhibit-images t
|
||
gnus-blocked-images ".*"
|
||
gnus-visible-headers (regexp-opt '("From:"
|
||
"Newsgroups:"
|
||
"Subject:"
|
||
"Date:"
|
||
"Followup-To:"
|
||
"Reply-To:"
|
||
"Organization:"
|
||
"Summary:"
|
||
"Keywords:"
|
||
"Mail-Copies-To:"
|
||
"To:"
|
||
"Cc:"
|
||
"BCC:"
|
||
"X-Newsreader:"
|
||
"X-Mailer:"
|
||
"X-Sent:"
|
||
"Posted-To:"
|
||
"Mail-Copies-To:"
|
||
"Apparently-To:"
|
||
"Gnus-Warning:"
|
||
"Resent-From:"
|
||
"gpg-key-ID:"
|
||
"fingerprint:"
|
||
"X-Jabber-ID:"
|
||
"User-Agent:"))
|
||
gnus-treat-hide-boring-headers 'head
|
||
gnus-treat-strip-multiple-blank-lines nil
|
||
gnus-treat-display-smileys t
|
||
gnus-treat-emphasize 'head
|
||
gnus-treat-unsplit-urls t))
|
||
|
||
;; Adaptive Scoring
|
||
|
||
(use-package gnus-score
|
||
:init (setq gnus-use-scoring t
|
||
gnus-use-adaptive-scoring '(word line)
|
||
gnus-adaptive-word-length-limit 5
|
||
gnus-adaptive-word-no-group-words t
|
||
gnus-default-adaptive-score-alist
|
||
'((gnus-unread-mark)
|
||
(gnus-ticked-mark (from 4))
|
||
(gnus-dormant-mark (from 5))
|
||
(gnus-del-mark (from -4) (subject -1))
|
||
(gnus-read-mark (from 4) (subject 2))
|
||
(gnus-expirable-mark (from -1) (subject -1))
|
||
(gnus-killed-mark (from -1) (subject -3))
|
||
(gnus-kill-file-mark)
|
||
(gnus-ancient-mark)
|
||
(gnus-low-score-mark)
|
||
(gnus-catchup-mark (from -1) (subject -1)))))
|
||
|
||
;; Gnus Registry
|
||
|
||
(use-package gnus-registry
|
||
:commands (gnus-registry-split-fancy-with-parent
|
||
gnus-registry-initialize)
|
||
:init (setq gnus-registry-split-strategy 'majority
|
||
gnus-registry-ignored-groups '(("^nntp" t)
|
||
("^nnfolder" t)
|
||
("^nnir" t)
|
||
("^nnmaildir" t)
|
||
("INBOX$" t))
|
||
gnus-registry-max-entries 10000
|
||
gnus-registry-track-extra '(sender subject recipient)
|
||
gnus-registry-cache-file (expand-file-name "gnus.registry.eioioi"
|
||
emacs-d)))
|
||
|
||
;; MIME decoding
|
||
|
||
(use-package mm-decode
|
||
:init (setq mm-text-html-renderer 'shr
|
||
mm-discouraged-alternatives '("text/richtext")
|
||
mm-decrypt-option 'known
|
||
mm-verify-option 'known)
|
||
:config (progn
|
||
(setq mm-automatic-display (-difference mm-automatic-display
|
||
'("text/enriched"
|
||
"text/richtext")))
|
||
|
||
;; Automatically show PGP data inline
|
||
(add-to-list 'mm-inlined-types "application/pgp$")
|
||
(add-to-list 'mm-inline-media-tests
|
||
'("application/pgp$" mm-inline-text identity))
|
||
(add-to-list 'mm-automatic-display "application/pgp$")
|
||
|
||
;; When copying MIME buffers, we are looking for the start of the
|
||
;; header by searching ^\n; however, if we received mail from
|
||
;; Outlook, there's an ^\r\n seperating header and body, which is
|
||
;; not found by `mm-copy-to-buffer', leaving the target buffer empty
|
||
;; and the mail as well. Redefining `mm-copy-to-buffer' to also
|
||
;; search for ^\r\n might help.
|
||
|
||
(define-advice mm-copy-to-buffer (:around (orig-fun) also-consider-crlf)
|
||
"Overwrite `mm-copy-to-buffer' to allow for CRLF in addition to LF."
|
||
(ignore orig-fun)
|
||
(let ((obuf (current-buffer))
|
||
(mb enable-multibyte-characters)
|
||
beg)
|
||
(goto-char (point-min))
|
||
;; The following regex has been extended by \r? .
|
||
(search-forward-regexp "^\r?\n" nil 'move) ;; There might be no body.
|
||
(setq beg (point))
|
||
(with-current-buffer
|
||
(generate-new-buffer " *mm*")
|
||
;; Preserve the data's unibyteness (for url-insert-file-contents).
|
||
(set-buffer-multibyte mb)
|
||
(insert-buffer-substring obuf beg)
|
||
(current-buffer))))))
|
||
|
||
(setq message-forward-as-mime nil)
|
||
|
||
;; MIME creation; signing, and encryption
|
||
|
||
(setq mml-attach-file-at-the-end t)
|
||
|
||
(use-package mm-encode
|
||
:init (setq mm-encrypt-option nil
|
||
mm-sign-option nil))
|
||
|
||
(setq mml-secure-openpgp-encrypt-to-self t
|
||
mml-secure-smime-encrypt-to-self t
|
||
mml2015-display-key-image nil
|
||
gnus-message-replysign t
|
||
gnus-message-replyencrypt t
|
||
gnus-message-replysignencrypted t
|
||
mml-secure-cache-passphrase nil
|
||
mml-secure-openpgp-sign-with-sender t
|
||
mml-secure-smime-sign-with-sender t)
|
||
|
||
(use-package mml-smime
|
||
:init (setq mml-smime-use 'epg)
|
||
:config (progn
|
||
;; Outlook seems to expect \r\n in PKCS#7 encrypted containers, but
|
||
;; Gnus is only sending \n; so let's artificially replace \n by \r\n
|
||
;; after, well, signing? But only if we are encrypting with S/MIME,
|
||
;; as otherwise the search for \n\n in `message-encode-message-body'
|
||
;; will break. However, I think this is not the right way to do it
|
||
;; … isn't there some way to specify the encoding of the the
|
||
;; relevant MML buffers to be some nasty cp1252 or something?
|
||
|
||
;; A previous version of this worked, but the following has not been
|
||
;; tested with Outlook proper.
|
||
|
||
(define-advice mml-smime-epg-sign (:after (cont) add-crlf-when-pkcs7)
|
||
"If CONT signifies encryption with smime, replace all \\n with \\r\\n."
|
||
(when (and (eq (car cont) 'part)
|
||
(string= "smime" (or (cdr (assq 'encrypt cont)) "")))
|
||
(db/convert-lf-to-crlf-in-buffer)))))
|
||
|
||
;; Archiving
|
||
|
||
;; We store messages in the current group, so there is
|
||
;; no need to use Gnus’ archiving method
|
||
|
||
(setq gnus-message-archive-method nil
|
||
gnus-update-message-archive-method t
|
||
gnus-message-archive-group nil
|
||
gnus-gcc-mark-as-read t)
|
||
|
||
;; Searching
|
||
|
||
(use-package gnus-search
|
||
:init (setq gnus-search-default-engines '((nnimap . gnus-search-imap))
|
||
gnus-search-use-parsed-queries t))
|
||
|
||
;; Agents
|
||
|
||
(use-package gnus-agent
|
||
:init (setq gnus-agent-mark-unread-after-downloaded nil
|
||
gnus-agent-consider-all-articles t
|
||
gnus-agent-synchronize-flags t
|
||
gnus-agent-go-online t))
|
||
|
||
;; Sending mail
|
||
|
||
(setq message-send-mail-function #'db/smtpmail-send-it
|
||
send-mail-function #'db/smtpmail-send-it
|
||
mail-user-agent 'gnus-user-agent)
|
||
|
||
(use-package smtpmail
|
||
:init (setq smtpmail-stream-type 'starttls
|
||
smtpmail-smtp-service 587
|
||
smtpmail-debug-info t))
|
||
|
||
|
||
;;* Crypto
|
||
|
||
(use-package nsm
|
||
:init (setq network-security-level 'high
|
||
nsm-save-host-names t
|
||
nsm-settings-file (expand-file-name "network-security.data" emacs-d-userdata))
|
||
:config (advice-add 'nsm-write-settings
|
||
:before #'db/sort-nsm-permanent-settings))
|
||
|
||
(use-package gnutls
|
||
:init (setq gnutls-log-level 0 ; too noisy otherwise
|
||
gnutls-min-prime-bits 1024
|
||
gnutls-verify-error t))
|
||
|
||
(use-package epa
|
||
:init (setq epa-keys-select-method 'minibuffer))
|
||
|
||
(add-to-list 'file-name-handler-alist
|
||
'("\\.asc\\'" . epa-file-handler))
|
||
|
||
(use-package epg
|
||
:init (setq epg-debug t
|
||
epg-gpg-program "gpg"))
|
||
|
||
(use-package org-password-manager
|
||
:commands (org-password-manager-get-username
|
||
org-password-manager-get-password))
|
||
|
||
|
||
;;* Appearance
|
||
|
||
(setq-default cursor-type 'bar
|
||
cursor-in-non-selected-windows nil
|
||
font-lock-maximum-decoration '((t . t)))
|
||
|
||
(setopt mode-line-format '((ace-window-display-mode
|
||
(:eval (window-parameter (selected-window) 'ace-window-path)))
|
||
"%e"
|
||
mode-line-front-space
|
||
(""
|
||
mode-line-mule-info
|
||
mode-line-client
|
||
mode-line-modified
|
||
mode-line-remote
|
||
mode-line-window-dedicated)
|
||
mode-line-frame-identification
|
||
(:eval (if (mode-line-window-selected-p)
|
||
mode-line-buffer-identification
|
||
(list (propertize (car mode-line-buffer-identification)
|
||
'face nil))))
|
||
" "
|
||
mode-line-position
|
||
(project-mode-line project-mode-line-format)
|
||
(vc-mode vc-mode)
|
||
" "
|
||
mode-line-modes
|
||
mode-line-misc-info
|
||
mode-line-end-spaces))
|
||
|
||
(use-package solarized-theme
|
||
:ensure t
|
||
:init (setopt solarized-use-less-bold t
|
||
solarized-emphasize-indicators t
|
||
solarized-use-variable-pitch nil
|
||
solarized-high-contrast-mode-line nil))
|
||
|
||
(use-package moody
|
||
:ensure t
|
||
:commands (moody-replace-mode-line-buffer-identification
|
||
moody-replace-vc-mode))
|
||
|
||
(use-package smiley
|
||
:init (setq smiley-style 'emoji))
|
||
|
||
(use-package shr
|
||
:init (setq shr-use-fonts nil
|
||
shr-use-colors nil
|
||
shr-max-image-proportion 0.7
|
||
shr-image-animate nil
|
||
shr-width (current-fill-column)))
|
||
|
||
|
||
;;* File Handling
|
||
|
||
(setq large-file-warning-threshold 10000000
|
||
delete-by-moving-to-trash t)
|
||
|
||
;; Backups and Autosave
|
||
(defvar backup-dir (expand-file-name "ebackup/" emacs-d))
|
||
(defvar autosave-dir (expand-file-name "eautosave/" emacs-d))
|
||
(setq make-backup-files t
|
||
backup-directory-alist (list (cons ".*" backup-dir))
|
||
auto-save-list-file-prefix autosave-dir
|
||
auto-save-file-name-transforms `((".*" ,autosave-dir t))
|
||
version-control t
|
||
kept-old-versions 2
|
||
kept-new-versions 4
|
||
delete-old-versions t
|
||
vc-make-backup-files t)
|
||
|
||
(use-package dired-aux
|
||
:defines (dired-create-destination-dirs
|
||
dired-vc-rename-file))
|
||
|
||
(use-package dired-x
|
||
:defines (dired-omit-files)
|
||
:init (setq dired-x-hands-off-my-keys t))
|
||
|
||
(use-package wdired
|
||
:defines (wdired-create-parent-directories
|
||
wdired-allow-to-change-permissions))
|
||
|
||
(use-package dired
|
||
:commands (dired-jump
|
||
dired-jump-other-window)
|
||
:bind (:map dired-mode-map
|
||
("e" . db/dired-ediff-files)
|
||
("z" . db/dired-get-size)
|
||
([remap beginning-of-buffer] . db/dired-back-to-top)
|
||
([remap end-of-buffer] . db/dired-jump-to-bottom)
|
||
("<f1>" . nil)
|
||
("<tab>" . dired-subtree-toggle)
|
||
("<C-tab>" . dired-subtree-cycle))
|
||
:init (progn
|
||
(setq dired-dwim-target t
|
||
dired-listing-switches "-ahlvF"
|
||
dired-ls-F-marks-symlinks t
|
||
dired-hide-details-hide-information-lines nil
|
||
dired-hide-details-hide-symlink-targets nil
|
||
dired-recursive-copies 'top
|
||
dired-recursive-deletes 'top
|
||
dired-create-destination-dirs 'ask
|
||
dired-vc-rename-file t
|
||
dired-kill-when-opening-new-dired-buffer nil
|
||
dired-maybe-use-globstar t
|
||
dired-omit-files "^\\.?#\\|^\\.$\\|^\\.\\.$\\|^\\..*$"
|
||
wdired-create-parent-directories t
|
||
wdired-allow-to-change-permissions t
|
||
dired-isearch-filenames 'dwim
|
||
dired-auto-revert-buffer t
|
||
dired-clean-confirm-killing-deleted-buffers t
|
||
dired-clean-up-buffers-too t
|
||
dired-movement-style 'bounded
|
||
dired-filename-display-length nil)
|
||
|
||
(setq dired-guess-shell-alist-user
|
||
'(("\\.pdf\\'" "evince")
|
||
("\\.ps\\'" "evince")
|
||
("\\.\\(?:djvu\\|eps\\)\\'" "evince")
|
||
("\\.\\(?:jpg\\|jpeg\\|png\\|gif\\|xpm\\)\\'" "eog")
|
||
("\\.\\(?:xcf\\)\\'" "gimp")
|
||
("\\.\\(?:mp4\\|mkv\\|avi\\|flv\\|ogv\\|webm\\)\\(?:\\.part\\)?\\'"
|
||
"vlc")
|
||
("\\.\\(?:mp3\\|flac\\|ogg\\)\\'" "mplayer")
|
||
("\\.docx?\\'" "loffice"))))
|
||
:config (progn
|
||
(put 'dired-find-alternate-file 'disabled nil)
|
||
|
||
(require 'dired-x)
|
||
(require 'dired-aux)
|
||
(require 'wdired)
|
||
|
||
(with-demoted-errors "Non-Fatal Errors (dired-open): %s"
|
||
(require 'dired-open))
|
||
|
||
(if (eq system-type 'windows-nt)
|
||
(with-demoted-errors "Non-Fatal Error (w32-browser): %s"
|
||
(bind-key "M-RET" #'dired-w32-browser dired-mode-map)
|
||
(bind-key "<C-return>" #'dired-w32explore dired-mode-map))
|
||
(bind-key "M-RET" #'dired-open-xdg dired-mode-map))
|
||
|
||
;; Gnus support in dired
|
||
(add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode)
|
||
|
||
;; Highlight current line more prominently
|
||
(add-hook 'dired-mode-hook 'hl-line-mode)
|
||
|
||
;; omitting files
|
||
(add-hook 'dired-mode-hook 'dired-omit-mode)
|
||
(add-hook 'dired-mode-hook 'dired-hide-details-mode)
|
||
(dolist (extension '(".out" ".synctex.gz" ".thm"))
|
||
(add-to-list 'dired-latex-unclean-extensions extension))
|
||
|
||
;; Show VC status information in dired buffers
|
||
(add-hook 'dired-mode-hook 'diff-hl-dired-mode)))
|
||
|
||
(use-package dired-open
|
||
:ensure t
|
||
:commands (dired-open-xdg
|
||
dired-open-guess-shell-alist
|
||
dired-open-call-function-by-extension)
|
||
:init (progn
|
||
(unless (eq system-type 'gnu/linux)
|
||
(setq dired-open-use-nohup nil))
|
||
(setq dired-open-extensions-elisp '(("html" . eww-open-file))))
|
||
:config (progn
|
||
(add-to-list 'dired-open-functions
|
||
#'dired-open-guess-shell-alist)
|
||
(add-to-list 'dired-open-functions
|
||
#'dired-open-call-function-by-extension)))
|
||
|
||
(use-package dired-subtree
|
||
:commands (dired-subtree-toggle))
|
||
|
||
(use-package ffap
|
||
;; Inhibit Emacs from pinging hostnames; see
|
||
;; https://www.n16f.net/blog/investigating-a-ffap-issue-in-emacs/
|
||
:init (setq ffap-machine-p-local 'accept
|
||
ffap-machine-p-known 'accept
|
||
ffap-machine-p-unknown 'reject))
|
||
|
||
(use-package find-dired
|
||
:commands (find-dired)
|
||
:init (setq find-ls-option '("-print0 | xargs -0 ls -ld" . "-ld")))
|
||
|
||
(use-package mailcap
|
||
:config (progn
|
||
;; Remove doc-view so pdf will open with default viewer
|
||
(setcdr
|
||
(assoc "application" mailcap-mime-data)
|
||
(remove '("pdf"
|
||
(viewer . doc-view-mode)
|
||
(type . "application/pdf")
|
||
(test eq window-system 'x))
|
||
(cdr (assoc "application" mailcap-mime-data))))))
|
||
|
||
(use-package gnus-dired
|
||
:commands (turn-on-gnus-dired-mode))
|
||
|
||
(use-package tramp
|
||
:init (setopt tramp-default-method (if on-windows "pscp" "scp")
|
||
tramp-completion-use-auth-sources nil
|
||
tramp-histfile-override "~/.tramp_history"
|
||
tramp-use-scp-direct-remote-copying t
|
||
tramp-verbose 2)
|
||
:config (progn
|
||
|
||
;; Use direct async processes for creating processes; see
|
||
;; https://coredumped.dev/2025/06/18/making-tramp-go-brrrr./#use-direct-async.
|
||
|
||
(connection-local-set-profile-variables
|
||
'remote-direct-async-process
|
||
'((tramp-direct-async-process . t)))
|
||
|
||
(connection-local-set-profiles
|
||
'(:application tramp :protocol "scp")
|
||
'remote-direct-async-process)
|
||
|
||
(connection-local-set-profiles
|
||
'(:application tramp :protocol "pscp")
|
||
'remote-direct-async-process)))
|
||
|
||
(use-package trashed
|
||
;; A simple dired-like interface to the system trash bin
|
||
;; Configuration taken from https://protesilaos.com/dotemacs
|
||
:init (setq trashed-action-confirmer 'y-or-n-p
|
||
trashed-use-header-line t
|
||
trashed-sort-key '("Date deleted" . t)
|
||
trashed-date-format "%Y-%m-%d %H:%M:%S"))
|
||
|
||
(use-package vlf
|
||
:ensure t
|
||
:commands (vlf))
|
||
|
||
(use-package w32-browser
|
||
:commands (dired-w32-browser
|
||
dired-w32explore))
|
||
|
||
|
||
;;* Completion
|
||
|
||
(setopt suggest-key-bindings t
|
||
extended-command-suggest-shorter t
|
||
completions-detailed t
|
||
completion-cycle-threshold nil
|
||
completion-styles '(basic orderless)
|
||
completion-category-defaults nil
|
||
;; Via https://protesilaos.com/emacs/dotemacs, with additional changes
|
||
completion-category-overrides '((file (styles . (basic partial-completion orderless)))
|
||
(buffer (styles . (orderless)))
|
||
(bookmark (styles . (orderless)))
|
||
(imenu (styles . (basic substring orderless)))
|
||
(kill-ring (styles . (emacs22 orderless))))
|
||
completion-in-region-function #'consult-completion-in-region)
|
||
|
||
(use-package helm
|
||
:init (setopt helm-command-prefix-key nil))
|
||
|
||
(use-package recentf
|
||
:commands (recentf-mode recentf-save-list)
|
||
:init (setq recentf-max-saved-items 1000
|
||
recentf-save-file (expand-file-name "recentf" emacs-d-userdata))
|
||
:config (run-with-timer 0 3600 #'recentf-save-list))
|
||
|
||
(use-package marginalia
|
||
:ensure t
|
||
:commands (marginalia-mode)
|
||
:init (setq marginalia-max-relative-age 0))
|
||
|
||
(use-package vertico
|
||
:ensure t
|
||
:commands (vertico-mode)
|
||
:autoload (vertico-sort-history-alpha
|
||
vertico-sort-alpha)
|
||
:init (setq vertico-sort-function #'vertico-sort-history-alpha)
|
||
:config (progn
|
||
|
||
;; Mark current candiate with pointer, because highlighting might sometimes be hard to
|
||
;; see; cf. https://github.com/minad/vertico/wiki#prefix-current-candidate-with-arrow.
|
||
(cl-defmethod vertico--format-candidate :around
|
||
(cand prefix suffix index start &context ((not (bound-and-true-p vertico-flat-mode))
|
||
(eql t)))
|
||
(setq cand (cl-call-next-method cand prefix suffix index start))
|
||
(if (bound-and-true-p vertico-grid-mode)
|
||
(if (= vertico--index index)
|
||
(concat #("▶" 0 1 (face vertico-current)) cand)
|
||
(concat #("_" 0 1 (display " ")) cand))
|
||
(if (= vertico--index index)
|
||
(concat
|
||
#(" " 0 1 (display (left-fringe right-triangle vertico-current)))
|
||
cand)
|
||
cand)))))
|
||
|
||
(use-package orderless
|
||
:ensure t
|
||
:init (setq orderless-match-faces ; Some of the default faces are hard to
|
||
; read with when solarized is enabled;
|
||
; only keep those that are readable
|
||
[orderless-match-face-1 orderless-match-face-2]))
|
||
|
||
(use-package consult
|
||
:ensure t
|
||
:commands (consult-completion-in-region
|
||
consult-goto-line
|
||
consult-keep-lines
|
||
consult-focus-lines
|
||
consult-buffer
|
||
consult-outline
|
||
consult-imenu
|
||
consult-line
|
||
consult-line-thing-at-point
|
||
consult-mark
|
||
consult-yank-pop
|
||
consult-outline)
|
||
:autoload (consult--multi)
|
||
:init (progn
|
||
;; Settings taken from https://protesilaos.com/emacs/dotemacs#h:22e97b4c-d88d-4deb-9ab3-f80631f9ff1d
|
||
(setq consult-line-numbers-widen t
|
||
consult-async-min-input 3
|
||
consult-async-input-debounce 0.5
|
||
consult-async-input-throttle 0.8
|
||
consult-narrow-key nil
|
||
consult-preview-key 'any))
|
||
:config (progn
|
||
(require 'consult-imenu)
|
||
|
||
(consult-customize
|
||
consult-line :add-history (seq-some #'thing-at-point '(region symbol)))
|
||
|
||
(defalias 'consult-line-thing-at-point 'consult-line)
|
||
(consult-customize
|
||
consult-line-thing-at-point :initial (thing-at-point 'symbol))))
|
||
|
||
(use-package corfu
|
||
:commands (global-corfu-mode corfu-mode))
|
||
|
||
|
||
;;* Navigation
|
||
|
||
(use-package ace-window
|
||
:ensure t
|
||
:commands (ace-window
|
||
ace-window-display-mode)
|
||
:init (setopt aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l)
|
||
aw-background t
|
||
aw-scope 'frame))
|
||
|
||
(use-package avy
|
||
:ensure t
|
||
:commands (avy-goto-char-timer
|
||
avy-goto-word-or-subword-1
|
||
avy-goto-line
|
||
avy-isearch))
|
||
|
||
(use-package bm
|
||
;; Taken from https://protesilaos.com/dotemacs/ and adapted slightly
|
||
:ensure t
|
||
:commands (bm-toggle
|
||
bm-next
|
||
bm-previous
|
||
bm-toggle-buffer-persistence)
|
||
:init (setq bm-restore-repository-on-load t
|
||
bm-annotate-on-create nil
|
||
bm-buffer-persistence t
|
||
bm-cycle-all-buffers t
|
||
bm-goto-position nil
|
||
bm-highlight-style 'bm-highlight-line-and-fringe
|
||
bm-marker 'bm-marker-right
|
||
bm-in-lifo-order nil
|
||
bm-recenter t
|
||
bm-repository-file (expand-file-name "bm-bookmarks" emacs-d-userdata)
|
||
bm-repository-size 100
|
||
bm-show-annotations t
|
||
bm-wrap-immediately t
|
||
bm-wrap-search t))
|
||
|
||
(use-package bookmark
|
||
:init (setq bookmark-default-file (expand-file-name "bookmarks" emacs-d-userdata)
|
||
bookmark-menu-confirm-deletion t
|
||
bookmark-save-flag 1)
|
||
:bind (:map bookmark-bmenu-mode-map
|
||
("R" . db/bookmark-bmenu-relocate)))
|
||
|
||
(use-package dumb-jump
|
||
:commands (dumb-jump-xref-activate)
|
||
:init (progn
|
||
(setq dumb-jump-selector 'helm)
|
||
(add-hook 'xref-backend-functions #'dumb-jump-xref-activate)))
|
||
|
||
(use-package imenu
|
||
:init (setq imenu-use-markers t
|
||
imenu-auto-rescan t
|
||
imenu-auto-rescan-maxout 600000
|
||
imenu-max-item-length 100
|
||
imenu-use-popup-menu nil
|
||
imenu-eager-completion-buffer t))
|
||
|
||
(use-package isearch
|
||
:init (setq isearch-allow-scroll t
|
||
isearch-lazy-count t
|
||
isearch-lax-whitespace nil
|
||
isearch-regexp-lax-whitespace nil
|
||
isearch-allow-motion t)
|
||
:bind (:map isearch-mode-map
|
||
("M-i" . consult-line)
|
||
("C-j" . avy-isearch)))
|
||
|
||
(use-package goto-last-change
|
||
:commands goto-last-change)
|
||
|
||
(use-package re-builder
|
||
:commands (re-builder)
|
||
:init (setq reb-re-syntax 'string))
|
||
|
||
|
||
;;* Media
|
||
|
||
(use-package db-music
|
||
:init (setq db/auto-playlist-file-function
|
||
#'(lambda ()
|
||
(db/playlist-files-from-git-annex-find
|
||
"--metadata db-playlist=include")))
|
||
:commands (db/play-auto-playlist
|
||
db/playlist-files-from-git-annex-find
|
||
db/play-auto-playlist-from-git-annex-find
|
||
music-control/body
|
||
db/update-playlist-files))
|
||
|
||
(use-package emms
|
||
:pin "melpa-stable"
|
||
:commands (emms
|
||
emms-pause
|
||
emms-stop
|
||
emms-next
|
||
emms-previous)
|
||
:bind (:map emms-playlist-mode-map
|
||
("S s" . emms-shuffle))
|
||
:init (setq emms-source-file-default-directory "~/Documents/media/audio/"
|
||
emms-player-list '(emms-player-mplayer emms-player-mplayer-playlist
|
||
emms-player-vlc emms-player-vlc-playlist)
|
||
emms-show-format "NP: %s"
|
||
emms-stream-default-action "play"
|
||
emms-track-description-function 'db/emms-track-description
|
||
emms-playlist-default-major-mode 'emms-playlist-mode
|
||
emms-cache-file (expand-file-name "emms/cache" emacs-d-userdata)
|
||
emms-history-file (expand-file-name "emms/history" emacs-d-userdata)
|
||
emms-score-file (expand-file-name "emms/scores" emacs-d-userdata)
|
||
emms-stream-bookmarks-file (expand-file-name "emms/streams" emacs-d-userdata))
|
||
:config (progn
|
||
|
||
;; Initialization copied and adapted from `emms-setup’
|
||
|
||
(require 'emms-source-file)
|
||
(require 'emms-source-playlist)
|
||
(require 'emms-player-simple)
|
||
(require 'emms-player-mplayer)
|
||
(require 'emms-player-vlc)
|
||
(require 'emms-playlist-mode)
|
||
(require 'emms-info)
|
||
(require 'emms-info-mp3info)
|
||
(require 'emms-info-ogginfo)
|
||
(require 'emms-info-opusinfo)
|
||
(require 'emms-cache)
|
||
(require 'emms-mode-line)
|
||
(require 'emms-mark)
|
||
(require 'emms-tag-editor)
|
||
(require 'emms-show-all)
|
||
(require 'emms-streams)
|
||
(require 'emms-playing-time)
|
||
(require 'emms-player-mpd)
|
||
(require 'emms-playlist-sort)
|
||
(require 'emms-browser)
|
||
(require 'emms-mode-line-icon)
|
||
(require 'emms-cue)
|
||
(require 'emms-bookmarks)
|
||
(require 'emms-last-played)
|
||
(require 'emms-metaplaylist-mode)
|
||
(require 'emms-stream-info)
|
||
(require 'emms-score)
|
||
(require 'emms-history)
|
||
(require 'emms-i18n)
|
||
(require 'emms-volume)
|
||
(require 'emms-playlist-limit)
|
||
|
||
(add-to-list 'emms-track-initialize-functions
|
||
'emms-info-initialize-track)
|
||
|
||
(if (require 'emms-info-mediainfo nil 'no-error)
|
||
(setq emms-info-functions '(emms-info-mediainfo))
|
||
(when (executable-find emms-info-mp3info-program-name)
|
||
(add-to-list 'emms-info-functions 'emms-info-mp3info))
|
||
(when (executable-find emms-info-ogginfo-program-name)
|
||
(add-to-list 'emms-info-functions 'emms-info-ogginfo))
|
||
(when (executable-find emms-info-opusinfo-program-name)
|
||
(add-to-list 'emms-info-functions 'emms-info-opusinfo))
|
||
(add-to-list 'emms-info-functions 'emms-info-cueinfo))
|
||
|
||
(when (fboundp 'emms-cache) ; work around compiler warning
|
||
(emms-cache 1))
|
||
(emms-mode-line -1)
|
||
(emms-playing-time 1)
|
||
(emms-score 1)
|
||
|
||
(add-hook 'emms-player-started-hook 'emms-last-played-update-current)
|
||
(add-hook 'emms-player-started-hook 'emms-show)
|
||
|
||
(advice-add 'emms-tag-editor-submit
|
||
:after #'(lambda (&rest r)
|
||
(ignore r)
|
||
(delete-window)))
|
||
|
||
(unless (eq system-type 'windows-nt)
|
||
(setq emms-source-file-directory-tree-function
|
||
#'db/emms-source-file-directory-tree-find))
|
||
|
||
;; `emms-playlist-mode’ sets `emms-playlist-insert-track-function’,
|
||
;; no matter what previous values or customization may say otherwise
|
||
;; … so we need to employ a hook to change its value
|
||
(add-hook 'emms-playlist-mode-hook
|
||
#'(lambda ()
|
||
(setq emms-playlist-insert-track-function
|
||
#'db/emms-playlist-mode-insert-track)))
|
||
|
||
(run-with-timer 0 3600 #'emms-cache-save)))
|
||
|
||
(use-package emms-source-file
|
||
:config (progn
|
||
;; Make sure emms is up and running when we call functions such as
|
||
;; `emms-play-dired’ etc.
|
||
(require 'emms)))
|
||
|
||
(use-package db-emms
|
||
:commands (db/emms-source-file-directory-tree-find
|
||
db/emms-track-description
|
||
db/emms-playlist-mode-insert-track))
|
||
|
||
(use-package helm-emms
|
||
:commands (helm-emms)
|
||
:init (setq helm-emms-use-track-description-function t
|
||
helm-emms-default-sources '(helm-source-emms-streams
|
||
helm-source-emms-dired
|
||
helm-source-emms-files)))
|
||
|
||
(use-package image
|
||
:init (setq image-use-external-converter t))
|
||
|
||
|
||
;;* Shells and Shell Scripting
|
||
|
||
(use-package comint
|
||
:init (setq comint-scroll-to-bottom-on-input t
|
||
comint-scroll-to-bottom-on-output nil
|
||
comint-scroll-show-maximum-output t
|
||
comint-completion-addsuffix t
|
||
comint-buffer-maximum-size 100000
|
||
comint-input-ring-size 5000)
|
||
:config (add-hook 'comint-output-filter-functions 'comint-strip-ctrl-m))
|
||
|
||
(use-package term
|
||
:commands (term-send-string
|
||
term-send-raw)
|
||
:init (setq explicit-shell-file-name "/bin/bash")
|
||
:config (progn
|
||
(add-hook 'term-exec-hook ; oremacs.com
|
||
#'(lambda ()
|
||
(let* ((buff (current-buffer))
|
||
(proc (get-buffer-process buff)))
|
||
(set-process-sentinel
|
||
proc
|
||
`(lambda (process event)
|
||
(if (string= event "finished\n")
|
||
(kill-buffer ,buff)))))))
|
||
|
||
;; Unbind some keys to allow the global keymap to handle them
|
||
(unbind-key "M-:" term-raw-map)
|
||
(unbind-key "C-h" term-raw-map)
|
||
(unbind-key "M-x" term-raw-map)
|
||
|
||
;; We need to set keys starting with C-x after `ansi-term' has been called, as it resets
|
||
;; the escape character to C-x.
|
||
(define-advice ansi-term (:after
|
||
(&rest _)
|
||
db/ansi-term--unbind-annoying-keys)
|
||
(unbind-key "C-x C-j" term-raw-map)
|
||
(unbind-key "C-x g" term-raw-map))
|
||
|
||
(add-hook 'term-mode-hook #'(lambda () (yas-minor-mode -1)))))
|
||
|
||
(use-package ansi-color
|
||
:commands (ansi-color-for-comint-mode-on
|
||
ansi-color-apply-on-region)
|
||
:config (progn
|
||
(add-hook 'compilation-filter-hook 'endless/colorize-compilation)))
|
||
|
||
(use-package shell
|
||
:commands (shell)
|
||
:config (progn
|
||
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
|
||
(add-hook 'shell-mode-hook 'with-editor-export-editor)))
|
||
|
||
(use-package db-eshell
|
||
:commands (db/run-or-hide-eshell
|
||
eshell-clear-buffer
|
||
eshell/default-prompt-function
|
||
pcomplete/git))
|
||
|
||
(use-package eshell
|
||
:init (setopt eshell-cmpl-cycle-completions nil
|
||
eshell-scroll-to-bottom-on-input 'this
|
||
eshell-prefer-lisp-functions nil
|
||
eshell-error-if-no-glob nil
|
||
eshell-hist-ignoredups t
|
||
eshell-save-history-on-exit t
|
||
eshell-history-size 5000
|
||
eshell-history-file-name (expand-file-name "eshell/history" emacs-d-userdata)
|
||
eshell-last-dir-ring-file-name (expand-file-name "eshell/lastdir" emacs-d-userdata)
|
||
eshell-destroy-buffer-when-process-dies t
|
||
eshell-prompt-function #'eshell/default-prompt-function
|
||
eshell-highlight-prompt nil
|
||
eshell-cd-on-directory t
|
||
eshell-expand-input-functions '(eshell-expand-history-references)
|
||
eshell-plain-echo-behavior t)
|
||
|
||
:bind (:map eshell-mode-map
|
||
("M-P" . eshell-previous-prompt)
|
||
("M-N" . eshell-next-prompt)
|
||
:map eshell-hist-mode-map
|
||
("M-r" . consult-history))
|
||
|
||
:config (progn
|
||
|
||
(eval-when-compile
|
||
(require 'em-prompt)
|
||
(require 'em-term)
|
||
(require 'em-cmpl)
|
||
(require 'em-hist)
|
||
(require 'em-glob))
|
||
|
||
(require 'db-eshell)
|
||
|
||
(setenv "PAGER" "cat")
|
||
|
||
(add-to-list 'eshell-command-completions-alist
|
||
'("gunzip" "gz\\'"))
|
||
|
||
(add-to-list 'eshell-command-completions-alist
|
||
'("tar" "\\(\\.tar|\\.tgz\\|\\.tar\\.gz\\)\\'"))
|
||
|
||
(add-hook 'eshell-mode-hook
|
||
'with-editor-export-editor)
|
||
|
||
;; Ignoring case when completing file names seems to have a bug: when a ~ is
|
||
;; encountered, it is implicitly expaned by `pcomplete-insert-entry’, overwriting the
|
||
;; prompt as a side effect. Keeping the case as it is does not seem to have this issue.
|
||
;; This problem occurs by default only on Windows systems (in all flavors), because this
|
||
;; is the only time `pcomplete-ignore-case’ is non-nil by default.
|
||
(when on-windows
|
||
(add-to-list 'eshell-mode-hook
|
||
#'(lambda ()
|
||
(setq completion-ignore-case nil))))
|
||
|
||
;; Sometimes, when completing path names and immediately hitting RET,
|
||
;; `completion-in-region-mode' still seems to be active; this often happens when calling
|
||
;; cd. Then, `post-command-hook' still contains `completion-in-region--postch', which
|
||
;; calls some `pcomplete' function to determine whether completion mode should exit.
|
||
;; However, after RET (i.e., `eshell-send-input'), we only have an empty prompt, and
|
||
;; `pcomplete' just computes all possible functions for completion (doesn't show it,
|
||
;; though). This introduces a noticeable amount of delay, which is annoying.
|
||
;; Expliticly disabling `completion-in-region-mode' before sending input seems to
|
||
;; alleviate the problem.
|
||
(advice-add 'eshell-send-input
|
||
:before #'(lambda (&rest _)
|
||
"Disable completion-in-region-mode before sending input."
|
||
(when completion-in-region-mode
|
||
(completion-in-region-mode -1))))
|
||
|
||
;; After completing partial inputs, pcomplete wants to add an extra character stored in
|
||
;; `pcomplete-termination-string', which is a space by default. When completing paths,
|
||
;; this leads to spaces being inserted after every directory within the path, which is
|
||
;; annoying. We thus set the value of this variable locally to an empty string, thus
|
||
;; silencing this bug. A better way to handle this would be to correctly determine
|
||
;; whether the completion is not done yet, by passing `exact' instead of `finished' to
|
||
;; the handlers stored in `completion-extra-properties'.
|
||
(add-hook 'eshell-mode-hook
|
||
#'(lambda ()
|
||
(setq-local pcomplete-termination-string "")))
|
||
|
||
;; Use default completion functions to allow partial completion of candidates that can
|
||
;; then be extended with wildcards and the like. This is what I am used to in shells
|
||
;; outside of Emacs.
|
||
(add-hook 'eshell-mode-hook
|
||
#'(lambda ()
|
||
(setq-local completion-in-region-function #'completion--in-region)))))
|
||
|
||
(use-package em-prompt
|
||
:commands (eshell-previous-prompt
|
||
eshell-next-prompt))
|
||
|
||
(use-package with-editor
|
||
:commands (with-editor-export-editor))
|
||
|
||
(use-package sh-script
|
||
:init (setq sh-basic-offset 2)
|
||
:config (add-hook 'sh-mode-hook #'eglot-ensure))
|
||
|
||
|
||
;;* Lisp
|
||
|
||
(use-package lisp-mode
|
||
:mode (("\\.cl\\'" . lisp-mode)
|
||
("\\.lisp\\'" . lisp-mode))
|
||
:init (setq lisp-indent-function #'lisp-indent-function)
|
||
:config (add-hook 'lisp-data-mode-hook 'turn-on-lispy-when-available))
|
||
|
||
(use-package lispy
|
||
:ensure t
|
||
:commands (lispy-mode)
|
||
:diminish lispy-mode
|
||
:init (setopt lispy-no-permanent-semantic t)
|
||
:config (with-eval-after-load 'lispy-tags
|
||
(require 'semantic)))
|
||
|
||
(use-package elisp-mode
|
||
:config (add-hook 'emacs-lisp-mode-hook 'turn-on-flycheck-when-file))
|
||
|
||
(use-package slime
|
||
:commands (slime slime-mode slime-connect)
|
||
:init (setq inferior-lisp-program "sbcl --noinform --no-linedit"
|
||
slime-net-coding-system 'utf-8-unix
|
||
slime-completion-at-point-functions 'slime-fuzzy-complete-symbol
|
||
slime-lisp-implementations '((sbcl ("sbcl") :coding-system utf-8-unix)
|
||
(cmucl ("cmucl") :coding-system utf-8-unix)
|
||
(ccl ("ccl") :coding-system utf-8-unix)))
|
||
:config (progn
|
||
(slime-setup '(slime-repl slime-fancy slime-autodoc))
|
||
(add-hook 'slime-mode-hook 'slime-redirect-inferior-output)))
|
||
|
||
|
||
;;* Other Programming Modes
|
||
|
||
(use-package cperl-mode
|
||
:ensure t
|
||
:commands (cperl-mode)
|
||
:mode ("\\.plx\\'" . cperl-mode)
|
||
:init (progn
|
||
|
||
(add-to-list 'major-mode-remap-alist '(perl-mode . cperl-mode))
|
||
|
||
(setq cperl-hairy nil
|
||
cperl-electric-keywords nil
|
||
cperl-lazy-help-time 2
|
||
cperl-highlight-variables-indiscriminately t
|
||
cperl-indent-parens-as-block t))
|
||
:config (progn
|
||
(add-hook 'cperl-mode-hook 'flycheck-mode)
|
||
(add-hook 'cperl-mode-hook 'eglot-ensure)
|
||
(add-hook 'cperl-mode-hook 'prettify-symbols-mode)
|
||
|
||
;; enable display of help messages after a short period of time, as
|
||
;; controlled by the value of `cperl-lazy-help-time'
|
||
(add-hook 'cperl-mode-hook 'cperl-lazy-install)))
|
||
|
||
(use-package haskell-mode
|
||
:config (progn
|
||
(add-hook 'haskell-mode-hook 'haskell-doc-mode)
|
||
(add-hook 'haskell-mode-hook 'turn-on-haskell-indent)
|
||
(add-hook 'haskell-mode-hook 'flycheck-mode)
|
||
(add-hook 'haskell-mode-hook 'subword-mode)
|
||
(add-hook 'haskell-mode-hook 'eglot-ensure)
|
||
|
||
(with-demoted-errors "Non-Fatal Error: %s"
|
||
(require 'haskell-indentation)
|
||
(add-hook 'haskell-mode-hook
|
||
'haskell-indentation-mode))
|
||
|
||
(add-hook 'haskell-mode-hook
|
||
'interactive-haskell-mode)))
|
||
|
||
(use-package plantuml-mode
|
||
:load-path "site-lisp"
|
||
:mode ("\\.plantuml\\'" . plantuml-mode)
|
||
:commands (plantuml-mode)
|
||
:init (setq plantuml-output-type "svg"
|
||
plantuml-default-exec-mode 'jar
|
||
plantuml-jar-path "/usr/share/plantuml/plantuml.jar"
|
||
plantuml-indent-level 2))
|
||
|
||
(use-package python
|
||
:config (progn
|
||
(add-hook 'python-mode-hook 'subword-mode)
|
||
(add-hook 'python-mode-hook 'eglot-ensure)
|
||
(add-hook 'python-mode-hook 'highlight-indentation-mode)))
|
||
|
||
;; https://ddavis.io/posts/emacs-python-lsp/
|
||
(use-package pyvenv
|
||
:commands (pyvenv-workon
|
||
pyvenv-activate
|
||
pyvenv-create)
|
||
:init (unless (getenv "WORKON_HOME")
|
||
(setenv "WORKON_HOME" (expand-file-name "~/.pyenv/versions")))
|
||
:config (progn
|
||
;; Restart python inferior processes when switching virtual
|
||
;; environments; this does not work when only calling
|
||
;; `pyvenv-deactivate', though.
|
||
(add-hook 'pyvenv-post-activate-hooks #'pyvenv-restart-python)))
|
||
|
||
|
||
;;* Other Mode Configurations
|
||
|
||
(use-package define-word
|
||
:ensure t
|
||
:commands (define-word-at-point define-word))
|
||
|
||
(use-package dictcc
|
||
:ensure t
|
||
:commands (dictcc)
|
||
:config (require 'gnutls))
|
||
|
||
(use-package docker
|
||
:pin "melpa-stable"
|
||
:init (setopt docker-command "podman"
|
||
docker-compose-command "podman-compose"))
|
||
|
||
(use-package edit-list
|
||
:ensure t
|
||
:commands edit-list)
|
||
|
||
(use-package eww
|
||
:init (setq eww-bookmarks-directory emacs-d-userdata))
|
||
|
||
(use-package ledger-mode
|
||
:init (setq ledger-clear-whole-transactions t))
|
||
|
||
(use-package remember
|
||
:init (setq remember-data-file db/org-default-refile-file))
|
||
|
||
(use-package smiley
|
||
:init (setq smiley-emoji-regexp-alist '(("\\(;-)\\)\\W" 1 "😉")
|
||
("[^;]\\(;)\\)\\W" 1 "😉")
|
||
("\\(:-]\\)\\W" 1 "😊")
|
||
("\\(8-)\\)\\W" 1 "🥴")
|
||
("\\(:-|\\)\\W" 1 "😐")
|
||
("\\(:-[/\\]\\)\\W" 1 "☹️")
|
||
("\\(:-(\\)\\W" 1 "😕")
|
||
("\\(X-)\\)\\W" 1 "😵")
|
||
("\\(:-{\\)\\W" 1 "😦")
|
||
("\\(>:-)\\)\\W" 1 "😈")
|
||
("\\(;-(\\)\\W" 1 "😢")
|
||
("\\(:-D\\)\\W" 1 "😀")
|
||
("\\(O:-)\\)\\W" 1 "😇")
|
||
("\\(\\^?:-?)\\)\\W" 1 "🙂"))))
|
||
|
||
(use-package timeline-tools
|
||
:load-path "site-lisp"
|
||
:commands (timeline-tools-format-timeline
|
||
timeline-tools-format-timeline-of-day
|
||
timeline-tools-copy-clocklines
|
||
timeline-tools-clockline-no-org-agenda-conflicts))
|
||
|
||
|
||
;;* Load customizations
|
||
|
||
;; We do this late in init.el to really make sure that whatever happened previously can be
|
||
;; overwritten by user customizations. This might not be strictly necessary, as
|
||
;; `custom-set-variables' and friends should only install user customizations, without evaluating
|
||
;; them … but let's better be safe than sorry). One could even think about adding this to
|
||
;; `db/run-init', but this might be too late.
|
||
|
||
(when (file-exists-p custom-file)
|
||
(load-file custom-file))
|
||
|
||
|
||
;;* Actual Mode Activation
|
||
|
||
(defun db/run-init ()
|
||
"Run main initialization after everything is set up."
|
||
|
||
(message "Running main initialization ...")
|
||
|
||
;; Activate modes (builtin)
|
||
|
||
(show-paren-mode +1)
|
||
(transient-mark-mode +1)
|
||
(global-font-lock-mode +1)
|
||
(column-number-mode +1)
|
||
(delete-selection-mode -1)
|
||
|
||
(electric-indent-mode -1)
|
||
|
||
(appt-activate +1)
|
||
(savehist-mode +1)
|
||
|
||
(size-indication-mode +1)
|
||
(display-battery-mode -1)
|
||
|
||
(electric-pair-mode +1)
|
||
|
||
(recentf-mode +1)
|
||
(winner-mode +1)
|
||
(tab-bar-history-mode +1)
|
||
(global-auto-revert-mode -1)
|
||
(which-function-mode +1)
|
||
(global-eldoc-mode +1)
|
||
(global-visual-wrap-prefix-mode +1)
|
||
|
||
;; Activate modes (packages)
|
||
|
||
(dolist (mode '(global-undo-tree-mode
|
||
minibuffer-depth-indicate-mode
|
||
ace-window-display-mode
|
||
key-chord-mode
|
||
which-key-mode
|
||
yas-global-mode
|
||
global-git-commit-mode
|
||
marginalia-mode
|
||
vertico-mode
|
||
global-diff-hl-mode))
|
||
(with-demoted-errors "Cannot activate mode: %s"
|
||
(funcall mode +1)))
|
||
|
||
(with-demoted-errors "Cannot activate `vlf': %s"
|
||
(require 'vlf-setup))
|
||
|
||
;; Global Hooks (XXX: should be moved outside of this init function)
|
||
|
||
(add-hook 'after-save-hook 'executable-make-buffer-file-executable-if-script-p)
|
||
|
||
;; Top-Level Keybindings
|
||
|
||
(bind-key "<Scroll_Lock>" 'scroll-lock-mode)
|
||
(bind-key "<XF86Back>" #'winner-undo)
|
||
(bind-key "<XF86Forward>" #'winner-redo)
|
||
(bind-key "<f10>" #'magit-status)
|
||
(bind-key "<f1>" #'db/run-or-hide-eshell)
|
||
(bind-key "<f2>" #'db/frequently-used-features-prefix)
|
||
(bind-key "<f5>" #'project-find-regexp)
|
||
(bind-key "<f6>" #'text-scale-adjust)
|
||
(bind-key "<f7>" #'dictcc)
|
||
(bind-key "<f8>" #'hydra-org-linking/body)
|
||
(bind-key "<f9>" #'magit-dispatch)
|
||
(bind-key "C-," #'mc/skip-to-previous-like-this)
|
||
(bind-key "C-." #'mc/skip-to-next-like-this)
|
||
(bind-key "C-;" #'iedit-mode)
|
||
(bind-key "C-<" #'mc/mark-previous-like-this)
|
||
(bind-key "C->" #'mc/mark-next-like-this)
|
||
(bind-key "C-M-\\" #'crux-cleanup-buffer-or-region)
|
||
(bind-key "C-S-c C-S-c" #'mc/edit-lines)
|
||
(bind-key "C-Z" #'undo-tree-redo)
|
||
(bind-key "C-c C-<" #'mc/mark-all-like-this)
|
||
(bind-key "C-c D" #'define-word)
|
||
(bind-key "C-c J" #'avy-goto-word-or-subword-1)
|
||
(bind-key "C-c a" #'org-agenda)
|
||
(bind-key "C-c c" #'org-capture)
|
||
(bind-key "C-c d" #'define-word-at-point)
|
||
(bind-key "C-c e" #'crux-eval-and-replace)
|
||
(bind-key "C-c g l" #'git-link)
|
||
(bind-key "C-c g h" #'git-link-homepage)
|
||
(bind-key "C-c h #" #'helm-emms)
|
||
(bind-key "C-c h m" #'man)
|
||
(bind-key "C-c h p" #'list-processes)
|
||
(bind-key "C-c h P" #'consult-outline)
|
||
(bind-key "C-c i" #'ispell-change-dictionary)
|
||
(bind-key "C-c j" #'avy-goto-char-timer)
|
||
(bind-key "C-c l" #'org-store-link)
|
||
(bind-key "C-c m" #'music-control/body)
|
||
(bind-key "C-c n c" #'org-roam-capture)
|
||
(bind-key "C-c n f" #'org-roam-node-find)
|
||
(bind-key "C-c n i" #'org-roam-node-insert)
|
||
(bind-key "C-c o" #'hydra-org-custom/body)
|
||
(bind-key "C-c r" #'recentf)
|
||
(bind-key "C-c t" #'hydra-toggle/body)
|
||
(bind-key "C-h C-f" #'find-function)
|
||
(bind-key "C-h C-k" #'find-function-on-key)
|
||
(bind-key "C-h C-v" #'find-variable)
|
||
(bind-key "C-h f" #'helpful-callable)
|
||
(bind-key "C-h k" #'helpful-key)
|
||
(bind-key "C-h o" #'helpful-symbol)
|
||
(bind-key "C-h v" #'helpful-variable)
|
||
(bind-key "C-h x" #'helpful-command)
|
||
(bind-key "C-x 4 C-j" #'dired-jump-other-window)
|
||
(bind-key "C-x C-b" #'ibuffer)
|
||
(bind-key "C-x C-d" #'dired)
|
||
(bind-key "C-x C-j" #'dired-jump)
|
||
(bind-key "C-x C-r" #'revert-buffer)
|
||
(bind-key "C-x SPC" #'hydra-rectangle/body)
|
||
(bind-key "C-x b" #'consult-buffer)
|
||
(bind-key "C-x g" #'db/shortcuts)
|
||
(bind-key "C-x o" #'ace-window)
|
||
(bind-key "C-x r E" #'db/bookmark-add-external)
|
||
(bind-key "C-x r M" #'db/bookmark-add-url)
|
||
(bind-key "C-x r v" #'list-registers)
|
||
(bind-key "C-z" #'goto-last-change)
|
||
(bind-key "M-/" #'hippie-expand)
|
||
(bind-key "M-:" #'pp-eval-expression)
|
||
(bind-key "M-=" #'count-words)
|
||
(bind-key "M-Z" #'zap-to-char)
|
||
(bind-key "M-g M-g" #'avy-goto-line)
|
||
(bind-key "M-g g" #'avy-goto-line)
|
||
(bind-key "M-g i" #'consult-imenu)
|
||
(bind-key "M-j" #'(lambda () (interactive) (join-line -1)))
|
||
(bind-key "M-z" #'zap-up-to-char)
|
||
|
||
(bind-key [remap fill-paragraph] #'endless/fill-or-unfill)
|
||
(bind-key [remap keyboard-quit] #'keyboard-quit-context+)
|
||
(bind-key [remap kill-whole-line] #'crux-kill-whole-line)
|
||
(bind-key [remap open-line] #'crux-smart-open-line-above)
|
||
|
||
(unbind-key "<insert>" global-map)
|
||
(unbind-key "<kp-insert>" global-map)
|
||
(unbind-key "C-x C-c" global-map) ; Quit emacs by calling `save-buffers-kill-emacs' directly
|
||
(unbind-key "M-o" global-map)
|
||
|
||
;; Environment Variables
|
||
|
||
(unless on-windows
|
||
(with-demoted-errors "Cannot import environment variables: %s"
|
||
(exec-path-from-shell-copy-envs '("SSH_AUTH_SOCK"
|
||
"SSH_AGENT_PID"
|
||
"PATH"
|
||
"TEXMFHOME"
|
||
"PERL5LIB"
|
||
"PERL_LOCAL_LIB_ROOT"
|
||
"PERL_MB_OPT"
|
||
"PERL_MM_OPT"))))
|
||
|
||
;; Start Server when not running already
|
||
|
||
;; The following condition should actually always be false, since we have
|
||
;; neither loaded the server package yet nor have explicitly started the
|
||
;; server process. Also the --daemon command line switches will start the
|
||
;; server only later, after initialization (and they do so unconditionally,
|
||
;; thus restarting the server we have started here). However, for robustness,
|
||
;; we keep the condition nevertheless, since when a server process is already
|
||
;; present, we really don't have to do anything. Furthermore, calling
|
||
;; `db/run-init' again in a running Emacs will not restart the server (but
|
||
;; then, why whould one want to do this?).
|
||
(if (and (boundp 'server-process) server-process)
|
||
(message "Server already running, not restarting.")
|
||
|
||
(require 'server)
|
||
(let ((server-file (expand-file-name server-name
|
||
(if server-use-tcp server-auth-dir server-socket-dir))))
|
||
(if (file-exists-p server-file)
|
||
(warn "Server file already exists, but no server process is running. Check %s and restart server manually."
|
||
server-file)
|
||
|
||
(server-start)
|
||
(cl-case (server-running-p)
|
||
((t) t) ; server is running
|
||
((nil) (warn "Server not running, check logs and restart manually."))
|
||
(t (warn "`server-running-p' returned neither nil nor t. Check and restart server manually if required."))))))
|
||
|
||
;; Warn of Windows pecularitites
|
||
|
||
(when on-windows
|
||
;; Warn if `grep-find-template' or `grep-find-command' are undefined in `grep.el', because then
|
||
;; they would be set by `grep-compute-defaults', which in turn uses `find-program', which is set
|
||
;; to "find", which on Windows might be CMD's FIND, which does something else (it's more akin to
|
||
;; grep).
|
||
(when (and (require 'grep nil t)
|
||
(or (null grep-find-template)
|
||
(null grep-find-command)))
|
||
(warn (concat "`grep-find-template' or `grep-find-command' are undefined, please customize these to use the right version of `find'"))))
|
||
|
||
;; Load custom code
|
||
|
||
(dolist (file db/after-init-load-files)
|
||
(message "Loading %s" file)
|
||
(with-demoted-errors "Error loading file: %s"
|
||
(load-file file)))
|
||
|
||
;; Finish
|
||
|
||
(message "Running main initialization ... done")
|
||
|
||
t)
|
||
|
||
(add-hook 'after-init-hook #'db/run-init)
|
||
|
||
;;; init.el ends here
|
||
|
||
;; Local Variables:
|
||
;; fill-column: 100
|
||
;; End:
|