From 01a3612932aec78eb39376dfbc36c89f9726951c Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Thu, 11 Mar 2021 12:04:45 -0600 Subject: Whitespace --- init.el | 35 +++++++++++++++++------------------ lisp/acdw.el | 1 + 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 @@ ;;; Code: ;;; Add `acdw.el' -(push (expand-file-name "lisp/" - user-emacs-directory) +(push (expand-file-name "lisp/" user-emacs-directory) load-path) (require 'acdw) @@ -151,10 +150,10 @@ ;;; Startup (acdw/set `((inhibit-startup-screen t) (initial-buffer-choice t) - (initial-scratch-message ,(concat - ";; Howdy, " - (nth 0 (split-string user-full-name)) "!" - " Welcome to GNU Emacs.\n\n")))) + (initial-scratch-message + ,(concat ";; Howdy, " + (nth 0 (split-string user-full-name)) "!" + " Welcome to GNU Emacs.\n\n")))) ;;; Minibuffer @@ -183,15 +182,15 @@ (icomplete-in-buffer t))) (acdw/pkg icomplete-vertical :binds (("" icomplete-forward-completions - :map icomplete-minibuffer-map) + :map icomplete-minibuffer-map) ("C-n" icomplete-forward-completions - :map icomplete-minibuffer-map) + :map icomplete-minibuffer-map) ("" icomplete-backward-completions - :map icomplete-minibuffer-map) + :map icomplete-minibuffer-map) ("C-p" icomplete-backward-completions - :map icomplete-minibuffer-map) + :map icomplete-minibuffer-map) ("C-v" icomplete-vertical-toggle - :map icomplete-minibuffer-map)) + :map icomplete-minibuffer-map)) :now ((fido-mode -1) (icomplete-mode +1) (icomplete-vertical-mode +1)))) @@ -261,13 +260,13 @@ :host gitlab :repo "protesilaos/modus-themes") :now ((acdw/set `((modus-themes-slanted-constructs t) - (modus-themes-bold-constructs t) - (modus-themes-region 'bg-only) - (modus-themes-org-blocks 'grayscale) - (modus-themes-headings ((1 . section) - (t . no-color))) - (modus-themes-scale-headings nil) - (modus-themes-mode-line nil))) + (modus-themes-bold-constructs t) + (modus-themes-region 'bg-only) + (modus-themes-org-blocks 'grayscale) + (modus-themes-headings ((1 . section) + (t . no-color))) + (modus-themes-scale-headings nil) + (modus-themes-mode-line nil))) (acdw/sunrise-sunset #'modus-themes-load-operandi #'modus-themes-load-vivendi)) :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 @@ ;;; Code: ;;; Utilities + (defun acdw/when-unfocused (func &rest args) "Call FUNC, with ARGS, iff all Emacs frames are out of focus. -- cgit 1.4.1-21-gabe81