From c05bb3a60490e64eb2848e2b14a92eee62d8f79a Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Thu, 15 Aug 2024 19:00:49 +0100
Subject: (Emacs/config)~system-name-cond -> pcase

Does the same thing but is inbuilt.
---
 Emacs/.config/emacs/config.org | 40 ++++++++--------------------------------
 1 file changed, 8 insertions(+), 32 deletions(-)

(limited to 'Emacs/.config/emacs/config.org')

diff --git a/Emacs/.config/emacs/config.org b/Emacs/.config/emacs/config.org
index 4ccdb39..5410ceb 100644
--- a/Emacs/.config/emacs/config.org
+++ b/Emacs/.config/emacs/config.org
@@ -124,31 +124,7 @@ TO-RUN is evaluated."
                 (interactive)
                 (when ,conditions ,@to-run)))))
 #+end_src
-** System specificity
-A macro that acts as a switch case on ~(system-name)~ so a user can
-write code for multiple hosts.  For me this is for my desktop and
-laptop.  Though there may be an easier solution than this, this seems
-simple enough.
-
-Note the check for the symbol ~otherwise~ which acts as the default
-case.
-#+begin_src emacs-lisp
-(defmacro system-name-cond (&rest pairs)
-  "Switch case on result of function `system-name'.
-
-Each pair in PAIRS is typed as: (string . (forms...)) where the
-string represents the system name to test, and forms being the
-consequence if true. if string is the symbol OTHERWISE, then it
-is considered the default case."
-  `(cond ,@(mapcar
-            #'(lambda (pair)
-                (cl-destructuring-bind (name . body) pair
-                  (if (eq name 'otherwise)
-                      `(t ,@body)
-                    `((string= (system-name) ,name) ,@body))))
-            pairs)))
-#+end_src
-*** Setting number of native jobs
+** Setting number of native jobs
 In [[file:early-init.el][early-init.el]] I set the number of
 native-workers to 4, which isn't necessarily optimal when
 loading/compiling the rest of this file depending on the machine I
@@ -162,10 +138,10 @@ use:
 (use-package comp
   :init
   (setq native-comp-async-jobs-number
-        (system-name-cond
-         ("newboy" 3)
-         ("oldboy" 6)
-         (otherwise 3))))
+        (pcase (system-name)
+          ("newboy" 3)
+          ("oldboy" 6)
+          (_ 3))))
 #+end_src
 ** Clean buffer list
 Clean all buffers except for those in ~+oreo/keep-buffers~.
@@ -302,9 +278,9 @@ Make font size bigger on my laptop and smaller on my desktop.
   :defer t
   :config
   (set-face-attribute 'default nil :height
-                      (system-name-cond
-                       ("newboy" 145)
-                       ("oldboy" 135))))
+                      (pcase (system-name)
+                        ("newboy" 145)
+                        ("oldboy" 135))))
 #+end_src
 ** Startup screen
 The default startup screen is quite bad in all honesty.  While for a
-- 
cgit v1.2.3-13-gbd6f