Add at-work and at-home macros

Once I figure out what else I might want to determine, and how I’d want to specify
them, I might turn these into a more general macro ‘when-at’, the second argument of
which would be a keyword (defined where?) that would specify how to tell where we
are (a predicate?).

1 files changed, 20 insertions, 2 deletions

@@ -5,7 +5,7 @@
 #+EXPORT_FILE_NAME: README.md
 #+OPTIONS: toc:nil
 #+BANKRUPTCY_COUNT: 3.2
-#+Time-stamp: <2021-01-03 14:46:41 acdw>
+#+Time-stamp: <2021-01-04 13:39:13 acdw>
 
 * Basics
 
@@ -138,6 +138,24 @@ This comes in handy when I want to garbage collect, say, or save recent files.
             (apply func args)))
     #+end_src
 
+*** Determine where I am
+
+I use Emacs at home, with Linux, and at work, with Windows.
+
+#+begin_src emacs-lisp
+  (defmacro at-work (&rest commands)
+    "Only do COMMANDS when at work."
+    (declare (indent defun))
+    `(when (memq system-type '(ms-dos windows-nt))
+       ,@commands))
+
+  (defmacro at-home (&rest commands)
+    "Only do COMMANDS when at home."
+    (declare (indent defun))
+    `(when (memq system-type '(gnu gnu/linux gnu/kfreebsd))
+       ,@commands))
+#+end_src
+
 ** Clean =.emacs.d=
 
 #+BEGIN_SRC emacs-lisp
@@ -1528,7 +1546,7 @@ I’m only enabling this at home for now, since it requires building stuff.
     "Disable `visual-fill-column-mode'."
     (visual-fill-column-mode -1))
 
-  (when (memq system-type '(gnu/linux))
+  (at-home
     (straight-use-package 'pdf-tools)
     (pdf-loader-install)