sqrtminusone/dotfiles
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/dotfiles.git synced 2025-12-10 19:23:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: switch to vertico

Browse source
This commit is contained in:
Pavel Korytov 2024-09-07 00:33:04 +03:00
parent 5aa893e508
commit dff499c668
4 changed files with 471 additions and 383 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
.emacs.d/desktop.el
View file

@ -321,34 +321,19 @@ DIR is either 'left or 'right."
(advice-add #'posframe--create-posframe :after #'my/setup-posframe) (advice-add #'posframe--create-posframe :after #'my/setup-posframe)
(advice-add #'ivy-posframe-cleanup :after #'my/restore-posframe)) (advice-add #'ivy-posframe-cleanup :after #'my/restore-posframe))
(defun my/counsel-linux-app-format-function (name comment _exec) (use-package app-launcher
(format "% -45s%s" :straight '(app-launcher :host github :repo "SebastienWae/app-launcher"))
(propertize
(ivy--truncate-string name 45)
'face 'counsel-application-name)
(if comment
(concat ": " (ivy--truncate-string comment 100))
"")))
(setq counsel-linux-app-format-function #'my/counsel-linux-app-format-function) (use-package password-store-completion
:straight (:host github :repo "SqrtMinusOne/password-store-completion")
(use-package password-store-ivy :after (exwm)
:straight (:host github :repo "SqrtMinusOne/password-store-ivy") :config
:after (exwm)) (require 'password-store-embark)
(password-store-embark-mode))
(use-package emojify (use-package emojify
:straight t) :straight t)
(defun my/emojify-type ()
"Type an emoji."
(interactive)
(let ((emoji (emojify-completing-read "Type emoji: ")))
(kill-new emoji)
(password-store-ivy--async-commands
(list
(password-store-ivy--get-wait-command 10)
"xdotool key Shift+Insert"))))
(defun my/exwm-quit () (defun my/exwm-quit ()
(interactive) (interactive)
(when (or (not (eq (selected-window) (next-window))) (when (or (not (eq (selected-window) (next-window)))
@ -629,7 +614,7 @@ _d_: Discord
"<print>" (my/app-command "flameshot gui") "<print>" (my/app-command "flameshot gui")
"<mode-line> s-<mouse-4>" #'perspective-exwm-cycle-all-buffers-backward "<mode-line> s-<mouse-4>" #'perspective-exwm-cycle-all-buffers-backward
"<mode-line> s-<mouse-5>" #'perspective-exwm-cycle-all-buffers-forward "<mode-line> s-<mouse-5>" #'perspective-exwm-cycle-all-buffers-forward
"M-x" #'counsel-M-x "M-x" #'execute-extended-command
"M-SPC" (general-key "SPC")) "M-SPC" (general-key "SPC"))
(setq exwm-input-simulation-keys `((,(kbd "M-w") . ,(kbd "C-w")) (setq exwm-input-simulation-keys `((,(kbd "M-w") . ,(kbd "C-w"))
(,(kbd "M-c") . ,(kbd "C-c")))) (,(kbd "M-c") . ,(kbd "C-c"))))
@ -671,17 +656,17 @@ _d_: Discord
(,(kbd "s-.") . persp-next) (,(kbd "s-.") . persp-next)
;; Switch buffers ;; Switch buffers
(,(kbd "s-e") . persp-ivy-switch-buffer) (,(kbd "s-e") . persp-switch-to-buffer*)
(,(kbd "s-E") . my/persp-ivy-switch-buffer-other-window) ;; (,(kbd "s-E") . my/persp-ivy-switch-buffer-other-window)
;; Resize windows ;; Resize windows
(,(kbd "s-r") . my/exwm-resize-hydra/body) (,(kbd "s-r") . my/exwm-resize-hydra/body)
;; Apps & stuff ;; Apps & stuff
(,(kbd "s-p") . counsel-linux-app) (,(kbd "s-p") . app-launcher-run-app)
(,(kbd "s-P") . async-shell-command) (,(kbd "s-P") . async-shell-command)
(,(kbd "s-;") . my/exwm-apps-hydra/body) (,(kbd "s-;") . my/exwm-apps-hydra/body)
(,(kbd "s--") . password-store-ivy) (,(kbd "s--") . password-store-completion)
(,(kbd "s-=") . my/emojify-type) (,(kbd "s-=") . my/emojify-type)
(,(kbd "s-i") . ,(my/app-command "copyq menu")) (,(kbd "s-i") . ,(my/app-command "copyq menu"))

337
.emacs.d/init.el
View file

@ -230,7 +230,7 @@
:after evil :after evil
:config :config
(evil-collection-init (evil-collection-init
'(eww devdocs proced emms pass calendar dired ivy debug guix calc '(eww devdocs proced emms pass calendar dired debug guix calc
docker ibuffer geiser pdf info elfeed edebug bookmark company docker ibuffer geiser pdf info elfeed edebug bookmark company
vterm flycheck profiler cider explain-pause-mode notmuch custom vterm flycheck profiler cider explain-pause-mode notmuch custom
xref eshell helpful compile comint git-timemachine magit prodigy xref eshell helpful compile comint git-timemachine magit prodigy
@ -345,7 +345,8 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
"l" 'next-buffer "l" 'next-buffer
"h" 'previous-buffer "h" 'previous-buffer
"k" 'kill-buffer "k" 'kill-buffer
"b" 'persp-ivy-switch-buffer ;; "b" 'persp-ivy-switch-buffer
"b" #'persp-switch-to-buffer*
"r" 'revert-buffer "r" 'revert-buffer
"u" 'ibuffer) "u" 'ibuffer)
@ -620,16 +621,15 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
:straight t :straight t
:config :config
(projectile-mode +1) (projectile-mode +1)
(setq projectile-project-search-path '("~/Code" "~/Documents"))) (setq projectile-project-search-path '("~/Code" "~/Documents"))
(general-define-key
(use-package counsel-projectile :keymaps 'projectile-command-map
:after (counsel projectile) "b" #'consult-project-buffer))
:straight t)
(my-leader-def (my-leader-def
"p" '(:keymap projectile-command-map :which-key "projectile")) "p" '(:keymap projectile-command-map :which-key "projectile"))
(general-nmap "C-p" 'counsel-projectile-find-file) (general-nmap "C-p" #'projectile-find-file)
(use-package magit (use-package magit
:straight t :straight t
@ -788,7 +788,7 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
"o" #'point-to-register "o" #'point-to-register
"c" #'my/register-clear "c" #'my/register-clear
"r" #'jump-to-register "r" #'jump-to-register
"R" #'counsel-register "R" #'consult-register
"w" #'window-configuration-to-register) "w" #'window-configuration-to-register)
(defun my/push-mark-no-activate () (defun my/push-mark-no-activate ()
@ -802,22 +802,10 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
(interactive) (interactive)
(setq mark-ring nil)) (setq mark-ring nil))
(defun my/counsel-global-mark-ring ()
"Browse `mark-ring' interactively.
Obeys `widen-automatically', which see."
(interactive)
(let* ((counsel--mark-ring-calling-point (point))
(marks (copy-sequence global-mark-ring))
(marks (delete-dups marks))
(candidates (counsel-mark--get-candidates marks)))
(if candidates
(counsel-mark--ivy-read "Mark: " candidates 'my/counsel-global-mark-ring)
(message "Mark ring is empty"))))
(my-leader-def (my-leader-def
:infix "g" :infix "g"
"g" #'counsel-mark-ring "G" #'consult-global-mark
"G" #'my/counsel-global-mark-ring "g" #'consult-mark
"C" #'my/mark-ring-clear "C" #'my/mark-ring-clear
"m" #'my/push-mark-no-activate) "m" #'my/push-mark-no-activate)
@ -841,104 +829,163 @@ Obeys `widen-automatically', which see."
:straight t :straight t
:commands (ace-link-info ace-link-help ace-link-woman ace-link-eww)) :commands (ace-link-info ace-link-help ace-link-woman ace-link-eww))
(use-package ivy (use-package vertico
:straight t :straight t
:config :config
(setq ivy-use-virtual-buffers t) (setq enable-recursive-minibuffers t)
(ivy-mode)) (general-define-key
:keymaps '(vertico-map)
"M-j" #'vertico-next
"M-k" #'vertico-previous
"TAB" #'minibuffer-complete)
(vertico-mode))
(use-package counsel (defun crm-indicator (args)
:straight t (cons (format "[CRM%s] %s"
:after ivy (replace-regexp-in-string
"\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" ""
crm-separator)
(car args))
(cdr args)))
(with-eval-after-load 'crm
(advice-add #'completing-read-multiple :filter-args #'crm-indicator))
(use-package savehist
:init
(savehist-mode))
(use-package vertico-directory
:after (vertico)
:config :config
(counsel-mode)) (general-define-key
:keymaps '(vertico-map)
"RET" #'vertico-directory-enter
"DEL" #'vertico-directory-delete-char)
(add-hook 'rfn-eshadow-update-overlay-hook #'vertico-directory-tidy))
(use-package swiper (use-package vertico-grid
:defer t :after (vertico))
(defun my/sort-directories-first (files)
(setq files (vertico-sort-alpha files))
(nconc (seq-filter (lambda (x) (string-suffix-p "/" x)) files)
(seq-remove (lambda (x) (string-suffix-p "/" x)) files)))
(use-package vertico-multiform
:after vertico
:config
(vertico-multiform-mode)
(general-define-key
:keymap 'vertico-multiform-map
"M-b" #'vertico-multiform-buffer
"M-g" #'vertico-multiform-grid)
(setq vertico-multiform-categories
'((file (vertico-sort-function . my/sort-directories-first))
(password-store-pass grid)))
(setq vertico-multiform-commands
'((eshell-atuin-history (vertico-sort-function . nil))
(my/index-nav (vertico-sort-function . nil))
(org-ql-view (vertico-sort-function . nil))
(my/consult-line (vertico-sort-function . nil)))))
(use-package orderless
:straight t
:config
(setq completion-styles '(orderless basic))
(setq completion-category-defaults nil)
(setq completion-category-overrides
'((file (styles partial-completion))))
(setq orderless-matching-styles
'(orderless-literal orderless-initialism orderless-regexp)))
(defun company-completion-styles (capf-fn &rest args)
(let ((completion-styles '(basic partial-completion)))
(apply capf-fn args)))
(with-eval-after-load 'company
(advice-add 'company-capf :around #'company-completion-styles))
(use-package consult
:straight t) :straight t)
(use-package ivy-rich (use-package marginalia
:straight t :straight t
:after ivy
:config :config
(ivy-rich-mode 1) (marginalia-mode)
(setcdr (assq t ivy-format-functions-alist) #'ivy-format-function-line)) (push '(projectile-find-file . file)
marginalia-command-categories))
(use-package ivy-prescient (use-package embark
:straight t :straight t
:after counsel :commands (embark-act embark-dwim embark-bindings)
:init
(general-define-key
"M-e" #'embark-act))
(use-package embark-consult
:straight t
:after (embark)
:config :config
(ivy-prescient-mode +1) (add-hook 'embark-collect-mode #'consult-preview-at-point-mode))
(setq ivy-prescient-retain-classic-highlighting t)
(prescient-persist-mode 1) (defun embark-which-key-indicator ()
(setq ivy-prescient-sort-commands "An embark indicator that displays keymaps using which-key.
'(:not swiper The which-key help message will show the type and value of the
swiper-isearch current target followed by an ellipsis if there are further
ivy-switch-buffer targets."
;; ivy-resume (lambda (&optional keymap targets prefix)
;; ivy--restore-session (if (null keymap)
lsp-ivy-workspace-symbol (which-key--hide-popup-ignore-command)
dap-switch-stack-frame (which-key--show-keymap
my/dap-switch-stack-frame (if (eq (plist-get (car targets) :type) 'embark-become)
dap-switch-session "Become"
dap-switch-thread (format "Act on %s '%s'%s"
counsel-grep (plist-get (car targets) :type)
;; counsel-find-file (embark--truncate-target (plist-get (car targets) :target))
counsel-git-grep (if (cdr targets) "…" "")))
counsel-rg (if prefix
counsel-ag (pcase (lookup-key keymap prefix 'accept-default)
counsel-ack ((and (pred keymapp) km) km)
counsel-fzf (_ (key-binding prefix 'accept-default)))
counsel-pt keymap)
counsel-imenu nil nil t (lambda (binding)
counsel-yank-pop (not (string-suffix-p "-argument" (cdr binding))))))))
counsel-recentf
counsel-buffer-or-recentf (defun embark-hide-which-key-indicator (fn &rest args)
proced-filter-interactive "Hide the which-key indicator immediately when using the completing-read prompter."
proced-sort-interactive (which-key--hide-popup-ignore-command)
perspective-exwm-switch-perspective (let ((embark-indicators
my/persp-ivy-switch-buffer-other-window (remq #'embark-which-key-indicator embark-indicators)))
lsp-execute-code-action (apply fn args)))
dired-recent-open
org-ql-view (with-eval-after-load 'embark
my/index-nav (advice-add #'embark-completing-read-prompter
org-set-effort :around #'embark-hide-which-key-indicator)
eshell-atuin-history)) (setq embark-indicators (delq #'embark-mixed-indicator embark-indicators))
;; Do not use prescient in find-file (push #'embark-which-key-indicator embark-indicators))
(ivy--alist-set 'ivy-sort-functions-alist #'read-file-name-internal #'ivy-sort-file-function-default))
(my-leader-def (my-leader-def
:infix "f" :infix "f"
"" '(:which-key "various completions")' "" '(:which-key "various completions")'
;; "b" 'counsel-switch-buffer "b" #'persp-switch-to-buffer*
"b" 'persp-ivy-switch-buffer
"e" 'micromamba-activate "e" 'micromamba-activate
"f" 'project-find-file "f" 'project-find-file
"c" 'counsel-yank-pop "c" 'consult-yank-pop
"a" 'counsel-rg "a" 'consult-ripgrep
"d" 'deadgrep "d" 'deadgrep)
"A" 'counsel-ag)
(general-define-key (general-define-key
:states '(insert normal) :states '(insert normal)
"C-y" 'counsel-yank-pop) "C-y" 'consult-yank-pop)
(defun my/swiper-isearch () (defun my/consult-line ()
(interactive) (interactive)
(if current-prefix-arg (if current-prefix-arg
(swiper-all) (call-interactively #'consult-line-multi)
(swiper-isearch))) (consult-line nil t)))
(my-leader-def "SPC SPC" 'ivy-resume) ;; (my-leader-def "SPC SPC" 'ivy-resume)
(my-leader-def "s" 'my/swiper-isearch) (my-leader-def "s" 'my/consult-line)
(general-define-key
:keymaps '(ivy-minibuffer-map swiper-map)
"M-j" 'ivy-next-line
"M-k" 'ivy-previous-line
"<C-return>" 'ivy-call
"M-RET" 'ivy-immediate-done
[escape] 'minibuffer-keyboard-quit)
(use-package company (use-package company
:straight t :straight t
@ -1399,8 +1446,7 @@ Obeys `widen-automatically', which see."
"//" "///" "/*" "*/" "/=" "//=" "/==" "@_" "__")) "//" "///" "/*" "*/" "/=" "//=" "/==" "@_" "__"))
(global-ligature-mode t)) (global-ligature-mode t))
(use-package all-the-icons (use-package nerd-icons
:if (display-graphic-p)
:straight t) :straight t)
(use-package highlight-indent-guides (use-package highlight-indent-guides
@ -1521,8 +1567,8 @@ Obeys `widen-automatically', which see."
"gN" 'persp-kill) "gN" 'persp-kill)
(general-define-key (general-define-key
:keymaps 'perspective-map :keymaps 'perspective-map
"b" 'persp-ivy-switch-buffer "b" 'persp-switch-to-buffer
"x" 'persp-ivy-switch-buffer "x" 'persp-switch-to-buffer*
"u" 'persp-ibuffer)) "u" 'persp-ibuffer))
(defun my/persp-move-window-and-switch () (defun my/persp-move-window-and-switch ()
@ -1539,19 +1585,6 @@ Obeys `widen-automatically', which see."
(persp-add-buffer (buffer-name buffer)) (persp-add-buffer (buffer-name buffer))
(switch-to-buffer buffer))) (switch-to-buffer buffer)))
(defun my/persp-ivy-switch-buffer-other-window (arg)
(interactive "P")
(declare-function ivy-switch-buffer-other-window "ivy.el")
(persp--switch-buffer-ivy-counsel-helper
arg
(lambda ()
(ivy-read "Switch to buffer in other window: " #'internal-complete-buffer
:keymap ivy-switch-buffer-map
:preselect (buffer-name (other-buffer (current-buffer)))
:action #'ivy--switch-buffer-other-window-action
:matcher #'ivy--switch-buffer-matcher
:caller 'ivy-switch-buffer))))
(with-eval-after-load 'perspective (with-eval-after-load 'perspective
(general-define-key (general-define-key
:keymaps 'perspective-map :keymaps 'perspective-map
@ -4020,7 +4053,7 @@ TYPE may be `ts', `ts-active', `ts-inactive', `clocked', or
(set-keymap-parent map crm-local-completion-map) (set-keymap-parent map crm-local-completion-map)
(define-key map " " 'self-insert-command) (define-key map " " 'self-insert-command)
map)) map))
(ivy-prescient-sort-commands nil) (vertico-sort-function nil)
(categories (completing-read-multiple (categories (completing-read-multiple
"Categories: " "Categories: "
'("TEACH" "EDU" "JOB" "LIFE" "COMP")))) '("TEACH" "EDU" "JOB" "LIFE" "COMP"))))
@ -4615,7 +4648,7 @@ KEYS is a list of cons cells like (<label> . <time>)."
(set-keymap-parent map crm-local-completion-map) (set-keymap-parent map crm-local-completion-map)
(define-key map " " 'self-insert-command) (define-key map " " 'self-insert-command)
map)) map))
(ivy-prescient-sort-commands nil)) (vertico-sort-function nil))
(mapconcat (mapconcat
#'identity #'identity
(completing-read-multiple (completing-read-multiple
@ -4655,38 +4688,44 @@ KEYS is a list of cons cells like (<label> . <time>)."
(add-hook 'org-journal-after-entry-create-hook (add-hook 'org-journal-after-entry-create-hook
#'my/set-journal-header) #'my/set-journal-header)
(use-package citar
:straight t
:init
(my-leader-def "fB" #'citar-open)
:commands (citar-open citar-insert-citation)
:config
(setq
org-cite-global-bibliography '("~/30-39 Life/32 org-mode/library.bib")
org-cite-insert-processor 'citar
org-cite-follow-processor 'citar
org-cite-activate-processor 'citar
citar-bibliography org-cite-global-bibliography)
(add-hook 'latex-mode #'citar-capf-setup)
(add-hook 'org-mode #'citar-capf-setup))
(use-package citar-embark
:after (citar embark)
:straight t
:config
(citar-embark-mode))
(use-package org-ref (use-package org-ref
:straight (:files (:defaults "citeproc" (:exclude "*helm*"))) :straight (:files (:defaults "citeproc" (:exclude "*helm*")))
:if (not my/remote-server) :if (not my/remote-server)
:init :init
(setq bibtex-dialect 'biblatex) (setq bibtex-dialect 'biblatex)
(setq bibtex-completion-bibliography '("~/30-39 Life/32 org-mode/library.bib")) (add-hook 'bibtex-mode 'smartparens-mode)
(setq bibtex-completion-library-path '("~/30-39 Life/33 Library"))
(setq bibtex-completion-notes-path "~/Documents/org-mode/literature-notes")
(setq bibtex-completion-display-formats
'((t . "${author:36} ${title:*} ${note:10} ${year:4} ${=has-pdf=:1}${=type=:7}")))
(setq bibtex-completion-pdf-open-function
(lambda (file)
(start-process "dired-open" nil
"xdg-open" (file-truename file))))
:after (org) :after (org)
:config :config
(with-eval-after-load 'ivy-bibtex
(require 'org-ref-ivy))
(general-define-key (general-define-key
:keymaps 'org-mode-map :keymaps 'org-mode-map
"C-c l" #'org-ref-insert-link-hydra/body) "C-c l" #'org-ref-insert-link-hydra/body)
(general-define-key (general-define-key
:keymaps 'bibtex-mode-map :keymaps 'bibtex-mode-map
"M-RET" 'org-ref-bibtex-hydra/body)) "M-RET" 'org-ref-bibtex-hydra/body)
(setq org-ref-insert-cite-function
(use-package ivy-bibtex (lambda ()
:after (org-ref) (call-interactively #'citar-insert-citation))))
:straight t
:init
(my-leader-def "fB" 'ivy-bibtex))
(add-hook 'bibtex-mode 'smartparens-mode)
(use-package emacsql-sqlite (use-package emacsql-sqlite
:defer t :defer t
@ -4703,7 +4742,6 @@ KEYS is a list of cons cells like (<label> . <time>)."
:init :init
(setq org-roam-file-extensions '("org")) (setq org-roam-file-extensions '("org"))
(setq org-roam-v2-ack t) (setq org-roam-v2-ack t)
(setq orb-insert-interface 'ivy-bibtex)
(setq org-roam-node-display-template (concat "${title:*} " (propertize "${tags:10}" 'face 'org-tag))) (setq org-roam-node-display-template (concat "${title:*} " (propertize "${tags:10}" 'face 'org-tag)))
:config :config
(org-roam-setup) (org-roam-setup)
@ -4991,7 +5029,7 @@ Review checklist:
- [ ] Clear email inbox - [ ] Clear email inbox
- [ ] Reconcile ledger - [ ] Reconcile ledger
- [ ] Clear [[file:~/Downloads][downloads]] and [[file:~/00-Scratch][scratch]] folders - [ ] Clear [[file:~/Downloads][downloads]] and [[file:~/00-Scratch][scratch]] folders
- [ ] Process [[file:30-39 Life/35 Photos/35.00 Inbox/][photo inbox]] - [ ] Process [[file:~/30-39 Life/35 Photos/35.00 Inbox/][photo inbox]]
- [ ] Process [[file:../inbox.org][inbox]] - [ ] Process [[file:../inbox.org][inbox]]
- [ ] Create [[file:../recurring.org][recurring tasks]] for next week - [ ] Create [[file:../recurring.org][recurring tasks]] for next week
- [ ] Check agenda (-1 / +2 weeks): priorities, deadlines - [ ] Check agenda (-1 / +2 weeks): priorities, deadlines
@ -5343,12 +5381,21 @@ TODO Write something, maybe? "))))
(use-package all-the-icons-dired (use-package all-the-icons-dired
:straight t :straight t
:disabled t
:after (dired) :after (dired)
:if (display-graphic-p) :if (display-graphic-p)
:hook (dired-mode . (lambda () :hook (dired-mode . (lambda ()
(unless (string-match-p "/gnu/store" default-directory) (unless (string-match-p "/gnu/store" default-directory)
(all-the-icons-dired-mode))))) (all-the-icons-dired-mode)))))
(use-package nerd-icons-dired
:straight t
:after (dired)
:hook (dired-mode . (lambda ()
(unless (or (file-remote-p default-directory)
(string-match-p "/gnu/store" default-directory))
(nerd-icons-dired-mode)))))
(use-package dired-open (use-package dired-open
:straight t :straight t
:after (dired) :after (dired)
@ -8775,7 +8822,7 @@ NAV is a structure as defined by `my/index--nav-get'."
(cons (car (last (alist-get :names item))) (cons (car (last (alist-get :names item)))
(alist-get :path item))) (alist-get :path item)))
nav)) nav))
(ivy-prescient-sort-commands nil)) (vertico-sort-function nil))
(cdr (cdr
(assoc (assoc
(completing-read "Index: " collection nil t) (completing-read "Index: " collection nil t)
@ -9054,13 +9101,13 @@ to `dired' if used interactively."
(defun my/zone-with-select () (defun my/zone-with-select ()
(interactive) (interactive)
(ivy-read "Zone programs" (let ((zone-programs
(cl-pairlis (vector
(cl-mapcar 'symbol-name original-zone-programs) (intern
original-zone-programs) (completing-read
:action (lambda (elem) "Zone programs"
(setq zone-programs (vector (cdr elem))) (cl-mapcar 'symbol-name original-zone-programs))))))
(zone)))) (zone)))
(defun my/gravatar-retrieve-sync (email file-name) (defun my/gravatar-retrieve-sync (email file-name)
"Get gravatar for EMAIL and save it to FILE-NAME." "Get gravatar for EMAIL and save it to FILE-NAME."

50
Desktop.org
View file

@ -746,20 +746,12 @@ Not sure about that. The cursor occasionally changes focus when I'm exiting posf
(advice-add #'ivy-posframe-cleanup :after #'my/restore-posframe)) (advice-add #'ivy-posframe-cleanup :after #'my/restore-posframe))
#+end_src #+end_src
*** Linux app *** Linux app
=counsel-linux-app= is a counsel interface to select a Linux desktop application. I switched to =app-launcher= from =counsel-linux-app= after migrating from Ivy.
By default, it also shows paths from =/gnu/store=, so there is a custom formatter function. By default, it also shows paths from =/gnu/store=, so there is a custom formatter function.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun my/counsel-linux-app-format-function (name comment _exec) (use-package app-launcher
(format "% -45s%s" :straight '(app-launcher :host github :repo "SebastienWae/app-launcher"))
(propertize
(ivy--truncate-string name 45)
'face 'counsel-application-name)
(if comment
(concat ": " (ivy--truncate-string comment 100))
"")))
(setq counsel-linux-app-format-function #'my/counsel-linux-app-format-function)
#+end_src #+end_src
Also, by default it tries to launch stuff with =gtk-launch=, which is in the =gtk+= package. Also, by default it tries to launch stuff with =gtk-launch=, which is in the =gtk+= package.
@ -767,13 +759,16 @@ Also, by default it tries to launch stuff with =gtk-launch=, which is in the =gt
| Category | Guix dependency | | Category | Guix dependency |
|--------------+-----------------| |--------------+-----------------|
| desktop-misc | gtk+:bin | | desktop-misc | gtk+:bin |
*** password-store-ivy *** password-store-completion
[[https://github.com/SqrtMinusOne/password-store-ivy][password-store-ivy]] is another package of mine, inspired by [[https://github.com/carnager/rofi-pass][rofi-pass]]. [[https://github.com/SqrtMinusOne/password-store-completion][password-store-completion]] is another package of mine, inspired by [[https://github.com/carnager/rofi-pass][rofi-pass]].
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package password-store-ivy (use-package password-store-completion
:straight (:host github :repo "SqrtMinusOne/password-store-ivy") :straight (:host github :repo "SqrtMinusOne/password-store-completion")
:after (exwm)) :after (exwm)
:config
(require 'password-store-embark)
(password-store-embark-mode))
#+end_src #+end_src
*** emojis *** emojis
[[https://github.com/iqbalansari/emacs-emojify][emojify]] is an Emacs package that adds emoji display to Emacs. While its primary capacity is no longer necessary in Emacs 28, it a few functions to insert emojis are still handy. [[https://github.com/iqbalansari/emacs-emojify][emojify]] is an Emacs package that adds emoji display to Emacs. While its primary capacity is no longer necessary in Emacs 28, it a few functions to insert emojis are still handy.
@ -782,19 +777,6 @@ Also, by default it tries to launch stuff with =gtk-launch=, which is in the =gt
(use-package emojify (use-package emojify
:straight t) :straight t)
#+end_src #+end_src
Because I occasionally want to type emojis to other programs, I reuse a function from =password-store-ivy=:
#+begin_src emacs-lisp
(defun my/emojify-type ()
"Type an emoji."
(interactive)
(let ((emoji (emojify-completing-read "Type emoji: ")))
(kill-new emoji)
(password-store-ivy--async-commands
(list
(password-store-ivy--get-wait-command 10)
"xdotool key Shift+Insert"))))
#+end_src
** Keybindings ** Keybindings
*** EXWM keybindings *** EXWM keybindings
Setting keybindings for EXWM. This actually has to be in the =:config= block of the =use-package= form, that is it has to be run after EXWM is loaded, so I use noweb to put this block in the correct place. Setting keybindings for EXWM. This actually has to be in the =:config= block of the =use-package= form, that is it has to be run after EXWM is loaded, so I use noweb to put this block in the correct place.
@ -819,7 +801,7 @@ Also other local keybindings, that are also available only in =line-mode=:
"<print>" (my/app-command "flameshot gui") "<print>" (my/app-command "flameshot gui")
"<mode-line> s-<mouse-4>" #'perspective-exwm-cycle-all-buffers-backward "<mode-line> s-<mouse-4>" #'perspective-exwm-cycle-all-buffers-backward
"<mode-line> s-<mouse-5>" #'perspective-exwm-cycle-all-buffers-forward "<mode-line> s-<mouse-5>" #'perspective-exwm-cycle-all-buffers-forward
"M-x" #'counsel-M-x "M-x" #'execute-extended-command
"M-SPC" (general-key "SPC")) "M-SPC" (general-key "SPC"))
#+end_src #+end_src
@ -878,17 +860,17 @@ And keybindings that are available in both =char-mode= and =line-mode=:
(,(kbd "s-.") . persp-next) (,(kbd "s-.") . persp-next)
;; Switch buffers ;; Switch buffers
(,(kbd "s-e") . persp-ivy-switch-buffer) (,(kbd "s-e") . persp-switch-to-buffer*)
(,(kbd "s-E") . my/persp-ivy-switch-buffer-other-window) ;; (,(kbd "s-E") . my/persp-ivy-switch-buffer-other-window)
;; Resize windows ;; Resize windows
(,(kbd "s-r") . my/exwm-resize-hydra/body) (,(kbd "s-r") . my/exwm-resize-hydra/body)
;; Apps & stuff ;; Apps & stuff
(,(kbd "s-p") . counsel-linux-app) (,(kbd "s-p") . app-launcher-run-app)
(,(kbd "s-P") . async-shell-command) (,(kbd "s-P") . async-shell-command)
(,(kbd "s-;") . my/exwm-apps-hydra/body) (,(kbd "s-;") . my/exwm-apps-hydra/body)
(,(kbd "s--") . password-store-ivy) (,(kbd "s--") . password-store-completion)
(,(kbd "s-=") . my/emojify-type) (,(kbd "s-=") . my/emojify-type)
(,(kbd "s-i") . ,(my/app-command "copyq menu")) (,(kbd "s-i") . ,(my/app-command "copyq menu"))

426
Emacs.org
View file

@ -479,7 +479,7 @@ Do ex search in other buffer. Like =*=, but switch to other buffer and search th
:after evil :after evil
:config :config
(evil-collection-init (evil-collection-init
'(eww devdocs proced emms pass calendar dired ivy debug guix calc '(eww devdocs proced emms pass calendar dired debug guix calc
docker ibuffer geiser pdf info elfeed edebug bookmark company docker ibuffer geiser pdf info elfeed edebug bookmark company
vterm flycheck profiler cider explain-pause-mode notmuch custom vterm flycheck profiler cider explain-pause-mode notmuch custom
xref eshell helpful compile comint git-timemachine magit prodigy xref eshell helpful compile comint git-timemachine magit prodigy
@ -637,7 +637,8 @@ The following is necessary since my scratch buffer isn't lisp-interaction.
"l" 'next-buffer "l" 'next-buffer
"h" 'previous-buffer "h" 'previous-buffer
"k" 'kill-buffer "k" 'kill-buffer
"b" 'persp-ivy-switch-buffer ;; "b" 'persp-ivy-switch-buffer
"b" #'persp-switch-to-buffer*
"r" 'revert-buffer "r" 'revert-buffer
"u" 'ibuffer) "u" 'ibuffer)
#+end_src #+end_src
@ -1096,16 +1097,15 @@ I used to have [[https://github.com/Alexander-Miller/treemacs][Treemacs]] here,
:straight t :straight t
:config :config
(projectile-mode +1) (projectile-mode +1)
(setq projectile-project-search-path '("~/Code" "~/Documents"))) (setq projectile-project-search-path '("~/Code" "~/Documents"))
(general-define-key
(use-package counsel-projectile :keymaps 'projectile-command-map
:after (counsel projectile) "b" #'consult-project-buffer))
:straight t)
(my-leader-def (my-leader-def
"p" '(:keymap projectile-command-map :which-key "projectile")) "p" '(:keymap projectile-command-map :which-key "projectile"))
(general-nmap "C-p" 'counsel-projectile-find-file) (general-nmap "C-p" #'projectile-find-file)
#+end_src #+end_src
*** Git & Magit *** Git & Magit
[[https://magit.vc/][Magit]] is a git interface for Emacs. [[https://magit.vc/][Magit]] is a git interface for Emacs.
@ -1340,7 +1340,7 @@ Somehow there's no built-in function to clear a register.
"o" #'point-to-register "o" #'point-to-register
"c" #'my/register-clear "c" #'my/register-clear
"r" #'jump-to-register "r" #'jump-to-register
"R" #'counsel-register "R" #'consult-register
"w" #'window-configuration-to-register) "w" #'window-configuration-to-register)
#+End_src #+End_src
@ -1367,28 +1367,12 @@ Also a function to clear the current mark ring.
(setq mark-ring nil)) (setq mark-ring nil))
#+end_src #+end_src
A variant of =counsel-mark-ring= to work with =global-mark-ring=:
#+begin_src emacs-lisp
(defun my/counsel-global-mark-ring ()
"Browse `mark-ring' interactively.
Obeys `widen-automatically', which see."
(interactive)
(let* ((counsel--mark-ring-calling-point (point))
(marks (copy-sequence global-mark-ring))
(marks (delete-dups marks))
(candidates (counsel-mark--get-candidates marks)))
(if candidates
(counsel-mark--ivy-read "Mark: " candidates 'my/counsel-global-mark-ring)
(message "Mark ring is empty"))))
#+end_src
Keybindings: Keybindings:
#+begin_src emacs-lisp #+begin_src emacs-lisp
(my-leader-def (my-leader-def
:infix "g" :infix "g"
"g" #'counsel-mark-ring "G" #'consult-global-mark
"G" #'my/counsel-global-mark-ring "g" #'consult-mark
"C" #'my/mark-ring-clear "C" #'my/mark-ring-clear
"m" #'my/push-mark-no-activate) "m" #'my/push-mark-no-activate)
@ -1425,90 +1409,191 @@ References:
#+end_src #+end_src
** Completion ** Completion
*** Ivy, counsel, swiper *** vertico
Minibuffer completion tools for Emacs. [[https://github.com/minad/vertico][vertico]] is a vertical completion framework. I switched to it from [[https://github.com/abo-abo/swiper][Ivy]] (and to Ivy from [[https://github.com/emacs-helm/helm][Helm]]).
References:
- [[https://oremacs.com/swiper/][repo]]
- [[https://oremacs.com/swiper/][User Manual]]
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package ivy (use-package vertico
:straight t :straight t
:config :config
(setq ivy-use-virtual-buffers t) (setq enable-recursive-minibuffers t)
(ivy-mode)) (general-define-key
:keymaps '(vertico-map)
"M-j" #'vertico-next
"M-k" #'vertico-previous
"TAB" #'minibuffer-complete)
(vertico-mode))
#+end_src
(use-package counsel Add prompt indicator to =completing-read-multiple=:
:straight t #+begin_src emacs-lisp
:after ivy (defun crm-indicator (args)
(cons (format "[CRM%s] %s"
(replace-regexp-in-string
"\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" ""
crm-separator)
(car args))
(cdr args)))
(with-eval-after-load 'crm
(advice-add #'completing-read-multiple :filter-args #'crm-indicator))
#+end_src
Persist history over Emacs restarts.
#+begin_src emacs-lisp
(use-package savehist
:init
(savehist-mode))
#+end_src
*** Vertico extensions
Vertico has a lot of extensions.
[[https://github.com/minad/vertico/blob/main/extensions/vertico-directory.el][vertico-directory]] simplifies directory navigation.
#+begin_src emacs-lisp
(use-package vertico-directory
:after (vertico)
:config :config
(counsel-mode)) (general-define-key
:keymaps '(vertico-map)
"RET" #'vertico-directory-enter
"DEL" #'vertico-directory-delete-char)
(add-hook 'rfn-eshadow-update-overlay-hook #'vertico-directory-tidy))
#+end_src
(use-package swiper [[https://github.com/minad/vertico/blob/main/extensions/vertico-grid.el][vertico-grid]] enabled grid display. It is useful when there are no annotations in the completion buffer.
:defer t #+begin_src emacs-lisp
(use-package vertico-grid
:after (vertico))
#+end_src
[[https://github.com/minad/vertico/blob/main/extensions/vertico-multiform.el][vertico-multiform]] enables per-mode configuration.
#+begin_src emacs-lisp
(defun my/sort-directories-first (files)
(setq files (vertico-sort-alpha files))
(nconc (seq-filter (lambda (x) (string-suffix-p "/" x)) files)
(seq-remove (lambda (x) (string-suffix-p "/" x)) files)))
(use-package vertico-multiform
:after vertico
:config
(vertico-multiform-mode)
(general-define-key
:keymap 'vertico-multiform-map
"M-b" #'vertico-multiform-buffer
"M-g" #'vertico-multiform-grid)
(setq vertico-multiform-categories
'((file (vertico-sort-function . my/sort-directories-first))
(password-store-pass grid)))
(setq vertico-multiform-commands
'((eshell-atuin-history (vertico-sort-function . nil))
(my/index-nav (vertico-sort-function . nil))
(org-ql-view (vertico-sort-function . nil))
(my/consult-line (vertico-sort-function . nil)))))
#+end_src
*** orderless
[[https://github.com/oantolin/orderless][orderless]] is a flexible completion style framework. Completion style refers to the way entries are filtered in the completion buffer.
I used to use [[https://github.com/radian-software/prescient.el][prescient.el]] with Ivy; unlike prescient, orderless doesn't sort completion entries.
#+begin_src emacs-lisp
(use-package orderless
:straight t
:config
(setq completion-styles '(orderless basic))
(setq completion-category-defaults nil)
(setq completion-category-overrides
'((file (styles partial-completion))))
(setq orderless-matching-styles
'(orderless-literal orderless-initialism orderless-regexp)))
#+end_src
Disable orderless for company:
#+begin_src emacs-lisp
(defun company-completion-styles (capf-fn &rest args)
(let ((completion-styles '(basic partial-completion)))
(apply capf-fn args)))
(with-eval-after-load 'company
(advice-add 'company-capf :around #'company-completion-styles))
#+end_src
*** consult
[[https://github.com/minad/consult][consult]] provides various commands based on the =completing-read= API.
#+begin_src emacs-lisp
(use-package consult
:straight t) :straight t)
#+end_src #+end_src
*** ivy-rich
[[https://github.com/Yevgnen/ivy-rich][ivy-rich]] provides a more informative interface for ivy. *** marginalia
[[https://github.com/minad/marginalia][marginalia]] provides annotations in the completion interface.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package ivy-rich (use-package marginalia
:straight t :straight t
:after ivy
:config :config
(ivy-rich-mode 1) (marginalia-mode)
(setcdr (assq t ivy-format-functions-alist) #'ivy-format-function-line)) (push '(projectile-find-file . file)
marginalia-command-categories))
#+end_src
*** embark
[[https://github.com/oantolin/embark][embark]] provides minibuffer actions.
#+begin_src emacs-lisp
(use-package embark
:straight t
:commands (embark-act embark-dwim embark-bindings)
:init
(general-define-key
"M-e" #'embark-act))
(use-package embark-consult
:straight t
:after (embark)
:config
(add-hook 'embark-collect-mode #'consult-preview-at-point-mode))
#+end_src #+end_src
*** prescient Use =which-key= like indicator. Take from the [[https://github.com/oantolin/embark/wiki/Additional-Configuration#use-which-key-like-a-key-menu-prompt][Embark wiki]].
A package that enhances sorting & filtering of candidates. =ivy-prescient= adds integration with Ivy. #+begin_src emacs-lisp
(defun embark-which-key-indicator ()
"An embark indicator that displays keymaps using which-key.
The which-key help message will show the type and value of the
current target followed by an ellipsis if there are further
targets."
(lambda (&optional keymap targets prefix)
(if (null keymap)
(which-key--hide-popup-ignore-command)
(which-key--show-keymap
(if (eq (plist-get (car targets) :type) 'embark-become)
"Become"
(format "Act on %s '%s'%s"
(plist-get (car targets) :type)
(embark--truncate-target (plist-get (car targets) :target))
(if (cdr targets) "…" "")))
(if prefix
(pcase (lookup-key keymap prefix 'accept-default)
((and (pred keymapp) km) km)
(_ (key-binding prefix 'accept-default)))
keymap)
nil nil t (lambda (binding)
(not (string-suffix-p "-argument" (cdr binding))))))))
References: (defun embark-hide-which-key-indicator (fn &rest args)
- [[https://github.com/raxod502/prescient.el][prescient.el repo]] "Hide the which-key indicator immediately when using the completing-read prompter."
#+begin_src emacs-lisp :noweb yes (which-key--hide-popup-ignore-command)
(use-package ivy-prescient (let ((embark-indicators
:straight t (remq #'embark-which-key-indicator embark-indicators)))
:after counsel (apply fn args)))
:config
(ivy-prescient-mode +1) (with-eval-after-load 'embark
(setq ivy-prescient-retain-classic-highlighting t) (advice-add #'embark-completing-read-prompter
(prescient-persist-mode 1) :around #'embark-hide-which-key-indicator)
(setq ivy-prescient-sort-commands (setq embark-indicators (delq #'embark-mixed-indicator embark-indicators))
'(:not swiper (push #'embark-which-key-indicator embark-indicators))
swiper-isearch
ivy-switch-buffer
;; ivy-resume
;; ivy--restore-session
lsp-ivy-workspace-symbol
dap-switch-stack-frame
my/dap-switch-stack-frame
dap-switch-session
dap-switch-thread
counsel-grep
;; counsel-find-file
counsel-git-grep
counsel-rg
counsel-ag
counsel-ack
counsel-fzf
counsel-pt
counsel-imenu
counsel-yank-pop
counsel-recentf
counsel-buffer-or-recentf
proced-filter-interactive
proced-sort-interactive
perspective-exwm-switch-perspective
my/persp-ivy-switch-buffer-other-window
lsp-execute-code-action
dired-recent-open
org-ql-view
my/index-nav
org-set-effort
eshell-atuin-history))
;; Do not use prescient in find-file
(ivy--alist-set 'ivy-sort-functions-alist #'read-file-name-internal #'ivy-sort-file-function-default))
#+end_src #+end_src
*** keybindings *** keybindings
Setting up quick access to various completions. Setting up quick access to various completions.
@ -1516,35 +1601,25 @@ Setting up quick access to various completions.
(my-leader-def (my-leader-def
:infix "f" :infix "f"
"" '(:which-key "various completions")' "" '(:which-key "various completions")'
;; "b" 'counsel-switch-buffer "b" #'persp-switch-to-buffer*
"b" 'persp-ivy-switch-buffer
"e" 'micromamba-activate "e" 'micromamba-activate
"f" 'project-find-file "f" 'project-find-file
"c" 'counsel-yank-pop "c" 'consult-yank-pop
"a" 'counsel-rg "a" 'consult-ripgrep
"d" 'deadgrep "d" 'deadgrep)
"A" 'counsel-ag)
(general-define-key (general-define-key
:states '(insert normal) :states '(insert normal)
"C-y" 'counsel-yank-pop) "C-y" 'consult-yank-pop)
(defun my/swiper-isearch () (defun my/consult-line ()
(interactive) (interactive)
(if current-prefix-arg (if current-prefix-arg
(swiper-all) (call-interactively #'consult-line-multi)
(swiper-isearch))) (consult-line nil t)))
(my-leader-def "SPC SPC" 'ivy-resume) ;; (my-leader-def "SPC SPC" 'ivy-resume)
(my-leader-def "s" 'my/swiper-isearch) (my-leader-def "s" 'my/consult-line)
(general-define-key
:keymaps '(ivy-minibuffer-map swiper-map)
"M-j" 'ivy-next-line
"M-k" 'ivy-previous-line
"<C-return>" 'ivy-call
"M-RET" 'ivy-immediate-done
[escape] 'minibuffer-keyboard-quit)
#+end_src #+end_src
*** company *** company
A completion framework for Emacs. A completion framework for Emacs.
@ -2192,11 +2267,12 @@ Ligature setup for the JetBrainsMono font.
(global-ligature-mode t)) (global-ligature-mode t))
#+end_src #+end_src
*** Icons *** Icons
I switched to [[https://github.com/rainstormstudio/nerd-icons.el][nerd-icons]] from [[https://github.com/domtronn/all-the-icons.el][all-the-icons]].
Run =M-x all-the-icons-install-fonts= at first setup. Run =M-x all-the-icons-install-fonts= at first setup.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package all-the-icons (use-package nerd-icons
:if (display-graphic-p)
:straight t) :straight t)
#+end_src #+end_src
** Text highlight ** Text highlight
@ -2349,8 +2425,8 @@ One thing I don't like is that the list perspectives is displayed in the modelin
"gN" 'persp-kill) "gN" 'persp-kill)
(general-define-key (general-define-key
:keymaps 'perspective-map :keymaps 'perspective-map
"b" 'persp-ivy-switch-buffer "b" 'persp-switch-to-buffer
"x" 'persp-ivy-switch-buffer "x" 'persp-switch-to-buffer*
"u" 'persp-ibuffer)) "u" 'persp-ibuffer))
#+end_src #+end_src
*** Functions to manage buffers *** Functions to manage buffers
@ -2374,22 +2450,6 @@ Copy the current buffer to a perspective and switch to it.
(switch-to-buffer buffer))) (switch-to-buffer buffer)))
#+end_src #+end_src
Switch to a perspective buffer in other window.
#+begin_src emacs-lisp
(defun my/persp-ivy-switch-buffer-other-window (arg)
(interactive "P")
(declare-function ivy-switch-buffer-other-window "ivy.el")
(persp--switch-buffer-ivy-counsel-helper
arg
(lambda ()
(ivy-read "Switch to buffer in other window: " #'internal-complete-buffer
:keymap ivy-switch-buffer-map
:preselect (buffer-name (other-buffer (current-buffer)))
:action #'ivy--switch-buffer-other-window-action
:matcher #'ivy--switch-buffer-matcher
:caller 'ivy-switch-buffer))))
#+end_src
Add keybindings to the default map. Add keybindings to the default map.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(with-eval-after-load 'perspective (with-eval-after-load 'perspective
@ -5577,7 +5637,7 @@ A view to return all TODOs in a category.
(set-keymap-parent map crm-local-completion-map) (set-keymap-parent map crm-local-completion-map)
(define-key map " " 'self-insert-command) (define-key map " " 'self-insert-command)
map)) map))
(ivy-prescient-sort-commands nil) (vertico-sort-function nil)
(categories (completing-read-multiple (categories (completing-read-multiple
"Categories: " "Categories: "
'("TEACH" "EDU" "JOB" "LIFE" "COMP")))) '("TEACH" "EDU" "JOB" "LIFE" "COMP"))))
@ -6315,7 +6375,7 @@ Let's also try to log the current mood:
(set-keymap-parent map crm-local-completion-map) (set-keymap-parent map crm-local-completion-map)
(define-key map " " 'self-insert-command) (define-key map " " 'self-insert-command)
map)) map))
(ivy-prescient-sort-commands nil)) (vertico-sort-function nil))
(mapconcat (mapconcat
#'identity #'identity
(completing-read-multiple (completing-read-multiple
@ -6369,15 +6429,38 @@ And here's the function that creates a drawer with such information. At the mome
I use [[https://www.zotero.org/][Zotero]] to manage my bibliograhy. I use [[https://www.zotero.org/][Zotero]] to manage my bibliograhy.
There is a Zotero extension called [[https://retorque.re/zotero-better-bibtex/][better bibtex]], which allows for having one bibtex file that is always syncronized with the library. That comes quite handy for Emacs integration. There is a Zotero extension called [[https://retorque.re/zotero-better-bibtex/][better bibtex]], which allows for having one bibtex file that is always syncronized with the library. That comes quite handy for Emacs integration.
**** citar
[[https://github.com/emacs-citar/citar][citar]] is a package that works with citations.
#+begin_src emacs-lisp
(use-package citar
:straight t
:init
(my-leader-def "fB" #'citar-open)
:commands (citar-open citar-insert-citation)
:config
(setq
org-cite-global-bibliography '("~/30-39 Life/32 org-mode/library.bib")
org-cite-insert-processor 'citar
org-cite-follow-processor 'citar
org-cite-activate-processor 'citar
citar-bibliography org-cite-global-bibliography)
(add-hook 'latex-mode #'citar-capf-setup)
(add-hook 'org-mode #'citar-capf-setup))
(use-package citar-embark
:after (citar embark)
:straight t
:config
(citar-embark-mode))
#+end_src
**** org-ref **** org-ref
[[https://github.com/jkitchin/org-ref][org-ref]] is an excellent package by John Kitchin that provides support for managing citations and references in Org Mode. [[https://github.com/jkitchin/org-ref][org-ref]] is a package by John Kitchin that provides support for citations and cross-references in Org Mode.
It may have become less relevant since =org-cite= was merged into plain Org, but =org-ref= is still just as usable. I've switched to citar for citations because =org-ref= only works with Ivy and Helm. Fortunately, =org-ref= is designed to co-exist with =citar= and =org-cite=.
As of now, this package loads Helm on start. To avoid this, I have to exclude Helm from the =Package-requires= in the [[file:.emacs.d/straight/repos/org-ref/org-ref.el][org-ref.el]] file. I haven't found a way to do this without modifying the package source yet. Also, at some point the package loaded Helm on start, so I exclude these files from the recipe.
There's a package called [[https://github.com/org-roam/org-roam-bibtex][org-roam-bibtex]] that allows to keep literature notes in [[https://github.com/org-roam/org-roam][org-roam]] and access them from =org-ref=, but as for now I store literature notes separately.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package org-ref (use-package org-ref
@ -6385,39 +6468,20 @@ There's a package called [[https://github.com/org-roam/org-roam-bibtex][org-roam
:if (not my/remote-server) :if (not my/remote-server)
:init :init
(setq bibtex-dialect 'biblatex) (setq bibtex-dialect 'biblatex)
(setq bibtex-completion-bibliography '("~/30-39 Life/32 org-mode/library.bib")) (add-hook 'bibtex-mode 'smartparens-mode)
(setq bibtex-completion-library-path '("~/30-39 Life/33 Library"))
(setq bibtex-completion-notes-path "~/Documents/org-mode/literature-notes")
(setq bibtex-completion-display-formats
'((t . "${author:36} ${title:*} ${note:10} ${year:4} ${=has-pdf=:1}${=type=:7}")))
(setq bibtex-completion-pdf-open-function
(lambda (file)
(start-process "dired-open" nil
"xdg-open" (file-truename file))))
:after (org) :after (org)
:config :config
(with-eval-after-load 'ivy-bibtex
(require 'org-ref-ivy))
(general-define-key (general-define-key
:keymaps 'org-mode-map :keymaps 'org-mode-map
"C-c l" #'org-ref-insert-link-hydra/body) "C-c l" #'org-ref-insert-link-hydra/body)
(general-define-key (general-define-key
:keymaps 'bibtex-mode-map :keymaps 'bibtex-mode-map
"M-RET" 'org-ref-bibtex-hydra/body)) "M-RET" 'org-ref-bibtex-hydra/body)
(setq org-ref-insert-cite-function
(lambda ()
(call-interactively #'citar-insert-citation))))
#+end_src #+end_src
**** ivy-bibtex
[[https://github.com/tmalsburg/helm-bibtex][ivy-bibtex]] is an Ivy interface to bibtex. It uses the same configuration variables as =org-ref=, or rather, both packages use variables from the built-in =bibtex.el=
#+begin_src emacs-lisp
(use-package ivy-bibtex
:after (org-ref)
:straight t
:init
(my-leader-def "fB" 'ivy-bibtex))
(add-hook 'bibtex-mode 'smartparens-mode)
#+end_src
*** Org Roam *** Org Roam
[[https://github.com/org-roam/org-roam][org-roam]] is a plain-text knowledge database. [[https://github.com/org-roam/org-roam][org-roam]] is a plain-text knowledge database.
@ -6466,7 +6530,6 @@ References:
:init :init
(setq org-roam-file-extensions '("org")) (setq org-roam-file-extensions '("org"))
(setq org-roam-v2-ack t) (setq org-roam-v2-ack t)
(setq orb-insert-interface 'ivy-bibtex)
(setq org-roam-node-display-template (concat "${title:*} " (propertize "${tags:10}" 'face 'org-tag))) (setq org-roam-node-display-template (concat "${title:*} " (propertize "${tags:10}" 'face 'org-tag)))
:config :config
(org-roam-setup) (org-roam-setup)
@ -6858,7 +6921,7 @@ Review checklist:
- [ ] Clear email inbox - [ ] Clear email inbox
- [ ] Reconcile ledger - [ ] Reconcile ledger
- [ ] Clear [[file:~/Downloads][downloads]] and [[file:~/00-Scratch][scratch]] folders - [ ] Clear [[file:~/Downloads][downloads]] and [[file:~/00-Scratch][scratch]] folders
- [ ] Process [[file:30-39 Life/35 Photos/35.00 Inbox/][photo inbox]] - [ ] Process [[file:~/30-39 Life/35 Photos/35.00 Inbox/][photo inbox]]
- [ ] Process [[file:../inbox.org][inbox]] - [ ] Process [[file:../inbox.org][inbox]]
- [ ] Create [[file:../recurring.org][recurring tasks]] for next week - [ ] Create [[file:../recurring.org][recurring tasks]] for next week
- [ ] Check agenda (-1 / +2 weeks): priorities, deadlines - [ ] Check agenda (-1 / +2 weeks): priorities, deadlines
@ -7425,6 +7488,7 @@ Display icons for files.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package all-the-icons-dired (use-package all-the-icons-dired
:straight t :straight t
:disabled t
:after (dired) :after (dired)
:if (display-graphic-p) :if (display-graphic-p)
:hook (dired-mode . (lambda () :hook (dired-mode . (lambda ()
@ -7432,6 +7496,16 @@ Display icons for files.
(all-the-icons-dired-mode))))) (all-the-icons-dired-mode)))))
#+end_src #+end_src
#+begin_src emacs-lisp
(use-package nerd-icons-dired
:straight t
:after (dired)
:hook (dired-mode . (lambda ()
(unless (or (file-remote-p default-directory)
(string-match-p "/gnu/store" default-directory))
(nerd-icons-dired-mode)))))
#+end_src
Provides stuff like =dired-open-xdg= Provides stuff like =dired-open-xdg=
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package dired-open (use-package dired-open
@ -12090,7 +12164,7 @@ NAV is a structure as defined by `my/index--nav-get'."
(cons (car (last (alist-get :names item))) (cons (car (last (alist-get :names item)))
(alist-get :path item))) (alist-get :path item)))
nav)) nav))
(ivy-prescient-sort-commands nil)) (vertico-sort-function nil))
(cdr (cdr
(assoc (assoc
(completing-read "Index: " collection nil t) (completing-read "Index: " collection nil t)
@ -12526,13 +12600,13 @@ Watch out if you are using EXWM.
(defun my/zone-with-select () (defun my/zone-with-select ()
(interactive) (interactive)
(ivy-read "Zone programs" (let ((zone-programs
(cl-pairlis (vector
(cl-mapcar 'symbol-name original-zone-programs) (intern
original-zone-programs) (completing-read
:action (lambda (elem) "Zone programs"
(setq zone-programs (vector (cdr elem))) (cl-mapcar 'symbol-name original-zone-programs))))))
(zone)))) (zone)))
#+end_src #+end_src
*** Gource *** Gource