2 files changed, 15 insertions, 5 deletions

@@ -1807,6 +1807,11 @@ See also `crux-reopen-as-root-mode'."
            "<help> k" #'helpful-key
            "<help> o" #'helpful-symbol))
 
+(setup (:straight (hippie-completing-read
+                   :host github
+                   :repo "duckwork/hippie-completing-read"))
+  (:global "M-/" #'hippie-completing-read))
+
 (setup (:straight hungry-delete)
   (:option hungry-delete-chars-to-skip " \t"
            hungry-delete-join-reluctantly nil)
@@ -2139,11 +2144,12 @@ browser defined in `browse-url-secondary-browser-function'."
   (:also-load acdw-org)
   (require 'chd nil 'noerror)
   (:option org-adapt-indentation nil
-           org-agenda-files nil                 ; only until I set this up
+           ;; org-agenda-files nil                 ; only until I set this up
            org-catch-invisible-edits 'show-and-error
            org-clock-clocked-in-display 'mode-line
-           org-clock-frame-title-format (cons '(t org-mode-line-string)
-                                              (cons " --- " frame-title-format))
+           org-clock-frame-title-format (cons
+                                         '(t org-mode-line-string)
+                                         (cons " --- " frame-title-format))
            org-clock-string-limit 7     ; just the clock bit
            ;; org-clock-string-limit 25    ; gives enough information
            org-clock-persist t
@@ -2306,7 +2312,8 @@ the default is \"/\"."
                                (el-patch-swap
                                  (org-add-props
                                      head nil 'face
-                                                     (nth (% n org-n-level-faces) org-level-faces))
+                                                     (nth (% n org-n-level-faces)
+                                          org-level-faces))
                                  head))
                               separator))))
         (when (> (length fpath) width)
@@ -17,7 +17,10 @@ message the current topic."
   (interactive "p")
   (let ((topic
          (save-excursion
-           (re-search-backward (rx "*** Topic for #" (+ (or word "-")) ": "))
+           (goto-char (point-max))
+           (or (re-search-backward (rx "*** Topic change" (+ (not ":")) ": "))
+               (re-search-backward
+                (rx "*** Topic for #" (+ (or word "-")) ": ")))
            (buffer-substring-no-properties
             (match-end 0) (line-end-position)))))
     (when message