summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el20
1 files changed, 12 insertions, 8 deletions
diff --git a/init.el b/init.el index 8cad956..ef197c9 100644 --- a/init.el +++ b/init.el
@@ -1117,7 +1117,7 @@ specific to most general, they are these:
1117 (:with-mode circe-chat-mode 1117 (:with-mode circe-chat-mode
1118 (:hook #'acdw/stop-paren-annoyances 1118 (:hook #'acdw/stop-paren-annoyances
1119 #'enable-circe-color-nicks 1119 #'enable-circe-color-nicks
1120 #'enable-circe-display-images 1120 ;; #'enable-circe-display-images
1121 #'enable-circe-new-day-notifier 1121 #'enable-circe-new-day-notifier
1122 (defun circe-chat@set-prompt () 1122 (defun circe-chat@set-prompt ()
1123 (lui-set-prompt 1123 (lui-set-prompt
@@ -1826,8 +1826,8 @@ browser defined in `browse-url-secondary-browser-function'."
1826 1826
1827(setup (:straight org 1827(setup (:straight org
1828 org-contrib) 1828 org-contrib)
1829 (:also-load acdw-org ; so I don't clutter up init.el 1829 (:also-load acdw-org)
1830 chd) 1830 (require 'chd nil 'noerror)
1831 (:option 1831 (:option
1832 org-adapt-indentation nil 1832 org-adapt-indentation nil
1833 org-agenda-files nil ; only until I set this up 1833 org-agenda-files nil ; only until I set this up
@@ -1911,7 +1911,8 @@ browser defined in `browse-url-secondary-browser-function'."
1911 1911
1912 (el-patch-feature org) 1912 (el-patch-feature org)
1913 (with-eval-after-load 'org 1913 (with-eval-after-load 'org
1914 (el-patch-defun org-format-outline-path (path &optional width prefix separator) 1914 (el-patch-defun org-format-outline-path (path &optional
1915 width prefix separator)
1915 "Format the outline path PATH for display. 1916 "Format the outline path PATH for display.
1916WIDTH is the maximum number of characters that is available. 1917WIDTH is the maximum number of characters that is available.
1917PREFIX is a prefix to be included in the returned string, 1918PREFIX is a prefix to be included in the returned string,
@@ -1932,8 +1933,8 @@ the default is \"/\"."
1932 for n from 0 1933 for n from 0
1933 collect (el-patch-swap 1934 collect (el-patch-swap
1934 (org-add-props 1935 (org-add-props
1935 head nil '`face 1936 head nil 'face
1936 (nth (% n org-n-level-faces) org-level-faces)) 1937 (nth (% n org-n-level-faces) org-level-faces))
1937 head)) 1938 head))
1938 separator)))) 1939 separator))))
1939 (when (> (length fpath) width) 1940 (when (> (length fpath) width)
@@ -2064,8 +2065,11 @@ the default is \"/\"."
2064 left 2065 left
2065 (propertize " " 2066 (propertize " "
2066 'display (el-patch-swap 2067 'display (el-patch-swap
2067 `(space :align-to (- right ,reserve)) 2068 `((space :align-to (- right ,reserve)))
2068 `(space :align-to (- right (- 0 right-margin) ,reserve))) 2069 `((space :align-to
2070 (- right
2071 (- 1 right-fringe right-margin)
2072 ,reserve))))
2069 'face '(:inherit simple-modeline-space)) 2073 'face '(:inherit simple-modeline-space))
2070 right)))) 2074 right))))
2071 2075