summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el15
-rw-r--r--lisp/acdw-circe.el5
2 files changed, 15 insertions, 5 deletions
diff --git a/init.el b/init.el index 089ed1f..32bf170 100644 --- a/init.el +++ b/init.el
@@ -1807,6 +1807,11 @@ See also `crux-reopen-as-root-mode'."
1807 "<help> k" #'helpful-key 1807 "<help> k" #'helpful-key
1808 "<help> o" #'helpful-symbol)) 1808 "<help> o" #'helpful-symbol))
1809 1809
1810(setup (:straight (hippie-completing-read
1811 :host github
1812 :repo "duckwork/hippie-completing-read"))
1813 (:global "M-/" #'hippie-completing-read))
1814
1810(setup (:straight hungry-delete) 1815(setup (:straight hungry-delete)
1811 (:option hungry-delete-chars-to-skip " \t" 1816 (:option hungry-delete-chars-to-skip " \t"
1812 hungry-delete-join-reluctantly nil) 1817 hungry-delete-join-reluctantly nil)
@@ -2139,11 +2144,12 @@ browser defined in `browse-url-secondary-browser-function'."
2139 (:also-load acdw-org) 2144 (:also-load acdw-org)
2140 (require 'chd nil 'noerror) 2145 (require 'chd nil 'noerror)
2141 (:option org-adapt-indentation nil 2146 (:option org-adapt-indentation nil
2142 org-agenda-files nil ; only until I set this up 2147 ;; org-agenda-files nil ; only until I set this up
2143 org-catch-invisible-edits 'show-and-error 2148 org-catch-invisible-edits 'show-and-error
2144 org-clock-clocked-in-display 'mode-line 2149 org-clock-clocked-in-display 'mode-line
2145 org-clock-frame-title-format (cons '(t org-mode-line-string) 2150 org-clock-frame-title-format (cons
2146 (cons " --- " frame-title-format)) 2151 '(t org-mode-line-string)
2152 (cons " --- " frame-title-format))
2147 org-clock-string-limit 7 ; just the clock bit 2153 org-clock-string-limit 7 ; just the clock bit
2148 ;; org-clock-string-limit 25 ; gives enough information 2154 ;; org-clock-string-limit 25 ; gives enough information
2149 org-clock-persist t 2155 org-clock-persist t
@@ -2306,7 +2312,8 @@ the default is \"/\"."
2306 (el-patch-swap 2312 (el-patch-swap
2307 (org-add-props 2313 (org-add-props
2308 head nil 'face 2314 head nil 'face
2309 (nth (% n org-n-level-faces) org-level-faces)) 2315 (nth (% n org-n-level-faces)
2316 org-level-faces))
2310 head)) 2317 head))
2311 separator)))) 2318 separator))))
2312 (when (> (length fpath) width) 2319 (when (> (length fpath) width)
diff --git a/lisp/acdw-circe.el b/lisp/acdw-circe.el index 958ef38..a45c6ff 100644 --- a/lisp/acdw-circe.el +++ b/lisp/acdw-circe.el
@@ -17,7 +17,10 @@ message the current topic."
17 (interactive "p") 17 (interactive "p")
18 (let ((topic 18 (let ((topic
19 (save-excursion 19 (save-excursion
20 (re-search-backward (rx "*** Topic for #" (+ (or word "-")) ": ")) 20 (goto-char (point-max))
21 (or (re-search-backward (rx "*** Topic change" (+ (not ":")) ": "))
22 (re-search-backward
23 (rx "*** Topic for #" (+ (or word "-")) ": ")))
21 (buffer-substring-no-properties 24 (buffer-substring-no-properties
22 (match-end 0) (line-end-position))))) 25 (match-end 0) (line-end-position)))))
23 (when message 26 (when message