alexforsale's literate Emacs configuration

1: (setq user-mail-address "alexforsale@yahoo.com"
2:       user-full-name "Kristian Alexander P")

 1: (require 'config-variables (expand-file-name "modules/config-variables.el" user-emacs-directory) t)
 2: (require 'config-keybindings nil t)
 3: (require 'config-evil nil t)
 4: (require 'config-ui nil t)
 5: (require 'config-builtin nil t)
 6: (require 'config-completion nil t)
 7: (require 'config-shell nil t)
 8: (require 'config-editing nil t)
 9: (require 'config-project nil t)
10: (require 'config-org nil t)
11: (require 'config-tools nil t)
12: (require 'config-dired nil t)
13: (require 'config-treemacs nil t)
14: (require 'config-flycheck nil t)
15: (require 'config-mail nil t)
16: (require 'config-lisp nil t)
17: (require 'config-cc nil t)
18: (require 'config-xml nil t)
19: (require 'config-yaml nil t)
20: (require 'config-toml nil t)
21: (require 'config-lua nil t)
22: (require 'config-jinja2 nil t)
23: (require 'config-json nil t)
24: (require 'config-web nil t)
25: (require 'config-latex nil t)
26: (require 'config-markdown nil t)
27: (require 'config-python nil t)
28: (require 'config-rust nil t)
29: (require 'config-ansible nil t)
30: (require 'config-perl nil t)
31: (require 'config-haskell nil t)
32: (when (string= "exwm"
33:                (or (getenv "GDMSESSION")
34:                    (getenv "DESKTOP_SESSION")))
35:   (require 'config-exwm))

1: (push '(menu-bar-lines . 0) default-frame-alist)
2: (push '(tool-bar-lines . 0) default-frame-alist)
3: (push '(vertical-scroll-bars) default-frame-alist)

1: (customize-set-variable 'custom-file (expand-file-name "custom.el" user-emacs-directory))
2: (when (file-exists-p custom-file)
3:   (load custom-file))

 1: (use-package general
 2:   :ensure t
 3:   :init
 4:   (general-evil-setup t)
 5:   (general-auto-unbind-keys)
 6:   :config
 7:   (general-override-mode)
 8:   (general-create-definer +config/leader-key
 9:     :keymaps 'override
10:     :states  '(insert emacs normal hybrid motion visual operator)
11:     :prefix "SPC"
12:     :non-normal-prefix "s-SPC")
13:   (general-create-definer +config/local-leader
14:     :keymaps 'override
15:     :states '(emacs normal hybrid motion visual operator)
16:     :prefix "m"
17:     :non-normal-prefix "s-m"
18:     "" '(:ignore t :which-key (lambda (arg) `(,(cadr (split-string (car arg) " ")) . ,(replace-regexp-in-string "-mode$" "" (symbol-name major-mode))))))
19:   ;; useful macro
20:   (defmacro +config/leader-menu! (name infix-key &rest body)
21:     "Create a definer NAME `+config/leader-NAME' wrapping `+config/leader-key'.
22:       Create prefix map: `+config/leader-NAME-map'. Prefix bindings in BODY with INFIX-KEY."
23:     (declare (indent 2))
24:     `(progn
25:        (general-create-definer ,(intern (concat "+config/leader-" name))
26:          :wrapping +config/leader-key
27:          :prefix-map (quote ,(intern (concat "+config/leader-" name "-map")))
28:          :infix ,infix-key
29:          :wk-full-keys nil
30:          "" '(:ignore t :which-key ,name))
31:        (,(intern (concat "+config/leader-" name))
32:         ,@body))))

 1: (use-package evil
 2:   :ensure t
 3:   :demand t
 4:   :preface
 5:   (customize-set-variable 'evil-want-keybinding nil)
 6:   (customize-set-variable 'evil-want-integration t)
 7:   (customize-set-variable 'evil-undo-system 'undo-redo)
 8:   (customize-set-variable 'evil-want-C-u-scroll t) ;; move universal arg to <leader> u
 9:   (customize-set-variable 'evil-want-C-u-delete t) ;; delete back to indentation in insert state
10:   (customize-set-variable 'evil-want-C-g-bindings t)
11:   :custom
12:   (evil-undo-system #'undo-redo)
13:   (evil-search-module 'evil-search)
14:   (evil-ex-search-vim-style-regexp t)
15:   (evil-ex-interactive-search-highlight 'selected-window)
16:   (evil-kbd-macro-suppress-motion-error t)
17:   (evil-visual-update-x-selection-p nil)
18:   :config
19:   (setq evil-normal-state-cursor 'box
20:         evil-insert-state-cursor 'bar
21:         evil-visual-state-cursor 'hollow)
22:   (evil-select-search-module 'evil-search-module 'evil-search)
23:   (evil-mode 1)
24:   (with-eval-after-load 'eldoc
25:     (eldoc-add-command 'evil-normal-state
26:                        'evil-insert
27:                        'evil-change
28:                        'evil-delete
29:                        'evil-replace))
30:   ;; (evil-set-leader '(normal visual) (kbd "SPC"))
31:   ;; (evil-set-leader '(normal visual) (kbd "C-c SPC") t)
32:   ;; set the universal arg
33:   ;; (evil-define-key '(normal visual) 'global (kbd "<leader>u") 'universal-argument)
34:   :general
35:   (+config/leader-go
36:     "'" '(:ignore t :wk "avy")
37:     "''" 'avy-resume
38:     "'c" 'evil-avy-goto-char
39:     "'l" 'evil-avy-goto-line
40:     "'w" 'evil-avy-goto-word-or-subword-1))

 1: (use-package evil-collection
 2:   :ensure t
 3:   :after evil
 4:   :init
 5:   (evil-collection-init)
 6:   :custom
 7:   (evil-collection-setup-minibuffer t)
 8:   (evil-collection-calendar-want-org-bindings t)
 9:   :config
10:   (with-eval-after-load 'bookmark
11:     (evil-collection-bookmark-setup))
12:   (with-eval-after-load 'pass
13:     (evil-collection-pass-setup))
14:   (with-eval-after-load 'man
15:     (evil-collection-man-setup))
16:   (with-eval-after-load 'org
17:     (evil-collection-org-setup))
18:   (with-eval-after-load 'corfu
19:     (evil-collection-corfu-setup))
20:   (with-eval-after-load 'embark
21:     (evil-collection-embark-setup))
22:   (with-eval-after-load 'epa
23:     (evil-collection-epa-setup))
24:   (with-eval-after-load 'nov
25:     (evil-collection-nov-setup))
26:   (with-eval-after-load 'eww
27:     (evil-collection-eww-setup)))

1: (unless (display-graphic-p)
2:   (use-package evil-terminal-cursor-changer
3:     :ensure t
4:     :config
5:     (evil-terminal-cursor-changer-activate)))

 1: (use-package evil-args
 2:   :after evil
 3:   :ensure t
 4:   :hook (emacs-lisp-mode . +config/evil-args-lisp)
 5:   :config
 6:   (define-key evil-inner-text-objects-map "a" 'evil-inner-arg)
 7:   (define-key evil-outer-text-objects-map "a" 'evil-outer-arg)
 8:   (define-key evil-normal-state-map "L" 'evil-forward-arg)
 9:   (define-key evil-normal-state-map "H" 'evil-backward-arg)
10:   (define-key evil-motion-state-map "L" 'evil-forward-arg)
11:   (define-key evil-motion-state-map "H" 'evil-backward-arg)
12:   (define-key evil-normal-state-map "K" 'evil-jump-out-args)
13:   (defun +config/evil-args-lisp ()
14:     (setq-local evil-args-delimiters '(" "))))

 1: (use-package evil-easymotion
 2:   :after evil
 3:   :ensure t
 4:   :demand t
 5:   :commands evilem-create evilem-default-keybindings
 6:   :config
 7:   (evilem-default-keybindings "gs")
 8:   (evilem-make-motion evilem-motion-search-next #'evil-ex-search-next
 9:                       :bind ((evil-ex-search-highlight-all nil)))
10:   (evilem-make-motion evilem-motion-search-previous #'evil-ex-search-previous
11:                       :bind ((evil-ex-search-highlight-all nil)))
12:   (evilem-make-motion evilem-motion-search-word-forward #'evil-ex-search-word-forward
13:                       :bind ((evil-ex-search-highlight-all nil)))
14:   (evilem-make-motion evilem-motion-search-word-backward #'evil-ex-search-word-backward
15:                       :bind ((evil-ex-search-highlight-all nil)))
16:   (put 'visible 'bounds-of-thing-at-point (lambda () (cons (window-start) (window-end))))
17:   (evilem-make-motion evilem-motion-forward-word-begin #'evil-forward-word-begin :scope 'visible)
18:   (evilem-make-motion evilem-motion-forward-WORD-begin #'evil-forward-WORD-begin :scope 'visible)
19:   (evilem-make-motion evilem-motion-forward-word-end #'evil-forward-word-end :scope 'visible)
20:   (evilem-make-motion evilem-motion-forward-WORD-end #'evil-forward-WORD-end :scope 'visible)
21:   (evilem-make-motion evilem-motion-backward-word-begin #'evil-backward-word-begin :scope 'visible)
22:   (evilem-make-motion evilem-motion-backward-WORD-begin #'evil-backward-WORD-begin :scope 'visible)
23:   (evilem-make-motion evilem-motion-backward-word-end #'evil-backward-word-end :scope 'visible)
24:   (evilem-make-motion evilem-motion-backward-WORD-end #'evil-backward-WORD-end :scope 'visible))

1: (use-package evil-surround
2:   :after evil
3:   :ensure t
4:   :commands (global-evil-surround-mode
5:              evil-surround-edit
6:              evil-Surround-edit
7:              evil-surround-region)
8:   :config (global-evil-surround-mode 1))

 1: (use-package evil-embrace
 2:   :after evil evil-surround
 3:   :ensure t
 4:   :commands embrace-add-pair embrace-add-pair-regexp
 5:   :hook (LaTeX-mode . embrace-LaTeX-mode-hook)
 6:   :hook (org-mode . embrace-org-mode-hook)
 7:   :hook (ruby-mode . embrace-ruby-mode-hook)
 8:   :hook (emacs-lisp-mode . embrace-emacs-lisp-mode-hook)
 9:   :init
10:   (with-eval-after-load 'evil-surround
11:     (evil-embrace-enable-evil-surround-integration))
12:   :config
13:   (setq evil-embrace-show-help-p nil))

1: (use-package evil-traces
2:   :ensure t
3:   :after evil-ex
4:   :config
5:   (evil-traces-mode))

 1: (use-package evil-visualstar
 2:   :after evil
 3:   :ensure t
 4:   :commands (evil-visualstar/begin-search
 5:              evil-visualstar/begin-search-forward
 6:              evil-visualstar/begin-search-backward)
 7:   :init
 8:   (evil-define-key* 'visual 'global
 9:     "*" #'evil-visualstar/begin-search-forward
10:     "#" #'evil-visualstar/begin-search-backward))

1: (use-package exato
2:   :ensure t
3:   :after evil
4:   :demand t
5:   :commands evil-outer-xml-attr evil-inner-xml-attr)

 1: (use-package evil-multiedit
 2:   :after evil
 3:   :ensure t
 4:   :demand t
 5:   :config
 6:   (evil-ex-define-cmd "ie[dit]" 'evil-multiedit-ex-match)
 7:   (evil-multiedit-mode)
 8:   (evil-multiedit-default-keybinds)
 9:   ;; (with-eval-after-load 'general
10:   ;;   (general-define-key
11:   ;;    :keymaps 'evil-multiedit-state-map
12:   ;;    "RET" 'evil-multiedit-toggle-or-restrict-region)
13:   ;;   (general-mmap
14:   ;;    :keymaps 'evil-motion-state-map
15:   ;;    "RET" 'evil-multiedit-toggle-or-restrict-region)
16:   ;;   (general-define-key
17:   ;;    :keymaps '(evil-multiedit-state-map evil-multiedit-insert-state-map)
18:   ;;    "C-n" 'evil-multiedit-next
19:   ;;    "C-p" 'evil-multiedit-prev)
20:   ;;   (general-vmap
21:   ;;    :keymaps 'evil-visual-state-map
22:   ;;    "R" 'evil-multiedit-match-all)
23:   ;;   (general-nmap
24:   ;;    :keymaps 'evil-normal-state-map
25:   ;;    "M-d" 'evil-multiedit-match-and-next
26:   ;;    "M-D" 'evil-multiedit-match-and-prev)
27:   ;;   (general-vmap
28:   ;;    :keymaps 'evil-visual-state-map
29:   ;;    "M-d" 'evil-multiedit-match-and-next
30:   ;;    "M-D" 'evil-multiedit-match-and-prev
31:   ;;    "C-M-D" 'evil-multiedit-restore)
32:   ;;   (general-iemap
33:   ;;    :keymaps 'evil-insert-state-map
34:   ;;    "M-d" 'evil-multiedit-toggle-marker-here))
35:   )

 1: (use-package which-key
 2:   :ensure
 3:   :demand t
 4:   :custom
 5:   (which-key-lighter "")
 6:   (which-key-sort-order #'which-key-key-order-alpha)
 7:   (which-key-sort-uppercase-first nil)
 8:   (which-key-add-column-padding 1)
 9:   (which-key-max-display-columns nil)
10:   (which-key-min-display-lines 6)
11:   (which-key-compute-remaps t)
12:   (which-key-side-window-slot -10)
13:   (which-key-separator " → ")
14:   (which-key-allow-evil-operators t)
15:   (which-key-use-C-h-commands t)
16:   (which-key-show-remaining-keys t)
17:   (which-key-show-prefix 'bottom)
18:   :config
19:   (which-key-mode)
20:   (which-key-setup-side-window-bottom)
21:   (which-key-setup-minibuffer)
22:   (define-key which-key-mode-map (kbd "C-x <f5>") 'which-key-C-h-dispatch))

(use-package nerd-icons
  :ensure t
  :custom
  ;; The Nerd Font you want to use in GUI
  ;; "Symbols Nerd Font Mono" is the default and is recommended
  ;; but you can use any other Nerd Font if you want
  (nerd-icons-font-family "Symbols Nerd Font Mono"))

1: (use-package all-the-icons
2:   :ensure
3:   :if (display-graphic-p))

 1: (use-package doom-themes
 2:   :ensure t
 3:   :demand t
 4:   :config
 5:   ;; Global settings (defaults)
 6:   (setq doom-themes-enable-bold t    ; if nil, bold is universally disabled
 7:         doom-themes-enable-italic t) ; if nil, italics is universally disabled
 8:   (load-theme 'doom-nord t)
 9: 
10:   ;; Enable flashing mode-line on errors
11:   (doom-themes-visual-bell-config)
12:   ;; Enable custom neotree theme (all-the-icons must be installed!)
13:   ;; (doom-themes-neotree-config)
14:   ;; or for treemacs users
15:   (setq doom-themes-treemacs-theme "doom-atom") ; use "doom-colors" for less minimal icon theme
16:   (doom-themes-treemacs-config)
17:   ;; Corrects (and improves) org-mode's native fontification.
18:   (doom-themes-org-config))

1: (use-package doom-modeline
2:   :ensure
3:   :hook (after-init . doom-modeline-mode))

 1: ;; use-package with package.el:
 2: (use-package dashboard
 3:   :ensure t
 4:   :demand t
 5:   :config
 6:   (dashboard-setup-startup-hook)
 7:   (setq initial-buffer-choice (lambda () (get-buffer-create "*dashboard*"))
 8:         ;;dashboard-banner-logo-title (format "Welcome, %s" user-full-name)
 9:         dashboard-items '((recents . 3)
10:                           (bookmarks . 2)
11:                           (projects . 5)
12:                           (agenda . 8)
13:                           (registers . 2))
14:         dashboard-projects-switch-function 'projectile-persp-switch-project
15:         dashboard-week-agenda t
16:         dashboard-filter-agenda-entry nil
17:         dashboard-startup-banner 'logo
18:         dashboard-center-content t
19:         dashboard-vertically-center-content t
20:         ;; dashboard-icon-type 'all-the-icons
21:         dashboard-display-icons-p t
22:         dashboard-set-heading-icons t
23:         dashboard-set-file-icons t
24:         dashboard-agenda-sort-strategy
25:         '(todo-state-up time-down priority-down todo-state-down time-up priority-up)
26:         ))

1: (use-package tab-bar
2:   :init
3:   (setq tab-bar-show 1
4:         tab-bar-close-button-show nil
5:         tab-bar-tab-hints t
6:         tab-bar-new-button-show nil
7:         tab-bar-separator " "
8:         tab-bar-auto-width nil
9:         tab-bar-position t))

 1: (use-package frame
 2:   :init
 3:   (blink-cursor-mode 1)
 4:   :config
 5:   (cond
 6:    ((find-font (font-spec :family "OverpassM Nerd Font Mono"))
 7:     (set-frame-font "OverpassM Nerd Font Mono 10" nil t))
 8:    ((find-font (font-spec :family "Ubuntu Mono"))
 9:     (set-frame-font "Ubuntu Mono 10" nil t))
10:    ((find-font (font-spec :family "Fira Code Retina"))
11:     (set-frame-font "Fira Code Retina 10" nil t))
12:    ((find-font (font-spec :family "Source Code Pro"))
13:     (set-frame-font "Source Code Pro 10" nil t))
14:    ((find-font (font-spec :family "DejaVu Sans Mono"))
15:     (set-frame-font "DejaVu Sans Mono 10" nil t))))

1: (use-package window
2:   :config
3:   (setq split-width-threshold 160))

1: (use-package display-line-numbers
2:   :init
3:   (setq display-line-numbers-type t)
4:   :hook (prog-mode . display-line-numbers-mode)
5:   :custom
6:   (display-line-numbers-grow-only t))

1: (use-package help-at-pt
2:   :custom
3:   (help-at-pt-display-when-idle t))

1: (use-package hideshow
2:   :hook (prog-mode . hs-minor-mode))

1: (use-package uniquify
2:   :ensure nil
3:   :config
4:   (setq uniquify-buffer-name-style 'forward
5:         uniquify-separator " • "
6:         uniquify-after-kill-buffer-p t
7:         uniquify-ignore-buffers-re "^\\*"))

 1: (use-package speedbar
 2:   :custom
 3:   (speedbar-use-images nil)
 4:   (speedbar-update-flag t)
 5:   (speedbar-frame-parameters '((name . "speedbar")
 6:                                (title . "speedbar")
 7:                                (minibuffer . nil)
 8:                                (border-width . 2)
 9:                                (menu-bar-lines . 0)
10:                                (tool-bar-lines . 0)
11:                                (unsplittable . t)
12:                                (left-fringe . 10)))
13:   :config
14:   (speedbar-add-supported-extension
15:    (list
16:   ;;;; General Lisp Languages
17:     ".cl"
18:     ".li?sp"
19:   ;;;; Lua/Fennel (Lisp that transpiles to lua)
20:     ".lua"
21:     ".fnl"
22:     ".fennel"
23:   ;;;; JVM languages (Java, Kotlin, Clojure)
24:     ".kt"
25:     ".mvn"
26:     ".gradle"
27:     ".properties"
28:     ".cljs?"
29:   ;;;; shellscript
30:     ".sh"
31:     ".bash"
32:   ;;;; Web Languages and Markup/Styling
33:     ".php"
34:     ".ts"
35:     ".html?"
36:     ".css"
37:     ".less"
38:     ".scss"
39:     ".sass"
40:   ;;;; Makefile
41:     "makefile"
42:     "MAKEFILE"
43:     "Makefile"
44:   ;;;; Data formats
45:     ".json"
46:     ".yaml"
47:     ".toml"
48:   ;;;; Notes and Markup
49:     ".md"
50:     ".markdown"
51:     ".org"
52:     ".txt"
53:     "README")))

1: (use-package winner
2:   :init
3:   (winner-mode 1))

1: (use-package time
2:   :hook (after-init . display-time-mode)
3:   :config
4:   (when (file-directory-p (expand-file-name ".mail" (getenv "HOME")))
5:     (setq display-time-mail-directory (expand-file-name ".mail" (getenv "HOME"))))
6:   :custom
7:   (display-time-24hr-format t)
8:   (display-time-day-and-date t))

1: (use-package paren
2:   :config
3:   (show-paren-mode 1)
4:   :custom
5:   (show-paren-style 'mixed))

1: (use-package hl-line
2:   :config
3:   (global-hl-line-mode 1))

1: (use-package font-core
2:   :init
3:   (global-font-lock-mode t))

 1: (use-package menu-bar
 2:   :init
 3:   (menu-bar-mode -1))
 4: 
 5: (use-package tool-bar
 6:   :init
 7:   (tool-bar-mode -1))
 8: 
 9: (use-package scroll-bar
10:   :init
11:   (scroll-bar-mode -1))

1: (use-package xt-mouse
2:   :config
3:   (xterm-mouse-mode 1))

 1: (use-package avy
 2:   :after evil
 3:   :ensure ;; when `use-package-always-ensure' is nil
 4:   :bind
 5:   (([remap goto-char] . evil-avy-goto-char)
 6:    ([remap goto-line] . evil-avy-goto-line)
 7:    ("M-g l" . evil-avy-goto-line))
 8:   :config
 9:   ;; (evil-define-key 'normal 'global (kbd "<localleader>gc") 'evil-avy-goto-char)
10:   ;; (evil-define-key 'normal 'global (kbd "<localleader>gl") 'evil-avy-goto-line-below)
11:   ;; (evil-define-key 'normal 'global (kbd "<localleader>gL") 'evil-avy-goto-line-above)
12:   )

1: (use-package tabify
2:   :ensure nil
3:   :config
4:   (setq tabify-regexp "^\t* [ \t]+"))

 1: (use-package rainbow-mode
 2:   :ensure
 3:   :hook (prog-mode . rainbow-mode))
 4: 
 5: (use-package rainbow-identifiers
 6:   :ensure
 7:   :hook (prog-mode . rainbow-identifiers-mode))
 8: 
 9: (use-package rainbow-delimiters
10:   :ensure
11:   :hook (prog-mode . rainbow-delimiters-mode))

1: (when (file-directory-p (expand-file-name "site-lisp/nerd-fonts" user-emacs-directory))
2:   (add-to-list 'load-path (expand-file-name "site-lisp/nerd-fonts" user-emacs-directory)))
3: 
4: (use-package nerd-fonts)

 1: (use-package helpful
 2:   :ensure
 3:   :bind
 4:   ("C-h f" . helpful-function)
 5:   ([remap describe-symbol] . helpful-symbol)
 6:   ([remap describe-variable] . helpful-variable)
 7:   ([remap describe-command] . helpful-command)
 8:   ([remap describe-key] . helpful-key)
 9:   :config
10:   (with-eval-after-load 'general
11:     (general-define-key
12:      "C-h F" 'helpful-function
13:      :keymaps 'prog-mode-map
14:      "C-c C-d" 'helpful-at-point)
15:     (general-nvmap
16:       :keymaps 'prog-mode-map
17:       "K" '(helpful-at-point :wk "helpful at point")
18:       "gr" '(helpful-update :wk "update"))))

1: (use-package bytecomp
2:   :custom
3:   (byte-compile-warnings nil))

 1: (use-package emacs
 2:   :ensure nil
 3:   :init
 4:   ;; Add prompt indicator to `completing-read-multiple'.
 5:   ;; We display [CRM<separator>], e.g., [CRM,] if the separator is a comma.
 6:   (defun crm-indicator (args)
 7:     (cons (format "[CRM%s] %s"
 8:                   (replace-regexp-in-string
 9:                    "\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" ""
10:                    crm-separator)
11:                   (car args))
12:           (cdr args)))
13:   (advice-add #'completing-read-multiple :filter-args #'crm-indicator)
14:   ;; Do not allow the cursor in the minibuffer prompt
15:   (setq minibuffer-prompt-properties
16:         '(read-only t cursor-intangible t face minibuffer-prompt))
17:   (add-hook 'minibuffer-setup-hook #'cursor-intangible-mode)
18:   ;; Emacs 28: Hide commands in M-x which do not work in the current mode.
19:   ;; Vertico commands are hidden in normal buffers.
20:   (setq read-extended-command-predicate
21:         #'command-completion-default-include-p
22:         tab-always-indent 'complete)
23:   ;; Enable recursive minibuffers
24:   (setq enable-recursive-minibuffers t)
25:   :custom
26:   (read-buffer-completion-ignore-case t)
27:   (use-short-answers t)
28:   (use-dialog-box-p nil)
29:   (window-resize-pixelwise t)
30:   (frame-resize-pixelwise t)
31:   (ring-bell-function #'ignore)
32:   (scroll-preserve-screen-position t)
33:   (scroll-conservatively 101)
34:   (fast-but-imprecise-scrolling t)
35:   (truncate-partial-width-windows nil)
36:   (fill-column 80)
37:   (enable-recursive-minibuffers t)
38:   (use-file-dialog nil)
39:   (create-lockfiles nil)
40:   (delete-by-moving-to-trash t)
41:   (inhibit-startup-screen t)
42:   :config
43:   (setq completion-ignore-case t
44:         load-prefer-newer t
45:         auto-window-vscroll nil
46:         inhibit-compacting-font-caches t
47:         redisplay-skip-fontification-on-input t)
48:   (set-default 'indicate-empty-lines t)
49:   (setq-default x-stretch-cursor t))

1: (use-package saveplace
2:   :init
3:   (save-place-mode 1)
4:   :custom
5:   (save-place-file (expand-file-name "places" user-emacs-directory)))

1: (use-package autorevert
2:   :init
3:   (global-auto-revert-mode 1)
4:   :custom
5:   (auto-revert-interval 60)
6:   (global-auto-revert-non-file-buffers t)
7:   (auto-revert-verbose nil)
8:   (auto-revert-stop-on-user-input t))

 1: (use-package savehist
 2:   :init
 3:   (savehist-mode 1)
 4:   :custom
 5:   (savehist-file (expand-file-name "history" user-emacs-directory))
 6:   (savehist-coding-system 'utf-8)
 7:   (savehist-additional-variables
 8:    '(evil-jumps-history
 9:      kill-ring
10:      register-alist
11:      mark-ring
12:      global-mark-ring
13:      search-ring
14:      regexp-search-ring)))

 1: (use-package prog-mode
 2:   :hook ((prog-mode . prettify-symbols-mode)
 3:          (prog-mode . visual-line-mode)
 4:          ;; (prog-mode . (lambda () (electric-pair-mode 1)))
 5:          )
 6:   :config
 7:   (setq prettify-symbols-alist
 8:         '(("|>" . "▷")
 9:           ("<|" . "◁")
10:           ("->>" . "↠  ")
11:           ("->" . "→ ")
12:           ("<-" . "← ")
13:           ("=>" . "⇒"))))

1: (use-package select
2:   :custom
3:   (select-enable-clipboard t))

1: (use-package jka-cmpr-hook
2:   :custom
3:   (auto-compression-mode t))

 1: (use-package recentf
 2:   :bind ("C-c f" . recentf)
 3:   :custom
 4:   (recentf-max-saved-items 250)
 5:   (recentf-max-menu-items 300)
 6:   (recentf-exclude
 7:    `("/elpa/" ;; ignore all files in elpa directory
 8:      "recentf" ;; remove the recentf load file
 9:      ".*?autoloads.el$"
10:      "treemacs-persist"
11:      "company-statistics-cache.el" ;; ignore company cache file
12:      "/intero/" ;; ignore script files generated by intero
13:      "/journal/" ;; ignore daily journal files
14:      ".gitignore" ;; ignore `.gitignore' files in projects
15:      "/tmp/" ;; ignore temporary files
16:      "NEWS" ;; don't include the NEWS file for recentf
17:      "bookmarks"  "bmk-bmenu" ;; ignore bookmarks file in .emacs.d
18:      "loaddefs.el"
19:      "^/\\(?:ssh\\|su\\|sudo\\)?:" ;; ignore tramp/ssh files
20:      (concat "^" (regexp-quote (or (getenv "XDG_RUNTIME_DIR")))))))

1: (use-package eldoc
2:   :hook ((prog-mode . eldoc-mode)
3:          (emacs-lisp-mode . eldoc-mode)
4:          (lisp-interaction-mode . eldoc-mode)))

1: (use-package bookmark
2:   :custom
3:   (bookmark-save-flag 1)
4:   (bookmark-default-file (expand-file-name ".bookmark" user-emacs-directory)))

1: (use-package executable
2:   :hook
3:   (after-save . executable-make-buffer-file-executable-if-script-p))

 1: (use-package files
 2:   :config
 3:   (defun full-auto-save ()
 4:     (interactive)
 5:     (save-excursion
 6:       (dolist (buf (buffer-list))
 7:         (set-buffer buf)
 8:         (if (and (buffer-file-name) (buffer-modified-p))
 9:             (basic-save-buffer)))))
10:   (add-hook 'auto-save-hook 'full-auto-save)
11:   (nconc
12:    auto-mode-alist
13:    '(("/LICENSE\\'" . text-mode)
14:      ("\\.log\\'" . text-mode)
15:      ("rc\\'" . conf-mode)
16:      ("\\.\\(?:hex\\|nes\\)\\'" . hexl-mode)))
17:   :custom
18:   (confirm-kill-emacs #'yes-or-no-p)
19:   (confirm-kill-processes nil)
20:   (revert-without-query (list "."))
21:   (find-file-visit-truename t)
22:   (version-control t)
23:   (backup-by-copying t)
24:   (delete-old-versions t)
25:   (kept-new-versions 6)
26:   (kept-old-versions 2)
27:   (auto-save-include-big-deletions t)
28:   (auto-save-list-file-prefix (expand-file-name ".autosave/" user-emacs-directory))
29:   (backup-directory-alist `(("." . ,(expand-file-name ".backup" user-emacs-directory))))
30:   (auto-mode-case-fold nil)
31:   (require-final-newline t))

1: (use-package tramp
2:   :custom
3:   (tramp-backup-directory-alist backup-directory-alist)
4:   (tramp-auto-save-directory (expand-file-name ".tramp-autosave/" user-emacs-directory)))

1: (use-package ffap
2:   :custom
3:   (ffap-machine-p-known 'reject))

1: (use-package epg-config
2:   :custom
3:   (epg-pinentry-mode 'loopback))

1: (use-package make-mode
2:   :config
3:   (add-hook 'makefile-mode-hook 'indent-tabs-mode))

 1: (use-package ispell
 2:   :defer
 3:   :custom
 4:   (ispell-program-name "hunspell")
 5:   (ispell-dictionary "english")
 6:   (ispell-really-hunspell t)
 7:   :config
 8:   (with-eval-after-load 'ispell
 9:     (when (executable-find ispell-program-name)
10:       (add-hook 'text-mode-hook #'flyspell-mode)
11:       (add-hook 'prog-mode-hook #'flyspell-prog-mode)))
12:   (add-to-list 'ispell-skip-region-alist
13:                '(":\\(PROPERTIES\\|LOGBOOK\\):" . ":END:"))
14:   (add-to-list 'ispell-skip-region-alist
15:                '("#\\+BEGIN_SRC" . "#\\+END_SRC"))
16:   (add-to-list 'ispell-skip-region-alist
17:                '("#\\+begin_src" . "#\\+end_src"))
18:   (add-to-list 'ispell-skip-region-alist
19:                '("#\\+begin_example" . "#\\+end_example"))
20:   (add-to-list 'ispell-skip-region-alist
21:                '("#\\+BEGIN_EXAMPLE" . "#\\+END_EXAMPLE"))
22:   (let ((hunspell-en_us-path (expand-file-name "/usr/share/hunspell/en_US-large.aff" (getenv "HOME")))
23:         (hunspell-en_GB-path (expand-file-name "/usr/share/hunspell/en_GB-large.aff" (getenv "HOME")))
24:         (hunspell-id_ID-path (expand-file-name "/usr/share/hunspell/id_ID.aff" (getenv "HOME"))))
25:     (when (file-exists-p hunspell-en_us-path)
26:       (add-to-list 'ispell-hunspell-dict-paths-alist
27:                    `("american" ,hunspell-en_us-path)))
28:     (when (file-exists-p hunspell-en_GB-path)
29:       (add-to-list 'ispell-hunspell-dict-paths-alist
30:                    `("english" ,hunspell-en_GB-path)))
31:     (when (file-exists-p hunspell-id_ID-path)
32:       (add-to-list 'ispell-hunspell-dict-paths-alist
33:                    `("id_ID" ,hunspell-id_ID-path)))))

1: (use-package whitespace
2:   :hook (((prog-mode text-mode conf-mode) . whitespace-mode)
3:          (before-save . whitespace-cleanup))
4:   :custom
5:   (whitespace-style '(face empty trailing tab-mark
6:                            indentation::space))
7:   (whitespace-action '(warn-if-read-only))
8:   :config
9:   (global-whitespace-mode))

1: (use-package subword
2:   :init
3:   (global-subword-mode 1))

1: (use-package ediff
2:   :config
3:   (setq ediff-diff-options "-w"
4:         ediff-split-window-function 'split-window-horizontally
5:         ediff-window-setup-function 'ediff-setup-windows-plain))

1: (use-package delsel
2:   :init
3:   (delete-selection-mode))

1: (use-package text-mode
2:   :ensure nil
3:   :config
4:   (setq-default sentence-end-double-space nil))

1: (use-package flyspell
2:   :custom
3:   (flyspell-issue-welcome-flag nil)
4:   (flyspell-issue-message-flag nil)
5:   :hook (((org-mode message-mode TeX-mode rst-mode mu4e-composer-mode git-commit-mode text-mode)
6:           . flyspell-mode)
7:          (prog-mode . flyspell-prog-mode)))

1: (use-package flymake
2:   :hook (prog-mode . flymake-mode))

1: (use-package imenu
2:   :custom
3:   (imenu-auto-rescan t))

 1: (use-package simple
 2:   :hook ((makefile-mode . indent-tabs-mode)
 3:          (text-mode . visual-line-mode))
 4:   :init
 5:   (transient-mark-mode t)
 6:   :custom
 7:   (save-interprogram-paste-before-kill t)
 8:   (shift-select-mode nil)
 9:   (kill-do-not-save-duplicates t)
10:   (shift-select-mode nil)
11:   (set-mark-command-repeat-pop t)
12:   (indent-tabs-mode nil)
13:   (column-number-mode t)
14:   (idle-update-delay 1.0)
15:   :config
16:   (with-eval-after-load 'evil
17:     (evil-set-initial-state #'message-mode 'insert)))

1: (use-package elec-pair
2:   :init
3:   (electric-pair-mode -1))

 1: (use-package xref
 2:   :ensure nil
 3:   :config
 4:   (with-eval-after-load 'general
 5:     (general-nvmap
 6:      :keymaps 'prog-mode-map
 7:      "M-." 'xref-find-definitions
 8:      "M-?" 'xref-find-references)
 9:     (general-iemap
10:      :keymaps 'prog-mode-map
11:      "M-." 'xref-find-definitions
12:      "M-?" 'xref-find-references)))

(use-package server
  :config
  (unless (server-running-p)
    (server-start))
  (require 'org-protocol))

1: ;; Enable rich annotations using the Marginalia package
2: (use-package marginalia
3:   :ensure
4:   :bind (:map minibuffer-local-map
5:               ("M-A" . marginalia-cycle))
6:   :init
7:   (marginalia-mode))

1: (use-package nerd-icons-completion
2:   :ensure
3:   :hook (marginalia-mode . nerd-icons-completion-marginalia-setup)
4:   :config
5:   (nerd-icons-completion-mode))

  1: (use-package consult
  2:   :ensure
  3:   ;; Replace bindings. Lazily loaded due by `use-package'.
  4:   :bind (;; C-c bindings in `mode-specific-map'
  5:          ("C-c M-x" . consult-mode-command)
  6:          ("C-c h" . consult-history)
  7:          ("C-c k" . consult-kmacro)
  8:          ("C-c m" . consult-man)
  9:          ("C-c i" . consult-info)
 10:          ([remap Info-search] . consult-info)
 11:          ;; C-x bindings in `ctl-x-map'
 12:          ("C-x M-:" . consult-complex-command)     ;; orig. repeat-complex-command
 13:          ("C-x b" . consult-buffer)                ;; orig. switch-to-buffer
 14:          ("C-x 4 b" . consult-buffer-other-window) ;; orig. switch-to-buffer-other-window
 15:          ("C-x 5 b" . consult-buffer-other-frame)  ;; orig. switch-to-buffer-other-frame
 16:          ("C-x t b" . consult-buffer-other-tab)    ;; orig. switch-to-buffer-other-tab
 17:          ("C-x r b" . consult-bookmark)            ;; orig. bookmark-jump
 18:          ("C-x p b" . consult-project-buffer)      ;; orig. project-switch-to-buffer
 19:          ;; Custom M-# bindings for fast register access
 20:          ("M-#" . consult-register-load)
 21:          ("M-'" . consult-register-store)          ;; orig. abbrev-prefix-mark (unrelated)
 22:          ("C-M-#" . consult-register)
 23:          ;; Other custom bindings
 24:          ("M-y" . consult-yank-pop)                ;; orig. yank-pop
 25:          ;; M-g bindings in `goto-map'
 26:          ("M-g e" . consult-compile-error)
 27:          ("M-g f" . consult-flymake)               ;; Alternative: consult-flycheck
 28:          ("M-g g" . consult-goto-line)             ;; orig. goto-line
 29:          ("M-g M-g" . consult-goto-line)           ;; orig. goto-line
 30:          ("M-g o" . consult-outline)               ;; Alternative: consult-org-heading
 31:          ("M-g m" . consult-mark)
 32:          ("M-g k" . consult-global-mark)
 33:          ("M-g i" . consult-imenu)
 34:          ("M-g I" . consult-imenu-multi)
 35:          ;; M-s bindings in `search-map'
 36:          ("M-s d" . consult-find)                  ;; Alternative: consult-fd
 37:          ("M-s c" . consult-locate)
 38:          ("M-s g" . consult-grep)
 39:          ("M-s G" . consult-git-grep)
 40:          ("M-s r" . consult-ripgrep)
 41:          ("M-s l" . consult-line)
 42:          ("M-s L" . consult-line-multi)
 43:          ("M-s k" . consult-keep-lines)
 44:          ("M-s u" . consult-focus-lines)
 45:          ;; Isearch integration
 46:          ("M-s e" . consult-isearch-history)
 47:          :map isearch-mode-map
 48:          ("M-e" . consult-isearch-history)         ;; orig. isearch-edit-string
 49:          ("M-s e" . consult-isearch-history)       ;; orig. isearch-edit-string
 50:          ("M-s l" . consult-line)                  ;; needed by consult-line to detect isearch
 51:          ("M-s L" . consult-line-multi)            ;; needed by consult-line to detect isearch
 52:          ;; Minibuffer history
 53:          :map minibuffer-local-map
 54:          ("M-s" . consult-history)                 ;; orig. next-matching-history-element
 55:          ("M-r" . consult-history))                ;; orig. previous-matching-history-element
 56:   ;; Enable automatic preview at point in the *Completions* buffer. This is
 57:   ;; relevant when you use the default completion UI.
 58:   :hook (completion-list-mode . consult-preview-at-point-mode)
 59:   ;; The :init configuration is always executed (Not lazy)
 60:   :init
 61:   ;; Optionally configure the register formatting. This improves the register
 62:   ;; preview for `consult-register', `consult-register-load',
 63:   ;; `consult-register-store' and the Emacs built-ins.
 64:   (setq register-preview-delay 0.5
 65:         register-preview-function #'consult-register-format)
 66:   ;; Optionally tweak the register preview window.
 67:   ;; This adds thin lines, sorting and hides the mode line of the window.
 68:   (advice-add #'register-preview :override #'consult-register-window)
 69:   ;; Use Consult to select xref locations with preview
 70:   (setq xref-show-xrefs-function #'consult-xref
 71:         xref-show-definitions-function #'consult-xref)
 72:   ;; Configure other variables and modes in the :config section,
 73:   ;; after lazily loading the package.
 74:   :config
 75:   ;; Optionally configure preview. The default value
 76:   ;; is 'any, such that any key triggers the preview.
 77:   ;; (setq consult-preview-key 'any)
 78:   ;; (setq consult-preview-key "M-.")
 79:   ;; (setq consult-preview-key '("S-<down>" "S-<up>"))
 80:   ;; For some commands and buffer sources it is useful to configure the
 81:   ;; :preview-key on a per-command basis using the `consult-customize' macro.
 82:   (consult-customize
 83:    consult-theme :preview-key '(:debounce 0.2 any)
 84:    consult-ripgrep consult-git-grep consult-grep
 85:    consult-bookmark consult-recent-file consult-xref
 86:    consult--source-bookmark consult--source-file-register
 87:    consult--source-recent-file consult--source-project-recent-file
 88:    ;; :preview-key "M-."
 89:    :preview-key '(:debounce 0.4 any))
 90:   ;; Optionally configure the narrowing key.
 91:   ;; Both < and C-+ work reasonably well.
 92:   (setq consult-narrow-key "<") ;; "C-+"
 93:   ;; Optionally make narrowing help available in the minibuffer.
 94:   ;; You may want to use `embark-prefix-help-command' or which-key instead.
 95:   ;; (define-key consult-narrow-map (vconcat consult-narrow-key "?") #'consult-narrow-help)
 96: 
 97:   ;; By default `consult-project-function' uses `project-root' from project.el.
 98:   ;; Optionally configure a different project root function.
 99:   ;;;; 1. project.el (the default)
100:   ;; (setq consult-project-function #'consult--default-project--function)
101:   ;;;; 2. vc.el (vc-root-dir)
102:   ;; (setq consult-project-function (lambda (_) (vc-root-dir)))
103:   ;;;; 3. locate-dominating-file
104:   ;; (setq consult-project-function (lambda (_) (locate-dominating-file "." ".git")))
105:   ;;;; 4. projectile.el (projectile-project-root)
106:   ;; (autoload 'projectile-project-root "projectile")
107:   ;; (setq consult-project-function (lambda (_) (projectile-project-root)))
108:   ;;;; 5. No project support
109:   ;; (setq consult-project-function nil)
110:   )

 1: (use-package corfu
 2:   :ensure t
 3:   ;; Optional customizations
 4:   :hook ((eshell-mode . (lambda ()
 5:                           (setq-local corfu-auto nil)
 6:                           (corfu-mode))))
 7:   :custom
 8:   (corfu-cycle t)                ;; Enable cycling for `corfu-next/previous'
 9:   (corfu-auto t)                 ;; Enable auto completion
10:   ;; (corfu-separator ?\s)          ;; Orderless field separator
11:   ;; (corfu-quit-at-boundary nil)   ;; Never quit at completion boundary
12:   (corfu-quit-no-match 'separator)      ;; Never quit, even if there is no match
13:   ;; (corfu-quit-no-match nil)      ;; Never quit, even if there is no match
14:   ;; (corfu-preview-current nil)    ;; Disable current candidate preview
15:   (corfu-preselect 'prompt)      ;; Preselect the prompt
16:   ;; (corfu-on-exact-match nil)     ;; Configure handling of exact matches
17:   ;; (corfu-scroll-margin 5)        ;; Use scroll margin
18: 
19:   ;; Enable Corfu only for certain modes.
20:   ;; :hook ((prog-mode . corfu-mode)
21:   ;;        (shell-mode . corfu-mode)
22:   ;;        (eshell-mode . corfu-mode))
23: 
24:   ;; Recommended: Enable Corfu globally.  This is recommended since Dabbrev can
25:   ;; be used globally (M-/).  See also the customization variable
26:   ;; `global-corfu-modes' to exclude certain modes.
27:   :init
28:   (global-corfu-mode)
29:   :bind
30:   (:map corfu-map
31:         ("TAB" . corfu-next)
32:         ([tab] . corfu-next)
33:         ("S-TAB" . corfu-previous)
34:         ([backtab] . corfu-previous)))

1: (use-package nerd-icons-corfu
2:   :ensure
3:   :config
4:   (add-to-list 'corfu-margin-formatters #'nerd-icons-corfu-formatter)
5:   (setq nerd-icons-corfu-mapping
6:         '((array :style "cod" :icon "symbol_array" :face font-lock-type-face)
7:           (boolean :style "cod" :icon "symbol_boolean" :face font-lock-builtin-face)
8:           ;; ...
9:           (t :style "cod" :icon "code" :face font-lock-warning-face))))

 1: (use-package embark
 2:   :ensure
 3:   :bind (("C-." . embark-act)
 4:          ("M-." . embark-dwim)
 5:          ("C-h B" . embark-bindings))
 6:   :init
 7:   (setq prefix-help-command #'embark-prefix-help-command)
 8:   (add-hook 'eldoc-documentation-functions #'embark-eldoc-first-target)
 9:   (setq eldoc-documentation-strategy #'eldoc-documentation-compose-eagerly)
10:   :config
11:   (add-to-list 'display-buffer-alist
12:                '("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*"
13:                  nil
14:                  (window-parameters (mode-line-format . none))))
15:   :general
16:   (general-define-key
17:    :keymaps 'override
18:    "C-." 'embark-act
19:    "M-." 'embark-dwim
20:    "C-h B" 'embark-bindings)
21:   (general-iemap
22:     :keymaps 'override
23:     "C-." 'embark-act
24:     "M-." 'embark-dwim
25:     "C-h B" 'embark-bindings)
26:   (+config/leader-key
27:     "." 'embark-act
28:     "M-." 'embark-dwim))

1: (use-package embark-consult
2:   :ensure t ; only need to install it, embark loads it after consult if found
3:   :hook
4:   (embark-collect-mode . consult-preview-at-point-mode))

 1: ;; Add extensions
 2: (use-package cape
 3:   :ensure
 4:   ;; Bind dedicated completion commands
 5:   ;; Alternative prefix keys: C-c p, M-p, M-+, ...
 6:   :bind (("C-c p p" . completion-at-point) ;; capf
 7:          ("C-c p t" . complete-tag)        ;; etags
 8:          ("C-c p d" . cape-dabbrev)        ;; or dabbrev-completion
 9:          ("C-c p h" . cape-history)
10:          ("C-c p f" . cape-file)
11:          ("C-c p k" . cape-keyword)
12:          ("C-c p s" . cape-elisp-symbol)
13:          ("C-c p e" . cape-elisp-block)
14:          ("C-c p a" . cape-abbrev)
15:          ("C-c p l" . cape-line)
16:          ("C-c p w" . cape-dict)
17:          ("C-c p :" . cape-emoji)
18:          ("C-c p \\" . cape-tex)
19:          ("C-c p _" . cape-tex)
20:          ("C-c p ^" . cape-tex)
21:          ("C-c p &" . cape-sgml)
22:          ("C-c p r" . cape-rfc1345))
23:   :init
24:   ;; Add to the global default value of `completion-at-point-functions' which is
25:   ;; used by `completion-at-point'.  The order of the functions matters, the
26:   ;; first function returning a result wins.  Note that the list of buffer-local
27:   ;; completion functions takes precedence over the global list.
28:   ;; (add-to-list 'completion-at-point-functions #'cape-dabbrev)
29:   (add-to-list 'completion-at-point-functions #'cape-file)
30:   (add-to-list 'completion-at-point-functions #'cape-elisp-block)
31:   ;;(add-to-list 'completion-at-point-functions #'cape-history)
32:   ;;(add-to-list 'completion-at-point-functions #'cape-keyword)
33:   ;;(add-to-list 'completion-at-point-functions #'cape-tex)
34:   ;;(add-to-list 'completion-at-point-functions #'cape-sgml)
35:   ;;(add-to-list 'completion-at-point-functions #'cape-rfc1345)
36:   ;;(add-to-list 'completion-at-point-functions #'cape-abbrev)
37:   ;;(add-to-list 'completion-at-point-functions #'cape-dict)
38:   (add-to-list 'completion-at-point-functions #'cape-elisp-symbol)
39:   ;;(add-to-list 'completion-at-point-functions #'cape-line)
40:   )

 1: (use-package tempel
 2:   :ensure
 3:   :custom
 4:   (tempel-trigger-prefix "<")
 5:   :bind (("M-+" . tempel-complete)
 6:          ("M-*" . tempel-insert))
 7:   :init
 8:   (defun tempel-setup-capf ()
 9:     ;; Add the Tempel Capf to `completion-at-point-functions'.
10:     ;; `tempel-expand' only triggers on exact matches. Alternatively use
11:     ;; `tempel-complete' if you want to see all matches, but then you
12:     ;; should also configure `tempel-trigger-prefix', such that Tempel
13:     ;; does not trigger too often when you don't expect it. NOTE: We add
14:     ;; `tempel-expand' *before* the main programming mode Capf, such
15:     ;; that it will be tried first.
16:     (setq-local completion-at-point-functions
17:                 (cons #'tempel-complete
18:                       completion-at-point-functions)))
19: 
20:   (add-hook 'conf-mode-hook 'tempel-setup-capf)
21:   (add-hook 'prog-mode-hook 'tempel-setup-capf)
22:   (add-hook 'text-mode-hook 'tempel-setup-capf)
23:   (add-hook 'prog-mode-hook #'tempel-abbrev-mode))
24: 
25: (when (file-directory-p (expand-file-name "site-lisp/tempel-collection" user-emacs-directory))
26:   (add-to-list 'load-path (expand-file-name "site-lisp/tempel-collection" user-emacs-directory)))
27: 
28: (use-package tempel-collection)

1: (use-package eshell
2:   :ensure nil
3:   :custom
4:   (eshell-history-size 10000)
5:   (eshell-hist-ignore-dups t)
6:   (eshell-buffer-maximum-lines 10000)
7:   (eshell-scroll-to-bottom-on-input t)
8:   (eshell-destroy-buffer-when-process-dies t)
9:   (eshell-prompt-regexp "^[^\)]*[\)] "))

1: (use-package eshell-syntax-highlighting
2:   :ensure
3:   :defer t
4:   :after eshell
5:   :config
6:   (eshell-syntax-highlighting-global-mode +1))

1: (use-package esh-autosuggest
2:   :defer t
3:   :hook (eshell-mode . esh-autosuggest-mode)
4:   ;; If you have use-package-hook-name-suffix set to nil, uncomment and use the
5:   ;; line below instead:
6:   ;; :hook (eshell-mode-hook . esh-autosuggest-mode)
7:   :ensure t)

 1: (use-package sh-script
 2:   :mode ("\\.bats\\'" . sh-mode)
 3:   :mode ("\\.\\(?:zunit\\|env\\)\\'" . sh-mode)
 4:   :mode ("/bspwmrc\\'" . sh-mode)
 5:   :hook (sh-mode-local-vars . lsp-deferred)
 6:   :hook (sh-mode-local-vars . tree-sitter-mode)
 7:   :config
 8:   (with-eval-after-load 'lsp
 9:     (add-hook 'sh-mode-hook #'lsp-deferred)
10:     (add-hook 'shell-mode-hook #'lsp-deferred)
11:     (add-hook 'sh-mode-local-vars-hook #'lsp-deferred))
12:   (with-eval-after-load 'rainbow-delimiters
13:     (add-hook 'sh-mode #'rainbow-delimiters-mode))
14:   ;; recognize function names with dashes in them
15:   (setq sh-indent-after-continuation 'always)
16:   (add-to-list 'sh-imenu-generic-expression
17:                '(sh (nil "^\\s-*function\\s-+\\([[:alpha:]_-][[:alnum:]_-]*\\)\\s-*\\(?:()\\)?" 1)
18:                     (nil "^\\s-*\\([[:alpha:]_-][[:alnum:]_-]*\\)\\s-*()" 1)))
19:   (with-eval-after-load 'smartparens
20:     (sp-local-pair 'sh-mode "`" "`" :unless '(sp-point-before-word-p sp-point-before-same-p))))

 1: (use-package vterm
 2:   :ensure
 3:   :defer t
 4:   :commands vterm-mode
 5:   :config
 6:   (add-hook 'vterm-mode-hook
 7:             (lambda ()
 8:               (setq-local global-hl-line-mode nil)
 9:               (setq-local hscroll-margin 0)))
10:   (setq vterm-kill-buffer-on-exit t)
11:   :general
12:   (+config/leader-menu! "vterm"
13:       "tv"
14:     "RET" 'vterm-toggle
15:     "v" 'vterm))

 1: (use-package multi-vterm
 2:   :ensure
 3:   :defer t
 4:   :after vterm
 5:   :general
 6:   (general-iemap
 7:     :keymaps 'vterm-mode-map
 8:     "C-SPC" '(:ignore t :wk "multi vterm")
 9:     "C-SPC a" '(multi-vterm :wk "new vterm buffer")
10:     "C-SPC n" '(multi-vterm-next :wk "next vterm buffer")
11:     "C-SPC p" '(multi-vterm-prev :wk "previous vterm buffer")))

 1: (use-package vterm-toggle
 2:   :ensure
 3:   :defer t
 4:   :after vterm
 5:   :commands vterm-toggle
 6:   :bind
 7:   (:map vterm-mode-map
 8:         ("C-<return>" . vterm-toggle-insert-cd))
 9:   :config
10:   (setq vterm-toggle-fullscreen-p nil)
11:   (add-to-list 'display-buffer-alist
12:                '((lambda (buffer-or-name _)
13:                    (let ((buffer (get-buffer buffer-or-name)))
14:                      (with-current-buffer buffer
15:                        (or (equal major-mode 'vterm-mode)
16:                            (string-prefix-p vterm-buffer-name (buffer-name buffer))))))
17:                  (display-buffer-reuse-window display-buffer-at-bottom)
18:                  ;;(display-buffer-reuse-window display-buffer-in-direction)
19:                  ;;display-buffer-in-direction/direction/dedicated is added in emacs27
20:                  ;;(direction . bottom)
21:                  (dedicated . t) ;dedicated is supported in emacs27
22:                  (reusable-frames . visible)
23:                  (window-height . 0.4))))

1: (use-package fish-mode
2:   :ensure
3:   :if (executable-find "fish")
4:   :defer t)

1: (use-package fish-completion
2:   :ensure
3:   :after fish-mode
4:   :config
5:   (setq fish-completion-fallback-on-bash-p t))

1: (use-package bash-completion
2:   :ensure
3:   :defer t
4:   :config
5:   (bash-completion-setup)
6:   :hook
7:   (shell-dynamic-complete-function bash-completion-dynamic-complete))

 1:   ;;; smartparens
 2: (use-package smartparens
 3:   :ensure
 4:   :demand t
 5:   :hook (eval-expression-minibuffer-setup . turn-on-smartparens-strict-mode)
 6:   :config
 7:   (require 'smartparens-config)
 8:   (show-smartparens-global-mode 1)
 9:   (smartparens-global-mode 1)
10:   ;; Fix usage of ' in Lisp modes
11:   ;; THANKS: https://github.com/Fuco1/smartparens/issues/286#issuecomment-32324743
12:   ;; (eval) is used as a hack to quiet Flycheck errors about (sp-with-modes)
13:   (eval
14:    '(sp-with-modes sp-lisp-modes
15:       ;; disable ', it's the quote character!
16:       (sp-local-pair "'" nil :actions nil)
17:       ;; also only use the pseudo-quote inside strings where it serve as
18:       ;; hyperlink.
19:       (sp-local-pair "`" "'" :when '(sp-in-string-p sp-in-comment-p))
20:       (sp-local-pair "`" nil
21:                      :skip-match (lambda (ms mb me)
22:                                    (cond
23:                                     ((equal ms "'")
24:                                      (or (sp--org-skip-markup ms mb me)
25:                                          (not (sp-point-in-string-or-comment))))
26:                                     (t (not (sp-point-in-string-or-comment))))))))
27:   (sp-with-modes '(html-mode sgml-mode nxml-mode web-mode)
28:     (sp-local-pair "<" ">"))
29:   ;; (with-eval-after-load 'general
30:   ;;   (general-define-key
31:   ;;    :keymaps 'smartparens-mode-map
32:   ;;    "C-M-f" 'sp-forward-sexp
33:   ;;    "C-M-b" 'sp-backward-sexp
34:   ;;    "C-M-d" 'sp-down-sexp
35:   ;;    "C-M-a" 'sp-backward-down-sexp
36:   ;;    "C-S-d" 'sp-beginning-of-sexp
37:   ;;    "C-S-a" 'sp-end-of-sexp
38:   ;;    "C-M-e" 'sp-up-sexp
39:   ;;    "C-M-u" 'sp-backward-up-sexp
40:   ;;    "C-M-t" 'sp-transpose-sexp
41:   ;;    "C-M-k" 'sp-kill-sexp
42:   ;;    "C-M-w" 'sp-copy-sexp
43:   ;;    "M-<delete>" 'sp-unwrap-sexp
44:   ;;    "M-<backspace>" 'sp-backward-unwrap-sexp
45:   ;;    "C-<right>" 'sp-forward-slurp-sexp
46:   ;;    "C-<left>" 'sp-forward-barf-sexp
47:   ;;    "C-M-<left>" 'sp-backward-slurp-sexp
48:   ;;    "C-M-<right>" 'sp-backward-barf-sexp
49:   ;;    "M-D" 'sp-split-sexp
50:   ;;    "C-M-<delete>" 'sp-splice-sexp-killing-forward
51:   ;;    "C-M-<backspace>" 'sp-splice-sexp-killing-backward
52:   ;;    "C-S-<backspace>" 'sp-splice-sexp-killing-around
53:   ;;    "C-]" 'sp-select-next-thing-exchange
54:   ;;    "C-<left_bracket>" 'sp-select-previous-thing
55:   ;;    "C-M-]" 'sp-select-next-thing
56:   ;;    "M-F" 'sp-forward-symbol
57:   ;;    "M-B" 'sp-backward-symbol
58:   ;;    "C-\"" 'sp-change-inner
59:   ;;    "M-i" 'sp-change-enclosing))
60:   )

1: (use-package ws-butler
2:   :ensure
3:   :hook (prog-mode . ws-butler-mode)
4:   :config
5:   (setq ws-butler-convert-leading-tabs-or-spaces t))

 1: (use-package activities
 2:   :ensure
 3:   :init
 4:   (activities-mode)
 5:   (activities-tabs-mode)
 6:   ;; Prevent `edebug' default bindings from interfering.
 7:   (setq edebug-inhibit-emacs-lisp-mode-bindings t)
 8:   :bind
 9:   (("C-x C-a C-n" . activities-new)
10:    ("C-x C-a C-d" . activities-define)
11:    ("C-x C-a C-a" . activities-resume)
12:    ("C-x C-a C-s" . activities-suspend)
13:    ("C-x C-a C-k" . activities-kill)
14:    ("C-x C-a RET" . activities-switch)
15:    ("C-x C-a b" . activities-switch-buffer)
16:    ("C-x C-a g" . activities-revert)
17:    ("C-x C-a l" . activities-list))
18:   :general
19:   (+config/leader-activities
20:    "C-n" 'activities-new
21:    "C-d" 'activities-define
22:    "C-a" 'activities-resume
23:    "C-s" 'activities-suspend
24:    "C-k" 'activities-kill
25:    "RET" 'activities-switch
26:    "b" 'activities-switch-buffer
27:    "g" 'activities-revert
28:    "l" 'activities-list))

 1: (use-package magit
 2:   :ensure
 3:   :demand t
 4:   :config
 5:   (evil-set-initial-state #'git-commit-mode 'insert)
 6:   ;; (with-eval-after-load 'general
 7:   ;;   (+config/leader-go
 8:   ;;    "g" 'magit-status))
 9:   :custom
10:   (magit-revision-show-gravatars '("^Author:     " . "^Commit:     "))
11:   (magit-diff-refine-hunk 'all)
12:   (magit-log-arguments '("-n100" "--graph" "--decorate"))
13:   :general
14:   (+config/leader-go
15:     "g" 'magit-status))

 1: (use-package projectile
 2:   :ensure t
 3:   :demand t
 4:   :bind (([remap evil-jump-to-tag] . projectile-find-tag)
 5:          ([remap find-tag] . projectile-find-tag))
 6:   :hook (dired-before-readin . projectile-track-known-projects-find-file-hook)
 7:   :custom
 8:   (projectile-cache-file (expand-file-name ".projects" user-emacs-directory))
 9:   (projectile-auto-discover nil)
10:   (projectile-enable-caching (not noninteractive))
11:   (projectile-globally-ignored-files '("DS_Store" "TAGS"))
12:   (projectile-globally-ignored-file-suffixes '(".elc" ".pyc" ".o"))
13:   (projectile-kill-buffers-filter 'kill-only-files)
14:   (projectile-known-projects-file (expand-file-name ".projectile_projects.eld" user-emacs-directory))
15:   (projectile-ignored-projects '("~/"))
16:   (projectile-project-root-files-bottom-up
17:    (append '(".projectile" ".project" ".git")
18:            (when (executable-find "hg")
19:              '(".hg"))
20:            (when (executable-find "bzr")
21:              '(".bzr"))))
22:   (projectile-project-root-files-top-down-recurring '("Makefile"))
23:   (compilation-buffer-name-function #'projectile-compilation-buffer-name)
24:   (compilation-save-buffers-predicate #'projectile-current-project-buffer-p)
25:   (projectile-git-submodule-command nil)
26:   (projectile-indexing-method 'hybrid)
27:   :config
28:   (projectile-mode +1)
29:   (put 'projectile-git-submodule-command 'initial-value projectile-git-submodule-command)
30:   :general
31:   (+config/leader-key
32:     "SPC" 'projectile-find-file
33:     "p" '(:keymap projectile-command-map :package projectile :wk "projectile")))

1: (use-package ripgrep
2:   :ensure
3:   :init
4:   (with-eval-after-load 'evil-collection
5:     (evil-collection-ripgrep-setup)))

 1: (use-package diff-hl
 2:   :ensure
 3:   :hook (find-file . diff-hl-mode)
 4:   :hook (vc-dir-mode . diff-hl-dir-mode)
 5:   :hook (dired-mode . diff-hl-dired-mode)
 6:   :hook (diff-hl-mode . diff-hl-flydiff-mode)
 7:   :hook (diff-hl-mode . diff-hl-show-hunk-mouse-mode)
 8:   :hook (magit-pre-refresh-hook . diff-hl-magit-pre-refresh)
 9:   :hook (magit-post-refresh-hook . diff-hl-magit-post-refresh)
10:   :init
11:   (global-diff-hl-mode)
12:   :custom
13:   (vc-git-diff-switches '("--histogram")
14:                         diff-hl-flydiff-delay 0.5
15:                         diff-hl-show-staged-changes nil)
16:   :config
17:   (when (featurep 'flycheck)
18:     (setq flycheck-indication-mode 'right-fringe))
19:   :general
20:   (general-nvmap
21:     :keymaps 'diff-hl-mode-map
22:     "[[" '(diff-hl-previous-hunk :wk "previous hunk" :repeat t :jump t)
23:     "]]" '(diff-hl-next-hunk :wk "next hunk" :repeat t :jump t)))

 1: (use-package perspective
 2:   :ensure
 3:   :config
 4:   (setq persp-initial-frame-name "Main"
 5:         persp-suppress-no-prefix-key-warning t)
 6:   (if (featurep 'no-littering)
 7:       (setq persp-state-default-file (expand-file-name ".perspective-state" no-littering-var-directory))
 8:     (setq persp-state-default-file (expand-file-name ".perspective-state" user-emacs-directory)))
 9:   (global-set-key [remap switch-to-buffer] #'persp-switch-to-buffer*)
10:   (when (featurep 'consult)
11:     (require 'consult)
12:     (unless (boundp 'persp-consult-source)
13:       (defvar persp-consult-source
14:         (list :name     "Perspective"
15:               :narrow   ?s
16:               :category 'buffer
17:               :state    #'consult--buffer-state
18:               :history  'buffer-name-history
19:               :default  t
20:               :items
21:               #'(lambda () (consult--buffer-query :sort 'visibility
22:                                                   :predicate '(lambda (buf) (persp-is-current-buffer buf t))
23:                                                   :as #'buffer-name)))))
24:     (consult-customize consult--source-buffer :hidden t :default nil)
25:     (add-to-list 'consult-buffer-sources persp-consult-source))
26:   :init
27:   (customize-set-variable 'persp-mode-prefix-key (kbd "C-c TAB"))
28:   (unless (equal persp-mode t)
29:     (persp-mode 1))
30:   :bind (([remap switch-to-buffer] . persp-switch-to-buffer*)
31:          ([remap kill-buffer] . persp-kill-buffer*))
32:   :hook (kill-emacs . persp-state-save)
33:   :general
34:   (general-def
35:     :keymaps 'perspective-map
36:     "TAB" '(persp-switch-last :wk "switch to last perspective")
37:     "P" 'projectile-persp-switch-project)
38:   (+config/leader-key
39:     "TAB" (general-simulate-key "C-c TAB"
40:             :state '(normal visual)
41:             :name general-SPC-h-simulates-C-c-TAB
42:             :docstring "Simulates C-c TAB in normal and visual mode."
43:             :which-key "Perspective"))
44:   (+config/leader-key
45:     "C-x" '(persp-switch-to-scratch-buffer :wk "switch to scratch buffer")))

1: (use-package persp-projectile
2:   :ensure t
3:   :after perspective
4:   :commands projectile-persp-switch-project
5:   :general
6:   (general-def
7:     :keymaps 'perspective-map
8:     "P" 'projectile-persp-switch-project))

 1: (use-package git-link
 2:   :demand
 3:   :ensure
 4:   :commands (git-link git-link-commit git-link-homepage)
 5:   :general
 6:   (+config/leader-go
 7:     "G" '(:ignore t :wk "git")
 8:     "Gl" 'git-link
 9:     "Gh" 'git-link-homepage
10:     "Gc" 'git-link-commit))

 1: (use-package git-messenger
 2:   :ensure
 3:   :config
 4:   (with-eval-after-load 'general
 5:     (+config/leader-go
 6:       "Gm" 'git-messenger:popup-message))
 7:   :custom
 8:   ;; Enable magit-show-commit instead of pop-to-buffer
 9:   (git-messenger:use-magit-popup t)
10:   (git-messenger:show-detail t))

1: (use-package git-timemachine
2:   :ensure
3:   :after magit
4:   :general
5:   (+config/leader-go
6:     "Gt" 'git-timemachine-toggle))

1: (use-package magit-todos
2:   :ensure
3:   :after magit
4:   :hook (magit-mode . magit-todos-mode)
5:   :custom
6:   (magit-todos-group-by
7:    '(magit-todos-item-first-path-component magit-todos-item-keyword magit-todos-item-filename)))

1: (use-package forge
2:   :after magit
3:   :defer t
4:   :bind ((:map forge-issue-section-map
5:                ("C-c C-v" . forge-browse-topic))
6:          (:map forge-pullreq-section-map
7:                ("C-c C-v" . forge-browse-topic)))
8:   :custom
9:   (forge-add-default-bindings nil))

1: (use-package org-project-capture
2:   :bind (("C-c n p" . org-project-capture-project-todo-completing-read))
3:   :ensure t
4:   :config
5:   (progn
6:     (setq org-project-capture-backend
7:           (make-instance 'org-project-capture-projectile-backend))  ; Replace with your backend of choice
8:     (setq org-project-capture-projects-file (expand-file-name "projects.org" org-directory))
9:     (org-project-capture-single-file)))

 1: (use-package lsp-mode
 2:   :ensure
 3:   :diminish (lsp-lens-mode lsp-mode)
 4:   :commands lsp lsp-deferred
 5:   :init
 6:   (setq lsp-keymap-prefix "C-c C-l")
 7:   (defun my/orderless-dispatch-flex-first (_pattern index _total)
 8:     (and (eq index 0) 'orderless-flex))
 9:   (defun my/lsp-mode-setup-completion ()
10:     (setf (alist-get 'styles (alist-get 'lsp-capf completion-category-defaults))
11:           '(orderless)))
12:   (add-hook 'orderless-style-dispatchers #'my/orderless-dispatch-flex-first nil 'local)
13:   (when (featurep 'cape)
14:     (setq-local completion-at-point-functions (list (cape-capf-buster #'lsp-completion-at-point))))
15:   :hook
16:   (lsp-mode . lsp-enable-which-key-integration)
17:   (lsp-completion-mode . my/lsp-mode-setup-completion)
18:   ((c-mode c++-mode xml-mode
19:            yaml-mode toml-mode
20:            lua-mode jinja2-mode
21:            json-mode html-mode
22:            web-mode html-mode-local-vars-hook
23:            web-mode-local-vars-hook nxml-mode-local-vars-hook
24:            scss-mode-local-vars css-mode-local-vars
25:            less-css-mode-local-vars css-mode
26:            typescript-mode javascript-mode
27:            js2-mode typescript-tsx-mode) . lsp-deferred)
28:   :config
29:   (setq lsp-toml-command
30:         (if (file-exists-p (expand-file-name ".cargo/bin/taplo" "~"))
31:             (expand-file-name ".cargo/bin/taplo" "~")
32:           "taplo")
33:         lsp-rust-rls-server-command "rls"
34:         lsp-eldoc-render-all t
35:         lsp-enable-snippet nil
36:         lsp-enable-indentation nil
37:         lsp-prefer-flymake nil
38:         lsp-keep-workspace-alive nil
39:         lsp-modeline-code-actions-segments '(count icon name))
40:   :custom
41:   (lsp-completion-provider :none)
42:   :config
43:   (when (featurep 'exwm)
44:     (advice-add #'corfu--make-frame :around
45:                 (defun +corfu--make-frame-a (oldfun &rest args)
46:                   (cl-letf (((symbol-function #'frame-parent)
47:                              (lambda (frame)
48:                                (or (frame-parameter frame 'parent-frame)
49:                                    exwm-workspace--current))))
50:                     (apply oldfun args))
51:                   (when exwm--connection
52:                     (set-frame-parameter corfu--frame 'parent-frame nil))))
53: 
54:     (advice-add #'corfu--popup-redirect-focus :override
55:                 (defun +corfu--popup-redirect-focus-a ()
56:                   (redirect-frame-focus corfu--frame
57:                                         (or (frame-parent corfu--frame)
58:                                             exwm-workspace--current)))))
59:   :general
60:   (+config/leader-key
61:     :keymaps 'lsp-mode-map
62:     "l" (general-simulate-key "C-c C-l"
63:           :name general-SPC-l-simulates-C-c-C-l
64:           :docstring "Simulates C-c C-l"
65:           :which-key "LSP"))
66: 
67:   (general-nvmap
68:     :keymaps 'lsp-mode-map
69:     "K" '(lsp-describe-thing-at-point :wk "describe thing at point")))

 1: (use-package lsp-ui
 2:   :ensure
 3:   :defer t
 4:   :hook (lsp-mode . lsp-ui-mode)
 5:   :init
 6:   (setq lsp-ui-sideline-enable t
 7:         lsp-ui-sideline-update-mode 'line
 8:         lsp-ui-sideline-show-code-actions t
 9:         lsp-ui-sideline-show-hover t
10:         lsp-ui-doc-enable t
11:         lsp-ui-doc-include-signature t
12:         lsp-ui-doc-show-with-cursor t
13:         lsp-eldoc-enable-hover nil ; Disable eldoc displays in minibuffer
14:         lsp-ui-doc-position 'at-point
15:         lsp-ui-imenu-enable t
16:         lsp-ui-sideline-ignore-duplicate t
17:         lsp-ui-peek-enable t)
18:   :config
19:   (define-key lsp-ui-mode-map [remap xref-find-definitions] #'lsp-ui-peek-find-definitions)
20:   (define-key lsp-ui-mode-map [remap xref-find-references] #'lsp-ui-peek-find-references)
21:   (add-to-list 'lsp-language-id-configuration '(jinja2-mode . "jinja2") t)
22:   (add-to-list 'lsp-language-id-configuration '("\\.js2$" . "jinja2") t)
23:   :general
24:   (general-define-key
25:    :keymaps '(lsp-ui-mode-map)
26:    [remap xref-find-definitions] 'lsp-ui-peek-find-definitions
27:    [remap xref-find-references] 'lsp-ui-peek-find-references
28:    "M-." 'lsp-ui-peek-find-definitions
29:    "M-?" 'lsp-ui-peek-find-references))

1: (use-package consult-lsp
2:   :ensure
3:   :after consult lsp
4:   :bind
5:   (:map lsp-mode-map
6:         ([remap xref-find-apropos] . consult-lsp-symbols)))

1: (when (file-directory-p (expand-file-name "Sync/org" (getenv "HOME")))
2:   (customize-set-variable '+config/org-directory (expand-file-name "Sync/org" (getenv "HOME"))))

  1: (use-package org
  2:   :commands org-tempo
  3:   :preface
  4:   (if (not +config/org-directory)
  5:       (cond
  6:        ((file-directory-p
  7:          (expand-file-name "Dropbox/org" (getenv "HOME")))
  8:         (setq org-directory (expand-file-name "Dropbox/org" (getenv "HOME"))))
  9:        ((file-directory-p
 10:          (expand-file-name "Sync/org" (getenv "HOME")))
 11:         (setq org-directory (expand-file-name "Sync/org" (getenv "HOME"))))
 12:        ((file-directory-p
 13:          (expand-file-name "Documents/google-drive/org" (getenv "HOME")))
 14:         (setq org-directory (expand-file-name "Documents/google-drive/org" (getenv "HOME")))))
 15:     (customize-set-variable 'org-directory +config/org-directory))
 16:   :hook ((org-mode . org-indent-mode)
 17:          (org-mode . +config/org-prettify-symbols))
 18:   :config
 19:   (with-eval-after-load 'general
 20:     (general-def
 21:       "C-c c" 'org-capture
 22:       "C-c a" 'org-agenda
 23:       "C-c l" 'org-store-link))
 24:   (when(file-directory-p (expand-file-name "braindump/org" org-directory))
 25:     (customize-set-variable '+config/org-roam-directory
 26:                             (expand-file-name "braindump/org" org-directory)))
 27:   (when (file-directory-p (expand-file-name "alexforsale.github.io" org-directory))
 28:     (customize-set-variable '+config/blog-directory
 29:                             (expand-file-name "alexforsale.github.io" org-directory)))
 30:   (modify-syntax-entry ?= "$" org-mode-syntax-table)
 31:   (modify-syntax-entry ?~ "$" org-mode-syntax-table)
 32:   (modify-syntax-entry ?_ "$" org-mode-syntax-table)
 33:   (modify-syntax-entry ?+ "$" org-mode-syntax-table)
 34:   (modify-syntax-entry ?/ "$" org-mode-syntax-table)
 35:   (modify-syntax-entry ?* "$" org-mode-syntax-table)
 36:   (add-to-list 'org-modules 'org-tempo t)
 37:   (add-to-list 'org-structure-template-alist '("sh" . "src sh"))
 38:   (add-to-list 'org-structure-template-alist '("co" . "src conf"))
 39:   (add-to-list 'org-structure-template-alist '("lisp" . "src lisp"))
 40:   (add-to-list 'org-structure-template-alist '("el" . "src emacs-lisp"))
 41:   (add-to-list 'org-structure-template-alist '("sc" . "src scheme"))
 42:   (add-to-list 'org-structure-template-alist '("ts" . "src typescript"))
 43:   (add-to-list 'org-structure-template-alist '("py" . "src python"))
 44:   (add-to-list 'org-structure-template-alist '("go" . "src go"))
 45:   (add-to-list 'org-structure-template-alist '("yaml" . "src yaml"))
 46:   (add-to-list 'org-structure-template-alist '("js" . "src js"))
 47:   (add-to-list 'org-structure-template-alist '("json" . "src json"))
 48:   (add-to-list 'org-structure-template-alist '("n" . "note"))
 49:   (org-babel-do-load-languages
 50:    'org-babel-load-languages
 51:    '((emacs-lisp . t)
 52:      (awk . t)
 53:      (C . t)
 54:      (css . t)
 55:      (calc . t)
 56:      (ditaa . t) ; needs the `ditaa' package
 57:      (diagrams . t) ; `ob-diagrams'
 58:      (dot . t ) ; `graphviz'
 59:      (screen . t)
 60:      (haskell . t)
 61:      (java . t)
 62:      (js . t)
 63:      (latex . t)
 64:      (lisp . t)
 65:      (lua . t)
 66:      (org . t)
 67:      (perl . t)
 68:      (plantuml . t)
 69:      (python .t)
 70:      (ruby . t)
 71:      (shell . t)
 72:      (sed . t)
 73:      (scheme . t)
 74:      (sql . t)
 75:      (sqlite . t)))
 76:   (setq-default org-use-sub-superscripts '{})
 77:   (add-to-list 'org-babel-tangle-lang-exts '("js" . "js"))
 78:   (defun +config/org-prettify-symbols ()
 79:     (push '("[ ]" . "☐") prettify-symbols-alist)
 80:     (push '("[X]" . "☑") prettify-symbols-alist)
 81:     (prettify-symbols-mode))
 82:   :custom
 83:   (org-replace-disputed-keys t)
 84:   (org-indirect-buffer-display 'current-window)
 85:   (org-enforce-todo-dependencies t)
 86:   (org-fontify-whole-heading-line t)
 87:   (org-return-follows-link t)
 88:   (org-mouse-1-follows-link t)
 89:   (org-image-actual-width nil)
 90:   (org-adapt-indentation nil)
 91:   (org-startup-indented t)
 92:   (org-link-descriptive nil)
 93:   (org-log-done 'time)
 94:   (org-log-refile 'time)
 95:   (org-log-redeadline 'time)
 96:   (org-log-reschedule 'time)
 97:   (org-log-into-drawer t)
 98:   (org-clone-delete-id t)
 99:   (org-default-notes-file (expand-file-name "notes.org" org-directory))
100:   (org-insert-heading-respect-content nil)
101:   (org-pretty-entities t)
102:   (org-use-property-inheritance t)
103:   (org-priority-highest ?A)
104:   (org-priority-lowest ?D)
105:   (org-priority-default ?B)
106:   (org-todo-keywords
107:    '((sequence
108:       "TODO(t!)"  ; A task that needs doing & is ready to do
109:       "NEXT(n!)"  ; Tasks that can be delayed
110:       "PROG(p!)"  ; A task that is in progress
111:       "WAIT(w!)"  ; Something external is holding up this task
112:       "HOLD(h!)"  ; This task is paused/on hold because of me
113:       "|"
114:       "DONE(d!)"  ; Task successfully completed
115:       "DELEGATED(l!)" ; Task is delegated
116:       "KILL(k!)") ; Task was cancelled, aborted or is no longer applicable
117:      ))
118:   (org-todo-keyword-faces
119:    '(("PROG" . (:foreground "#5e81ac" :weight bold))
120:      ("WAIT" . (:foreground "#ebcb8b" :weight bold))
121:      ("HOLD" . (:foreground "#d08770" :weight bold))
122:      ("NEXT" . (:foreground "#81a1c1" :weight bold))
123:      ("DELEGATED" . "#8fbcbb")
124:      ("KILL" . "#a3be8c")))
125:   ;; (org-todo-state-tags-triggers
126:   ;;  '(("KILL" ("killed" . t) ("Archives" . t))
127:   ;;    ("WAIT" ("wait" . t))
128:   ;;    ("HOLD" ("wait") ("hold" . t))
129:   ;;    (done ("wait") ("hold"))
130:   ;;    ("PROG" ("active" . t))
131:   ;;    ("TODO" ("wait") ("killed") ("hold"))
132:   ;;    ("NEXT" ("wait") ("killed") ("hold"))
133:   ;;    ("PROG" ("wait") ("killed") ("hold"))
134:   ;;    ("DONE" ("wait") ("killed") ("hold"))))
135:   )

1: (use-package org-src
2:   :hook (org-src-mode . (lambda () (outline-minor-mode -1)))
3:   :custom
4:   (org-src-preserve-indentation nil)
5:   (org-edit-src-content-indentation 0))

1: (use-package org-faces
2:   :custom
3:   (org-fontify-quote-and-verse-blocks t))

1: (use-package org-compat
2:   :custom
3:   (org-imenu-depth 6))

1: (use-package org-archive
2:   :after org
3:   :custom
4:   (org-archive-tag "archive")
5:   (org-archive-subtree-save-file-p t)
6:   (org-archive-mark-done t)
7:   (org-archive-reversed-order t)
8:   (org-archive-location (concat (expand-file-name "archives.org" org-directory) "::datetree/* Archived Tasks")))

 1: (use-package org-capture
 2:   :after org
 3:   :demand t
 4:   :config
 5:   (org-capture-put :kill-buffer t)
 6:   (setq org-capture-templates ;; this is the default from `doom'.
 7:         `(("i" "Inbox - Goes Here first!" entry
 8:            (file+headline ,(expand-file-name "inbox.org" org-directory) "Inbox")
 9:            "** %?\n%i\n%a" :prepend t)
10:           ("r" "Request" entry (file+headline ,(expand-file-name "inbox.org" org-directory) "Request")
11:            (file ,(expand-file-name "request.template" org-directory)))
12:           ("l" "Links" entry
13:            (file+headline ,(expand-file-name "links.org" org-directory) "Links")))))

 1: (use-package org-refile
 2:   :after org
 3:   :hook (org-after-refile-insert . save-buffer)
 4:   :custom
 5:   (org-refile-targets
 6:    `((,(expand-file-name "projects.org" org-directory) :maxlevel . 1)
 7:      (,(expand-file-name "routines.org" org-directory) :maxlevel . 1)
 8:      (,(expand-file-name "personal.org" org-directory) :maxlevel . 1)))
 9:   (org-refile-use-outline-path 'file)
10:   (org-outline-path-complete-in-steps nil))

1: (use-package org-num
2:   :after org
3:   :custom
4:   (org-num-face '(:inherit org-special-keyword :underline nil :weight bold))
5:   (org-num-skip-tags '("noexport" "nonum")))

1: (use-package org-fold
2:   :after org org-contrib
3:   :custom
4:   (org-catch-invisible-edits 'smart))

1: (use-package org-id
2:   :after org
3:   :custom
4:   (org-id-locations-file-relative t)
5:   (org-id-link-to-org-use-id 'create-if-interactive-and-no-custom-id))

 1: (use-package org-crypt ; built-in
 2:   :after org
 3:   :commands org-encrypt-entries org-encrypt-entry org-decrypt-entries org-decrypt-entry
 4:   ;;:hook (org-reveal-start . org-decrypt-entry)
 5:   :preface
 6:   ;; org-crypt falls back to CRYPTKEY property then `epa-file-encrypt-to', which
 7:   ;; is a better default than the empty string `org-crypt-key' defaults to.
 8:   (defvar org-crypt-key nil)
 9:   (with-eval-after-load 'org
10:     (add-to-list 'org-tags-exclude-from-inheritance "crypt")))

 1: (use-package org-attach
 2:   :after org
 3:   :commands (org-attach-new
 4:              org-attach-open
 5:              org-attach-open-in-emacs
 6:              org-attach-reveal-in-emacs
 7:              org-attach-url
 8:              org-attach-set-directory
 9:              org-attach-sync)
10:   :config
11:   (unless org-attach-id-dir
12:     (setq-default org-attach-id-dir (expand-file-name ".attach/" org-directory)))
13:   (with-eval-after-load 'projectile
14:     (add-to-list 'projectile-globally-ignored-directories org-attach-id-dir))
15:   :custom
16:   (org-attach-auto-tag nil))

 1: (use-package org-clock
 2:   :after org
 3:   :commands org-clock-save
 4:   :hook (kill-emacs . org-clock-save)
 5:   :custom
 6:   (org-persist 'history)
 7:   (org-clock-in-resume t)
 8:   (org-clock-out-remove-zero-time-clocks t)
 9:   (org-clock-history-length 20)
10:   (org-show-notification-handler "notify-send")
11:   (org-agenda-skip-scheduled-if-deadline-is-shown t)
12:   :config
13:   (org-clock-persistence-insinuate))

 1: (use-package org-agenda
 2:   :after org
 3:   :custom
 4:   (org-agenda-files (list (concat org-directory "/")))
 5:   (org-agenda-file-regexp "\\`[^.].*\\.org\\|[0-9]+$\\'")
 6:   (org-agenda-include-inactive-timestamps t)
 7:   (org-agenda-window-setup 'only-window)
 8:   (org-stuck-projects '("+{project*}-killed-Archives/-DONE-KILL-DELEGATED"
 9:                         ("TODO" "NEXT" "IDEA" "PROG")
10:                         nil ""))
11:   :config
12:   (with-eval-after-load 'evil
13:     (evil-set-initial-state #'org-agenda-mode 'normal))
14:   (setq org-agenda-custom-commands
15:         `(("w" "Work Agenda and all TODOs"
16:            ((agenda ""
17:                     ((org-agenda-span 1)
18:                      (org-agenda-start-on-weekday t)
19:                      (org-agenda-block-separator nil)
20:                      (org-agenda-use-time-grid t)
21:                      (org-agenda-day-face-function (lambda (date) 'org-agenda-date))
22:                      (org-agenda-format-date "%A %-e %B %Y")
23:                      (org-agenda-overriding-header "\nToday\n")))
24:             (tags-todo "TODO=\"TODO\"|\"NEXT\""
25:                        ((org-agenda-block-separator nil)
26:                         (org-agenda-skip-function '(org-agenda-skip-if-todo 'nottodo 'done))
27:                         (org-agenda-use-time-grid nil)
28:                         (org-agenda-overriding-header "\nIncomplete\n")))
29:             (agenda ""
30:                     ((org-agenda-span 7)
31:                      (org-agenda-start-on-weekday 1)
32:                      (org-agenda-block-separator nil)
33:                      (org-agenda-use-time-grid nil)
34:                      (org-agenda-overriding-header "\nWeekly\n"))))
35:            ((org-agenda-tag-filter-preset '("-personal" "-home"))))
36:           ("h" "Home Agenda and all personal TODOs"
37:            ((agenda ""
38:                     ((org-agenda-span 1)
39:                      (org-agenda-start-on-weekday t)
40:                      (org-agenda-block-separator nil)
41:                      (org-agenda-use-time-grid t)
42:                      (org-agenda-day-face-function (lambda (date) 'org-agenda-date))
43:                      (org-agenda-format-date "%A %-e %B %Y")
44:                      (org-agenda-overriding-header "\nToday\n")))
45:             (tags-todo "TODO=\"TODO\"|\"NEXT\""
46:                        ((org-agenda-block-separator nil)
47:                         (org-agenda-skip-function '(org-agenda-skip-if-todo 'nottodo 'done))
48:                         (org-agenda-use-time-grid nil)
49:                         (org-agenda-overriding-header "\nIncomplete\n")))
50:             (agenda ""
51:                     ((org-agenda-span 7)
52:                      (org-agenda-start-on-weekday 1)
53:                      (org-agenda-block-separator nil)
54:                      (org-agenda-use-time-grid nil)
55:                      (org-agenda-overriding-header "\nWeekly\n"))))
56:            ((org-agenda-tag-filter-preset '("+personal"))))))
57:   :general
58:   (general-nvmap
59:     :keymaps 'org-agenda-mode-map
60:     "q" 'org-agenda-quit
61:     "Q" 'org-agenda-quit
62:     "RET" 'org-agenda-switch-to
63:     "TAB" 'org-agenda-switch-to
64:     "t" 'org-agenda-todo
65:     "gr" 'org-agenda-redo-all))

1: (use-package org-timer
2:   :config
3:   (setq org-timer-format "Timer :: %s"))

1: (use-package org-eldoc
2:   :after org org-contrib
3:   :config
4:   (puthash "org" #'ignore org-eldoc-local-functions-cache)
5:   (puthash "plantuml" #'ignore org-eldoc-local-functions-cache)
6:   (puthash "python" #'python-eldoc-function org-eldoc-local-functions-cache)
7:   :custom
8:   (org-eldoc-breadcrumb-separator " → "))

1: (use-package org-contrib
2:   :ensure t
3:   :after org)

 1: (use-package org-superstar
 2:   :ensure
 3:   :defer t
 4:   :hook (org-mode . org-superstar-mode)
 5:   :custom
 6:   (org-superstar-leading-bullet ?\s)
 7:   (org-superstar-leading-fallback ?\s)
 8:   (org-hide-leading-stars nil)
 9:   (org-indent-mode-turns-on-hiding-stars nil)
10:   (org-superstar-todo-bullet-alist
11:    '(("TODO" . 9744)
12:      ("[ ]"  . 9744)
13:      ("DONE" . 9745)
14:      ("[X]"  . 9745)))
15:   :config
16:   (org-superstar-configure-like-org-bullets))

(use-package org-modern
  :ensure t
  :demand t
  :config
  (setq
   ;; Edit settings
   org-auto-align-tags nil
   org-tags-column 0
   org-fold-catch-invisible-edits 'show-and-error
   org-special-ctrl-a/e t
   org-insert-heading-respect-content t

   ;; Org styling, hide markup etc.
   org-hide-emphasis-markers nil ; set to nil for easier editing
   org-ellipsis "…"
   ;; Agenda styling
   org-agenda-tags-column 0
   org-agenda-block-separator ?─
   org-agenda-time-grid
   '((daily today require-timed)
     (800 1000 1200 1400 1600 1800 2000)
     " ┄┄┄┄┄ " "┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄")
   org-agenda-current-time-string
   "◀── now ─────────────────────────────────────────────────")
  (global-org-modern-mode))

1: (use-package org-fancy-priorities ; priority icons
2:   :ensure
3:   :defer t
4:   :hook (org-mode . org-fancy-priorities-mode)
5:   :hook (org-agenda-mode . org-fancy-priorities-mode)
6:   :custom
7:   (org-fancy-priorities-list '("⚡" "⬆" "⬇" "☕")))

 1: (use-package toc-org
 2:   :ensure
 3:   :defer t
 4:   :hook ((org-mode markdown-mode) . toc-org-mode)
 5:   :custom
 6:   (toc-org-hrefify-default "gh")
 7:   :general
 8:   (+config/local-leader
 9:     :keymaps 'markdown-mode-map
10:     "C-o" 'toc-org-markdown-follow-thing-at-point))

 1: (use-package ox-pandoc
 2:   :ensure
 3:   :if (executable-find "pandoc")
 4:   :after ox
 5:   :defer t
 6:   :init
 7:   (add-to-list 'org-export-backends 'pandoc)
 8:   :custom
 9:   (org-pandoc-options
10:    '((standalone . t)
11:      (mathjax . t)
12:      (variable . "revealjs-url=https://revealjs.com"))))

 1: (use-package deft
 2:   :ensure
 3:   :defer t
 4:   :after org-roam
 5:   :custom
 6:   (deft-directory org-directory)
 7:   (deft-default-extension "org")
 8:   (deft-recursive t)
 9:   (deft-use-filename-as-title t)
10:   (deft-file-naming-rules
11:    '((noslash . "-")
12:      (nospace . "-")
13:      (case-fn . downcase)))
14:   :config
15:   (setq deft-strip-summary-regexp
16:         (concat "\\("
17:                 "[\n\t]" ;; blank
18:                 "\\|^#\\+[[:alpha:]_]+:.*$" ;; org-mode metadata
19:                 "\\|^:PROPERTIES:\n\\(.+\n\\)+:END:\n" ;; org-roam ID
20:                 "\\|\\[\\[\\(.*\\]\\)" ;; any link
21:                 "\\)"))
22:   (setq deft-strip-title-regexp
23:         (concat "\\("
24:                 "?:^%+"
25:                 "\\|^:PROPERTIES:\n\\(.+\n\\)+:END:\n" ;; org-roam ID
26:                 "\\|^\\TITLE: *"
27:                 "\\|^[#* ]+"
28:                 "\\|-\\*-[[:alpha:]]+-\\*-"
29:                 "\\|^Title:[     ]*"
30:                 "\\|#+$"
31:                 "\\)"))
32:   (setq deft-extensions (list "org"))
33:   (add-hook 'deft-mode-hook #'evil-normalize-keymaps)
34:   (evil-set-initial-state #'deft-mode 'insert)
35:   :general
36:   (general-nvmap
37:     :keymaps 'deft-mode-map
38:     "q" 'evil-quit
39:     "C-j" 'forward-button
40:     "C-k" 'backward-button))

1: (use-package org-pdftools
2:   :ensure
3:   :defer t
4:   :hook (org-mode . org-pdftools-setup-link)
5:   :commands org-pdftools-export)

1: (use-package org-noter
2:   :ensure
3:   :defer t
4:   :after org-pdftools
5:   :custom
6:   (org-noter-auto-save-last-location t)
7:   (org-noter-separate-notes-from-heading t)
8:   :config
9:   (require 'org-noter-pdftools))

 1: (use-package org-noter-pdftools
 2:   :ensure
 3:   :defer t
 4:   :after org-noter
 5:   :config
 6:   ;; Add a function to ensure precise note is inserted
 7:   (defun org-noter-pdftools-insert-precise-note (&optional toggle-no-questions)
 8:     (interactive "P")
 9:     (org-noter--with-valid-session
10:      (let ((org-noter-insert-note-no-questions (if toggle-no-questions
11:                                                    (not org-noter-insert-note-no-questions)
12:                                                  org-noter-insert-note-no-questions))
13:            (org-pdftools-use-isearch-link t)
14:            (org-pdftools-use-freepointer-annot t))
15:        (org-noter-insert-note (org-noter--get-precise-info)))))
16:   ;; fix https://github.com/weirdNox/org-noter/pull/93/commits/f8349ae7575e599f375de1be6be2d0d5de4e6cbf
17:   (defun org-noter-set-start-location (&optional arg)
18:     "When opening a session with this document, go to the current location.
19:     With a prefix ARG, remove start location."
20:     (interactive "P")
21:     (org-noter--with-valid-session
22:      (let ((inhibit-read-only t)
23:            (ast (org-noter--parse-root))
24:            (location (org-noter--doc-approx-location (when (called-interactively-p 'any) 'interactive))))
25:        (with-current-buffer (org-noter--session-notes-buffer session)
26:          (org-with-wide-buffer
27:           (goto-char (org-element-property :begin ast))
28:           (if arg
29:               (org-entry-delete nil org-noter-property-note-location)
30:             (org-entry-put nil org-noter-property-note-location
31:                            (org-noter--pretty-print-location location))))))))
32:   (with-eval-after-load 'pdf-annot
33:     (add-hook 'pdf-annot-activate-handler-functions #'org-noter-pdftools-jump-to-note)))

1: (use-package ox-gfm
2:   :ensure
3:   :defer t
4:   :after org)

 1: (use-package org-download
 2:   :ensure
 3:   :defer t
 4:   :after org
 5:   :hook (dired-mode . org-download-enable)
 6:   :commands
 7:   org-download-dnd
 8:   org-download-yank
 9:   org-download-screenshot
10:   org-download-clipboard
11:   org-download-dnd-base64
12:   :custom
13:   (org-download-method 'directory)
14:   (org-download-timestamp "_%Y%m%d_%H%M%S")
15:   (org-download-screenshot-method (cond ((executable-find "maim")  "maim -s %s")
16:                                         ((executable-find "scrot") "scrot -s %s")
17:                                         ((executable-find "gnome-screenshot") "gnome-screenshot -a -f %s")))
18:   (org-download-heading-lvl nil)
19:   (org-download-abbreviate-filename-function
20:    (lambda (path)
21:      (if (file-in-directory-p path org-download-image-dir)
22:          (file-relative-name path org-download-image-dir)
23:        path)))
24:   :config
25:   (unless org-download-image-dir
26:     (setq org-download-image-dir org-attach-id-dir)))

 1: (use-package org-cliplink
 2:   :ensure
 3:   :after org
 4:   :defer t
 5:   :bind ("C-x p i" . org-cliplink)
 6:   :config
 7:   (require 'org-capture)
 8:   (add-to-list 'org-capture-templates
 9:                `("c" "Cliplink capture task" entry
10:                  (file+olp ,(expand-file-name "links.org" org-directory) "Cliplink")
11:                  "* %? %(org-cliplink-capture)\n\n SCHEDULED: %t\n"
12:                  :empty-lines 1) t))

1: (defun +config/start-hugo-server (args)
2:   "Start hugo server in `+config/blog-dir'."
3:   (interactive (list (transient-args '+config/transient-hugo-server)))
4:   (if (not (executable-find "hugo"))
5:       (message "hugo executable not found")
6:     (let ((default-directory +config/blog-directory)
7:           (command "hugo server"))
8:       (async-shell-command (mapconcat #'identity `(,command ,@args) " ") "*hugo*" "*hugo-error*"))))

1: (defun +config/create-new-blog-post ()
2:   "Create new blog post path."
3:   (interactive)
4:   (let ((name (read-string "Filename: ")))
5:     (concat +config/blog-directory "/content-org/" (format "%s" name) "/" (format "%s.org" name))))

 1: (merge-list-to-list 'org-capture-templates
 2:                     `(("b" "(b)log post" plain
 3:                        (file +config/create-new-blog-post)
 4:                        "\
 5: #+options: ':nil -:nil ^:{} num:nil toc:nil
 6: #+author: %n
 7: #+creator: Emacs %(eval emacs-version) (Org mode %(eval org-version) + ox-hugo)
 8: #+hugo_section: posts
 9: #+hugo_base_dir: ../../
10: #+date: %t
11: #+title: %^{title}
12: #+description: %^{description}
13: #+hugo_draft: true
14: #+hugo_tags: %^{tags}
15: #+hugo_categories: %^{categories}
16: #+hugo_auto_set_lastmod: t
17: #+startup: inlineimages
18: 
19: * %?
20: " :unnarrowed t :jump-to-captured t)))

 1: (use-package transient
 2:   :defer t
 3:   :config
 4:   (transient-define-prefix +config/transient-hugo-server ()
 5:     "Run hugo server with `transient'."
 6:     :man-page "hugo-server"
 7:     ["Options"
 8:      ("q" "quit" transient-quit-all)
 9:      ("-D" "Build drafts" "--buildDrafts")
10:      ("-E" "Build expired" "--buildExpired")
11:      ("-F" "Build future" "--buildFuture")
12:      ("-d" "Debug" "--debug")
13:      ("-B" "Disable build errors on browser" "--disableBrowserError")
14:      ("-c" "Clean destination dir" "--cleanDestinationDir")
15:      ("-e" "Enable Git info" "--enableGitInfo")
16:      ("-F" "enable full re-renders on changes" "--disableFastRender")
17:      ("-f" "Force sync static files" "--forceSyncStatic")
18:      ("-g" "enable to run some cleanup tasks" "--gc")
19:      ("-m" "Minify any supported output format" "--minify")
20:      ("-C" "No chmod" "--noChmod")
21:      ("-T" "Don't sync modification time of files" "--noTimes")
22:      ("-I" "Print missing translation" "--printI18nWarnings")
23:      ("-M" "Print memory usage" "--printMemoryUsage")
24:      ("-P" "Print warning on duplicate target path" "--printPathWarnings")
25:      ("-q" "Quiet" "--quiet")
26:      ("-v" "Verbose" "--verbose")
27:      ("-w" "Watch filesystem for changes" "--watch")]
28:     ["Action"
29:      ("s" "hugo server" +config/start-hugo-server)]))

 1: (use-package ox-hugo
 2:   :defer t
 3:   :ensure
 4:   :hook (org-hugo-auto-export-mode . +config/ox-hugo-transient-keybinding)
 5:   :general
 6:   (defun +config/ox-hugo-transient-keybinding ()
 7:     (+config/local-leader
 8:       :keymaps 'org-mode-map
 9:       "h" '(:ignore t :wk "hugo")
10:       "hs" '+config/transient-hugo-server)))

  1: (use-package org-roam
  2:   :ensure
  3:   :defer t
  4:   :commands (org-roam-node-find)
  5:   :custom
  6:   (org-roam-completion-everywhere t)
  7:   :config
  8:   (if (not +config/org-roam-directory)
  9:       (customize-set-variable 'org-roam-directory (expand-file-name "roam" org-directory))
 10:     (customize-set-variable 'org-roam-directory +config/org-roam-directory))
 11:   (org-roam-db-autosync-mode)
 12:   (add-to-list 'display-buffer-alist
 13:                '("\\*org-roam\\*"
 14:                  (display-buffer-in-direction)
 15:                  (direction . right)
 16:                  (window-width . 0.33)
 17:                  (window-height . fit-window-to-buffer)))
 18:   (unless +config/org-roam-directory
 19:     (setq org-roam-db-location
 20:           (expand-file-name "org-roam.db"
 21:                             (or (getenv "XDG_DATA_HOME")
 22:                                 (expand-file-name ".local/share"
 23:                                                   (getenv "HOME"))))))
 24:   (when +config/org-roam-directory
 25:     (setq org-roam-capture-templates
 26:           `(("o" "others" plain "%?"
 27:              :target
 28:              (file+head ,(expand-file-name "%<%Y%m%d%H%M%S>-${slug}.org" org-roam-directory) "
 29: #+title: ${title}
 30: #+author: %n
 31: #+description: %^{description}
 32: #+date: %T
 33: #+hugo_base_dir: ..
 34: #+hugo_section: posts
 35: #+hugo_categories: others
 36: #+hugo_tags: %^{tag}
 37: ")
 38:              :unnarrowed t)
 39:             ("t" "tech" plain "%?"
 40:              :target
 41:              (file+head ,(expand-file-name "%<%Y%m%d%H%M%S>-${slug}.org" org-roam-directory) "
 42: #+title: ${title}
 43: #+author: %n
 44: #+description: %^{description}
 45: #+date: %T
 46: #+hugo_base_dir: ..
 47: #+hugo_section: posts
 48: #+hugo_categories: tech
 49: #+hugo_tags: %^{tag}
 50: ")
 51:              :unnarrowed t)
 52:             ("p" "programming" plain "%?"
 53:              :target
 54:              (file+head ,(expand-file-name "%<%Y%m%d%H%M%S>-${slug}.org" org-roam-directory) "
 55: #+title: ${title}
 56: #+author: %n
 57: #+description: %^{description}
 58: #+date: %T
 59: #+hugo_base_dir: ..
 60: #+hugo_section: posts
 61: #+hugo_categories: programming
 62: #+hugo_tags: %^{tag}
 63: ")
 64:              :unnarrowed t)
 65:             )
 66:           ))
 67:   (setq org-roam-completion-everywhere t)
 68:   (require 'org-roam-protocol)
 69:   ;; TODO: implement `hugo' layouts for reference.
 70:   (setq org-roam-capture-ref-templates
 71:         `(("r" "ref" plain "%?" :target
 72:            (file+head ,(expand-file-name "%<%Y%m%d%H%M%S>-${slug}.org" org-roam-directory) "
 73: #+title: ${title}
 74: #+author: %n
 75: #+description: %^{description}
 76: #+date: %T
 77: #+hugo_base_dir: ..
 78: #+hugo_section: posts
 79: #+hugo_categories: reference
 80: #+hugo_tags: %^{tag}
 81: ") :unnarrowed t)))
 82:   (require 'org-roam-dailies)
 83:   (setq org-roam-dailies-directory "daily/"
 84:         org-roam-dailies-capture-templates
 85:         '(("d" "default" entry "* %?" :target
 86:            (file+head "%<%Y-%m-%d>.org" "
 87: #+title: %<%Y-%m-%d>
 88: #+author: %n
 89: #+description: %^{description}
 90: #+date: %T
 91: #+hugo_base_dir: ../..
 92: #+hugo_section: posts
 93: #+hugo_categories: daily
 94: #+hugo_tags: %^{tag}
 95: "))))
 96:   (require 'org-roam-export)
 97:   (org-roam-setup)
 98:   :general
 99:   (+config/leader-notes
100:     "r" '(:ignore t :wk "roam")
101:     "rb" 'org-roam-buffer-toggle
102:     "rc" 'org-roam-capture
103:     "rd" '(:ignore t :wk "dailies")
104:     "rdc" '(:ignore t :wk "capture day")
105:     "rdcd" 'org-roam-dailies-capture-date
106:     "rdct" 'org-roam-dailies-capture-today
107:     "rdg" '(:ignore t :wk "goto")
108:     "rdgt" 'org-roam-dailies-goto-today
109:     "rdgd" 'org-roam-dailies-goto-date
110:     "rdgp" 'org-roam-dailies-goto-previous-note
111:     "rdgy" 'org-roam-dailies-goto-yesterday
112:     "rdcy" 'org-roam-dailies-capture-yesterday
113:     "ri" 'org-roam-node-insert
114:     "rf" 'org-roam-node-find
115:     "rg" 'org-roam-graph
116:     "rr" '(:ignore t :wk "ref")
117:     "rra" 'org-roam-ref-add
118:     "rrf" 'org-roam-ref-find
119:     "rrr" 'org-roam-ref-remove))