summaryrefslogtreecommitdiff
path: root/config.org
diff options
context:
space:
mode:
authorcashmere <cashmere@autistici.org>2026-08-22 15:51:59 +0200
committercashmere <cashmere@autistici.org>2026-08-22 15:51:59 +0200
commit47f033411523aee9eacc018529a0e0291036a90a (patch)
treeff44014cffbe7460eea3c21dfe576107402766cc /config.org
parent991c7625cc8bc60a8db23b110513c80d76f7a5a6 (diff)
downloademacs-47f033411523aee9eacc018529a0e0291036a90a.tar.gz
md: 2026-08-22T15:52:08+02:00
Diffstat (limited to 'config.org')
-rw-r--r--config.org123
1 files changed, 0 insertions, 123 deletions
diff --git a/config.org b/config.org
index 28912d5..9e1fa49 100644
--- a/config.org
+++ b/config.org
@@ -1018,14 +1018,6 @@ let's give agent-shell another try
#'my/agent-shell-yank-dwim-in-terminal))
#+end_src
-*** agent-shell-sidebar
-
-#+begin_src emacs-lisp
-(use-package agent-shell-sidebar
- :after agent-shell
- :ensure (:host nil :repo "ssh://git@git.cashmere.rs/agent-shell-sidebar.git"))
-#+end_src
-
* eldoc
#+begin_src emacs-lisp
@@ -1159,121 +1151,6 @@ automatically encrypted before save and can be decrypted in-place with
(add-hook 'org-mode-hook (lambda () (setq-local auto-save-default nil))))
#+end_src
-** age
-
-#+begin_src emacs-lisp
-(use-package age
- :ensure t
- :demand t
- :custom
- (age-program "rage")
- (age-default-identity "~/.config/age/keys.txt")
- (age-default-recipient
- '("age188928acysrh9zpc3rk6q4lqmf3qlpjx3s26m6k3p6kah63gcws7sx3jeej"
- "age1mhvdwh6cvd70hm5dcptc4xca2xnkf383g6706ful6kmrudwdysvq0eytym"))
- :config
- (setenv "PINENTRY_PROGRAM" "pinentry-gnome3")
- (setenv "PASSAGE_DIR" (expand-file-name "~/pass"))
- (age-file-enable))
-#+end_src
-
-#+begin_src emacs-lisp
-(defun my/org-crypt-migrate-to-age (title)
- "Migrate all :crypt: headings in the current buffer to a new .org.age file.
-TITLE names the new denote-style file in ~/org."
- (interactive "sTitle for new age file: ")
- (unless (derived-mode-p 'org-mode)
- (user-error "Not an org buffer"))
- (save-excursion
- (org-decrypt-entries)
- (let ((collected (generate-new-buffer " *crypt-migration*"))
- (count 0))
- (org-map-entries
- (lambda ()
- (let ((beg (org-entry-beginning-position))
- (end (org-entry-end-position)))
- (with-current-buffer collected
- (insert (buffer-substring-no-properties beg end) "\n"))
- (setq count (1+ count))))
- "crypt")
- (if (zerop count)
- (progn (kill-buffer collected)
- (user-error "No :crypt: headings found"))
- (let ((target (expand-file-name
- (format "%s--%s__crypt.org.age"
- (format-time-string "%Y%m%dT%H%M%S")
- (replace-regexp-in-string "[^a-z0-9]+" "-" (downcase title)))
- "~/org")))
- (with-current-buffer collected
- (org-mode)
- (write-file target)
- (save-buffer))
- (goto-char (point-max))
- (org-map-entries
- (lambda ()
- (delete-region (org-entry-beginning-position) (org-entry-end-position)))
- "crypt")
- (save-buffer)
- (message "Migrated %d crypt headings to %s" count target))))))
-#+end_src
-
-** passage
-
-#+begin_src emacs-lisp :tangle yes
-(use-package with-editor
- :ensure t
- :demand t)
-
-(use-package passage
- :ensure (:host github :repo "anticomputer/passage.el")
- :custom
- (auth-source-passage-filename "~/pass")
- :config
- (with-eval-after-load 'evil
- (evil-define-key 'normal passage-mode-map
-
- "J" #'passage-goto-entry
- "U" #'passage-browse-url
- "a" #'passage-insert
- "G" #'passage-insert-generated
- "R" #'passage-rename
- "x" #'passage-kill
- "E" #'passage-edit
- "j" #'passage-next-entry
- "k" #'passage-prev-entry
- "gr" #'passage-update-buffer
- "o" #'passage-otp-options
- "]]" #'passage-next-directory
- "[[" #'passage-prev-directory
- (kbd "RET") #'passage-view
- "q" #'passage-quit)
- (evil-define-key 'normal passage-view-mode-map
- "q" #'quit-window
- "t" #'passage-view-toggle-password
- "y" #'passage-view-copy-password))
- (with-eval-after-load 'evil-collection
- (evil-collection-define-operator-key 'yank 'passage-mode-map
- "f" #'passage-copy-field
- "n" #'passage-copy-username
- "u" #'passage-copy-url))
- ;; The yank-operator sub-keys ("yn"/"yu"/"yf") are invisible to
- ;; `where-is', so hardcode their header labels (evil-collection-pass
- ;; uses the same trick for pass).
- (defconst my/passage-command-to-label
- '((passage-copy-field . "yf")
- (passage-copy-username . "yn")
- (passage-copy-url . "yu")))
- (defun my/passage-display-keybinding (f &rest args)
- "Render `my/passage-command-to-label' labels in the passage header."
- (if-let* ((label (alist-get (car args) my/passage-command-to-label)))
- (insert (format "%8s %-13s \t "
- (propertize (format "<%s>" label)
- 'face 'font-lock-constant-face)
- (cadr args)))
- (apply f args)))
- (advice-add 'passage--display-keybinding :around #'my/passage-display-keybinding))
-#+end_src
-
** org-appear
#+begin_src emacs-lisp