Turn off activitywatch when on laptop to save resources

README.org

@@ -1982,7 +1982,9 @@ Matrix.el is a decent enough matrix client built in emacs. Like it.
 I like to track my time with ActivityWatch so I can notice and kill bad habits.
 #+begin_src emacs-lisp
 (use-package activity-watch-mode
-  :init (global-activity-watch-mode))
+  :init
+  (if (string-equal (system-name) "syl")
+      (global-activity-watch-mode)))
 #+end_src
 
 ** MyBible

init.el

@@ -2,9 +2,9 @@
 (defun chris/display-startup-time ()
   (message "Emacs loaded in %s with %d garbage collections."
            (format "%.2f seconds"
-                   (float-time
+                 (float-time
-                    (time-subtract after-init-time before-init-time)))
+                (time-subtract after-init-time before-init-time)))
-           gcs-done))
+         gcs-done))
 (add-hook 'emacs-startup-hook #'chris/display-startup-time)
 
 (setq inhibit-startup-message t)
@@ -48,7 +48,7 @@
                 (with-selected-frame frame
                   (chris/set-font-faces)
                   (chris/set-transparency)))
-              (chris/set-font-faces))
+  (chris/set-font-faces))
   (chris/set-transparency))
 
 (setq display-line-numbers-type 'relative)
@@ -65,7 +65,7 @@
 ;; ...especially on linux
 (setq x-gtk-use-system-tooltips nil)
 
-;; Favor vertical splits over horizontal ones. Screens are usually wide.
+ ;; Favor vertical splits over horizontal ones. Screens are usually wide.
 (setq split-width-threshold 160
       split-height-threshold nil)
 
@@ -99,8 +99,8 @@
 (straight-use-package 'use-package)
 (setq use-package-verbose t)
 
-(use-package command-log-mode
+  (use-package command-log-mode
-  :commands command-log-mode)
+    :commands command-log-mode)
 
 (use-package all-the-icons)
 
@@ -293,19 +293,19 @@
 
   ;; We need to fix selectrums minibuffer handling for Emacs 28
   (defun selectrum--set-window-height (window &optional height)
-    "Set window height of WINDOW to HEIGHT pixel.
+  "Set window height of WINDOW to HEIGHT pixel.
 If HEIGHT is not given WINDOW will be updated to fit its content
 vertically."
-    (let* ((lines (length
+  (let* ((lines (length
-                   (split-string
+                 (split-string
-                    (overlay-get selectrum--candidates-overlay 'after-string)
+                  (overlay-get selectrum--candidates-overlay 'after-string)
-                    "\n" t)))
+                  "\n" t)))
-           (dheight (or height
+         (dheight (or height
-                        (* lines selectrum--line-height)))
+                      (* lines selectrum--line-height)))
-           (wheight (window-pixel-height window))
+         (wheight (window-pixel-height window))
-           (window-resize-pixelwise t))
+         (window-resize-pixelwise t))
-      (window-resize
+    (window-resize
-       window (- dheight wheight) nil nil 'pixelwise)))
+     window (- dheight wheight) nil nil 'pixelwise)))
   :general
   ('selectrum-minibuffer-map
    "C-j" 'selectrum-next-candidate
@@ -338,10 +338,10 @@ vertically."
 
 (use-package marginalia
   :bind (:map minibuffer-local-map
-              ("C-M-a" . marginalia-cycle)
+         ("C-M-a" . marginalia-cycle)
-              ;; :map embark-general-map
+         ;; :map embark-general-map
-              ;;     ("A" . marginalia-cycle)
+         ;;     ("A" . marginalia-cycle)
-              )
+         )
 
   ;; The :init configuration is always executed (Not lazy!)
   :init
@@ -449,7 +449,7 @@ vertically."
 
 (use-package friar 
   :straight (:host github :repo "warreq/friar" :branch "master"
-                   :files (:defaults "*.lua" "*.fnl"))
+             :files (:defaults "*.lua" "*.fnl"))
   :after fennel-mode)
 
 (use-package yaml-mode
@@ -767,17 +767,17 @@ vertically."
   :after org
   :init
   (setq org-super-agenda-groups '((:name "Today"
-                                         :time-grid t
+                                   :time-grid t
-                                         :scheduled today)
+                                   :scheduled today)
                                   (:name "Due Today"
-                                         :deadline today)
+                                   :deadline today)
                                   (:name "Important"
-                                         :priority "A")
+                                   :priority "A")
                                   (:name "Overdue"
-                                         :time-grid t
+                                   :time-grid t
-                                         :scheduled today)
+                                   :scheduled today)
                                   (:name "Due soon"
-                                         :deadline future)))
+                                   :deadline future)))
   :config
   (org-super-agenda-mode)
   (setq org-super-agenda-header-map nil))
@@ -1276,20 +1276,20 @@ If on a:
   (add-hook 'eshell-mode-hook '(display-line-numbers-mode -1))
 
   (setq eshell-command-aliases-list
-        '(("ls" "exa $1")
+      '(("ls" "exa $1")
-          ("la" "exa -la $1")
+        ("la" "exa -la $1")
-          ("q" "exit")
+        ("q" "exit")
-          ("f" "find-file $1")
+        ("f" "find-file $1")
-          ("ff" "find-file $1")
+        ("ff" "find-file $1")
-          ("d" "dired $1")
+        ("d" "dired $1")
-          ("bd" "eshell-up $1")
+        ("bd" "eshell-up $1")
-          ("rg" "rg --color=always $*")
+        ("rg" "rg --color=always $*")
-          ("ll" "ls -lah $*")
+        ("ll" "ls -lah $*")
-          ("gg" "magit-status")
+        ("gg" "magit-status")
-          ("clear" "clear-scrollback")
+        ("clear" "clear-scrollback")
-          ("!c" "eshell-previous-input 2")
+        ("!c" "eshell-previous-input 2")
-          ("yay" "paru")
+        ("yay" "paru")
-          ("yeet" "paru -Rns")))
+        ("yeet" "paru -Rns")))
 
   :general
   (chris/leader-keys
@@ -1304,8 +1304,8 @@ If on a:
 
 (use-package pdf-tools
   :straight (:host github
-                   :repo "flatwhatson/pdf-tools"
+                 :repo "flatwhatson/pdf-tools"
-                   :branch "fix-macros")
+                 :branch "fix-macros")
   :defer 1
   :config
   (pdf-tools-install)
@@ -1464,11 +1464,11 @@ interfere with the default `bongo-playlist-buffer'."
                                        transmission-files-mode
                                        transmission-info-mode
                                        transmission-peers-mode)))
-  :general
+    :general
-  (chris/leader-keys
+    (chris/leader-keys
-    :states 'normal
+      :states 'normal
-    :keymaps 'override
+      :keymaps 'override
-    "ot" 'transmission))
+      "ot" 'transmission))
 
 (use-package auth-source-pass
   :defer 1
@@ -1490,7 +1490,9 @@ interfere with the default `bongo-playlist-buffer'."
     "st" 'password-store-otp-token-copy))
 
 (use-package activity-watch-mode
-  :init (global-activity-watch-mode))
+  :init
+  (if (string-equal (system-name) "syl")
+      (global-activity-watch-mode)))
 
 ;; Reduce rendering/line scan work for Emacs by not rendering cursors or regions
 ;; in non-focused windows.