about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el35
-rw-r--r--lisp/acdw.el1
2 files changed, 18 insertions, 18 deletions
diff --git a/init.el b/init.el index 00a1707..168dc91 100644 --- a/init.el +++ b/init.el
@@ -19,8 +19,7 @@
19;;; Code: 19;;; Code:
20 20
21;;; Add `acdw.el' 21;;; Add `acdw.el'
22(push (expand-file-name "lisp/" 22(push (expand-file-name "lisp/" user-emacs-directory)
23 user-emacs-directory)
24 load-path) 23 load-path)
25(require 'acdw) 24(require 'acdw)
26 25
@@ -151,10 +150,10 @@
151;;; Startup 150;;; Startup
152(acdw/set `((inhibit-startup-screen t) 151(acdw/set `((inhibit-startup-screen t)
153 (initial-buffer-choice t) 152 (initial-buffer-choice t)
154 (initial-scratch-message ,(concat 153 (initial-scratch-message
155 ";; Howdy, " 154 ,(concat ";; Howdy, "
156 (nth 0 (split-string user-full-name)) "!" 155 (nth 0 (split-string user-full-name)) "!"
157 " Welcome to GNU Emacs.\n\n")))) 156 " Welcome to GNU Emacs.\n\n"))))
158 157
159;;; Minibuffer 158;;; Minibuffer
160 159
@@ -183,15 +182,15 @@
183 (icomplete-in-buffer t))) 182 (icomplete-in-buffer t)))
184 (acdw/pkg icomplete-vertical 183 (acdw/pkg icomplete-vertical
185 :binds (("<down>" icomplete-forward-completions 184 :binds (("<down>" icomplete-forward-completions
186 :map icomplete-minibuffer-map) 185 :map icomplete-minibuffer-map)
187 ("C-n" icomplete-forward-completions 186 ("C-n" icomplete-forward-completions
188 :map icomplete-minibuffer-map) 187 :map icomplete-minibuffer-map)
189 ("<up>" icomplete-backward-completions 188 ("<up>" icomplete-backward-completions
190 :map icomplete-minibuffer-map) 189 :map icomplete-minibuffer-map)
191 ("C-p" icomplete-backward-completions 190 ("C-p" icomplete-backward-completions
192 :map icomplete-minibuffer-map) 191 :map icomplete-minibuffer-map)
193 ("C-v" icomplete-vertical-toggle 192 ("C-v" icomplete-vertical-toggle
194 :map icomplete-minibuffer-map)) 193 :map icomplete-minibuffer-map))
195 :now ((fido-mode -1) 194 :now ((fido-mode -1)
196 (icomplete-mode +1) 195 (icomplete-mode +1)
197 (icomplete-vertical-mode +1)))) 196 (icomplete-vertical-mode +1))))
@@ -261,13 +260,13 @@
261 :host gitlab 260 :host gitlab
262 :repo "protesilaos/modus-themes") 261 :repo "protesilaos/modus-themes")
263 :now ((acdw/set `((modus-themes-slanted-constructs t) 262 :now ((acdw/set `((modus-themes-slanted-constructs t)
264 (modus-themes-bold-constructs t) 263 (modus-themes-bold-constructs t)
265 (modus-themes-region 'bg-only) 264 (modus-themes-region 'bg-only)
266 (modus-themes-org-blocks 'grayscale) 265 (modus-themes-org-blocks 'grayscale)
267 (modus-themes-headings ((1 . section) 266 (modus-themes-headings ((1 . section)
268 (t . no-color))) 267 (t . no-color)))
269 (modus-themes-scale-headings nil) 268 (modus-themes-scale-headings nil)
270 (modus-themes-mode-line nil))) 269 (modus-themes-mode-line nil)))
271 (acdw/sunrise-sunset #'modus-themes-load-operandi 270 (acdw/sunrise-sunset #'modus-themes-load-operandi
272 #'modus-themes-load-vivendi)) 271 #'modus-themes-load-vivendi))
273 :then 272 :then
diff --git a/lisp/acdw.el b/lisp/acdw.el index 268b9d1..971eabe 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el
@@ -22,6 +22,7 @@
22;;; Code: 22;;; Code:
23 23
24;;; Utilities 24;;; Utilities
25
25(defun acdw/when-unfocused (func &rest args) 26(defun acdw/when-unfocused (func &rest args)
26 "Call FUNC, with ARGS, iff all Emacs frames are out of focus. 27 "Call FUNC, with ARGS, iff all Emacs frames are out of focus.
27 28