code cleanup

config.org

@@ -727,27 +727,27 @@ echo 'cleaned .elc from package directory'
     Paths need to be different for work and home
 
 #+BEGIN_SRC emacs-lisp
-(if (string-equal my/whoami "work_remote")
-    (progn
-      (defvar PATH_ORG_FILES   "p:/Eigene Dateien/Notizen/")
-      (defvar PATH_ORG_JOURNAL "p:/Eigene Dateien/Notizen/Journal/")
-      (defvar PATH_START       "p:/Eigene Dateien/Notizen/"))
+(pcase my/whoami
+  "work_remote"
+  (progn
+    (defvar PATH_ORG_FILES   "p:/Eigene Dateien/Notizen/")
+    (defvar PATH_ORG_JOURNAL "p:/Eigene Dateien/Notizen/Journal/")
+    (defvar PATH_START       "p:/Eigene Dateien/Notizen/"))
+  "home"
+  (progn
+    (setq org-default-notes-file "~/Archiv/Dokumente/Notizen/notes.org")
+    (setq org-agenda-files
+          (delq nil
+                (mapcar (lambda (x) (and (file-exists-p x) x))
+                        '("~/Archiv/Dokumente/Agenda")))))
+  "work_remote"
+  (progn
+    (setq org-default-notes-file (concat PATH_ORG_FILES "notes.org"))
+    (setq org-agenda-files (list(concat PATH_ORG_FILES "notes.org")
+                                (concat PATH_ORG_FILES "projects.org")
+                                (concat PATH_ORG_FILES "todo.org"))))
 )
 
-(if (string-equal my/whoami "home")
-    (progn
-      (setq org-default-notes-file "~/Archiv/Dokumente/Notizen/notes.org")
-      (setq org-agenda-files
-            (delq nil
-                  (mapcar (lambda (x) (and (file-exists-p x) x))
-                          '("~/Archiv/Dokumente/Agenda")))))
-  (if (string-equal my/whoami "work_remote")
-      (progn
-        (setq org-default-notes-file (concat PATH_ORG_FILES "notes.org"))
-        (setq org-agenda-files (list(concat PATH_ORG_FILES "notes.org")
-                                       (concat PATH_ORG_FILES "projects.org")
-                                       (concat PATH_ORG_FILES "todo.org"))))))
-
 (setq org-id-locations-file (concat PATH_USER_LOCAL ".org-id-locations"))
 #+END_SRC