From bbbfe30658b609b1a4199d28829fc21cb2e85f7c Mon Sep 17 00:00:00 2001 From: Szymon Szukalski Date: Wed, 15 Apr 2026 16:21:51 +1000 Subject: latest changes --- init.el | 20 ++++++++++++++++++-- 1 file changed, 18 insertions(+), 2 deletions(-) diff --git a/init.el b/init.el index 8dc22a6..4f83ac4 100644 --- a/init.el +++ b/init.el @@ -109,7 +109,10 @@ scroll-conservatively 101 scroll-margin 2 scroll-preserve-screen-position t - scroll-step 1) + scroll-step 1 + require-final-newline t) + +(which-key-mode) (column-number-mode 1) (show-paren-mode 1) @@ -353,6 +356,7 @@ (define-key map (kbd "f") #'ss-crm-find) (define-key map (kbd "a") #'ss-crm-add) (define-key map (kbd "i") #'ss-crm-insert-name) + (define-key map (kbd "l") #'ss-crm-insert-org-link) (define-key map (kbd "s") #'ss-crm-insert-summary) map) "Keymap for CRM commands.") @@ -727,6 +731,18 @@ (user-error "No person selected")))) (insert (ss-crm-entry-get entry :name)))) +(defun ss-crm-insert-org-link () + "Insert an Org link to a CRM card." + (interactive) + (let* ((entry (or (ss-crm-select-entry "Insert person link: ") + (user-error "No person selected"))) + (name (ss-crm-entry-get entry :name))) + (insert (org-link-make-string + (format "file:%s::*%s" + (file-name-nondirectory ss-crm-file) + name) + name)))) + (defun ss-crm-insert-summary () "Insert a compact CRM summary at point." (interactive) @@ -951,7 +967,7 @@ ((org-agenda-overriding-header ":: TASKS ::"))) (todo "CLARIFY" ((org-agenda-overriding-header ":: OPEN QUESTIONS ::"))) - (tags "CATEGORY=\"inbox\"+LEVEL>1" + (tags "CATEGORY=\"inbox\"+LEVEL<3" ((org-agenda-overriding-header ":: REFILE ::")))))) org-agenda-window-setup 'only-window org-startup-folded 'overview -- cgit v1.2.3