latest changesraw-dog

1 files 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