about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el21
1 files changed, 11 insertions, 10 deletions
diff --git a/init.el b/init.el index a1983d2..1680c74 100644 --- a/init.el +++ b/init.el
@@ -34,7 +34,7 @@
34(use-package better-defaults 34(use-package better-defaults
35 :demand 35 :demand
36 :config ; add other "better defaults" of my own 36 :config ; add other "better defaults" of my own
37 (when acdw/at-larry 37 (when *acdw/at-larry*
38 (setq visible-bell nil)) 38 (setq visible-bell nil))
39 39
40 (setq version-control t) 40 (setq version-control t)
@@ -122,7 +122,7 @@
122 122
123;; start the server when at home 123;; start the server when at home
124 124
125(if (not acdw/at-work) 125(if *acdw/at-home*
126 (server-start)) 126 (server-start))
127 127
128;;; quality-of-life improvements 128;;; quality-of-life improvements
@@ -195,12 +195,12 @@
195 (prog-mode-hook . aggressive-indent-mode)) 195 (prog-mode-hook . aggressive-indent-mode))
196 196
197(use-package magit 197(use-package magit
198 :if (not acdw/at-work) 198 :if *acdw/at-home*
199 :bind 199 :bind
200 ("C-x g" . magit)) 200 ("C-x g" . magit))
201 201
202(use-package forge 202(use-package forge
203 :if (not acdw/at-work) 203 :if *acdw/at-home*
204 :after magit 204 :after magit
205 :custom 205 :custom
206 (forge-owned-accounts '(("duckwork")))) 206 (forge-owned-accounts '(("duckwork"))))
@@ -229,7 +229,7 @@
229 ("C-h F" . helpful-function) 229 ("C-h F" . helpful-function)
230 ("C-h C" . helpful-command)) 230 ("C-h C" . helpful-command))
231 231
232(unless acdw/at-work 232(when *acdw/at-home*
233 (use-package su 233 (use-package su
234 :config 234 :config
235 (su-mode)) 235 (su-mode))
@@ -273,7 +273,7 @@
273 :init 273 :init
274 (setq doom-modeline-icon nil) 274 (setq doom-modeline-icon nil)
275 (setq doom-modeline-enable-word-count t) 275 (setq doom-modeline-enable-word-count t)
276 (when acdw/at-larry 276 (when *acdw/at-larry*
277 (setq display-time-format "%R") 277 (setq display-time-format "%R")
278 (display-time-mode)) 278 (display-time-mode))
279 :hook 279 :hook
@@ -316,12 +316,12 @@
316 (enable-theme 'modus-operandi) 316 (enable-theme 'modus-operandi)
317 (start-process-shell-command "light" nil "light -S 60")) 317 (start-process-shell-command "light" nil "light -S 60"))
318 318
319 (if acdw/at-work 319 (if *acdw/at-work*
320 (enable-theme 'modus-operandi) 320 (enable-theme 'modus-operandi)
321 (run-at-time (nth 1 (split-string (sunrise-sunset))) 321 (run-at-time (nth 1 (split-string (sunrise-sunset)))
322 (* 60 60 24) #'acdw/sunrise))) 322 (* 60 60 24) #'acdw/sunrise)))
323 323
324(unless acdw/at-work 324(when *acdw/at-home*
325 (use-package modus-vivendi-theme 325 (use-package modus-vivendi-theme
326 :if window-system 326 :if window-system
327 :config 327 :config
@@ -388,7 +388,7 @@
388 (elpher-go (match-string 1))))) 388 (elpher-go (match-string 1)))))
389 389
390;;; exwm ~ Emacs X Window Manager 390;;; exwm ~ Emacs X Window Manager
391(when acdw/at-larry 391(when *acdw/at-larry*
392 (use-package exwm 392 (use-package exwm
393 :if window-system 393 :if window-system
394 :demand 394 :demand
@@ -482,10 +482,11 @@
482 482
483 (use-package exwm-edit) 483 (use-package exwm-edit)
484 484
485 ) ;; end of acdw/at-larry block for exwm 485 ) ;; end of *acdw/at-larry* block for exwm
486 486
487;;; other applications 487;;; other applications
488(use-package circe 488(use-package circe
489 :if *acdw/at-larry*
489 :init 490 :init
490 (defun my/fetch-password (&rest params) 491 (defun my/fetch-password (&rest params)
491 "Fetch a password from auth-sources" 492 "Fetch a password from auth-sources"