diff options
-rw-r--r-- | init.el | 21 |
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" |