From 32964b40b3ecb186816852af0e1b6133aa4bf7d1 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 16 Sep 2020 20:22:50 -0500
Subject: Change acdw/at-* variables to constants with earmuffs

---
 init.el | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index a1983d2..1680c74 100644
--- a/init.el
+++ b/init.el
@@ -34,7 +34,7 @@
 (use-package better-defaults
   :demand
   :config ; add other "better defaults" of my own
-  (when acdw/at-larry
+  (when *acdw/at-larry*
     (setq visible-bell nil))
 
   (setq version-control t)
@@ -122,7 +122,7 @@
 
 ;; start the server when at home
 
-(if (not acdw/at-work)
+(if *acdw/at-home*
     (server-start))
 
 ;;; quality-of-life improvements
@@ -195,12 +195,12 @@
   (prog-mode-hook . aggressive-indent-mode))
 
 (use-package magit
-  :if (not acdw/at-work)
+  :if *acdw/at-home*
   :bind
   ("C-x g" . magit))
 
 (use-package forge
-  :if (not acdw/at-work)
+  :if *acdw/at-home*
   :after magit
   :custom
   (forge-owned-accounts '(("duckwork"))))
@@ -229,7 +229,7 @@
   ("C-h F" . helpful-function)
   ("C-h C" . helpful-command))
 
-(unless acdw/at-work
+(when *acdw/at-home*
   (use-package su
     :config
     (su-mode))
@@ -273,7 +273,7 @@
   :init
   (setq doom-modeline-icon nil)
   (setq doom-modeline-enable-word-count t)
-  (when acdw/at-larry
+  (when *acdw/at-larry*
     (setq display-time-format "%R")
     (display-time-mode))
   :hook
@@ -316,12 +316,12 @@
     (enable-theme 'modus-operandi)
     (start-process-shell-command "light" nil "light -S 60"))
 
-  (if acdw/at-work
+  (if *acdw/at-work*
       (enable-theme 'modus-operandi)
     (run-at-time (nth 1 (split-string (sunrise-sunset)))
                  (* 60 60 24) #'acdw/sunrise)))
 
-(unless acdw/at-work
+(when *acdw/at-home*
   (use-package modus-vivendi-theme
     :if window-system
     :config
@@ -388,7 +388,7 @@
       (elpher-go (match-string 1)))))
 
 ;;; exwm ~ Emacs X Window Manager
-(when acdw/at-larry
+(when *acdw/at-larry*
   (use-package exwm
     :if window-system
     :demand
@@ -482,10 +482,11 @@
 
   (use-package exwm-edit)
 
-  ) ;; end of acdw/at-larry block for exwm
+  ) ;; end of *acdw/at-larry* block for exwm
 
 ;;; other applications
 (use-package circe
+  :if *acdw/at-larry*
   :init
   (defun my/fetch-password (&rest params)
     "Fetch a password from auth-sources"
-- 
cgit 1.4.1-21-gabe81