added laptop file paths

init.org

@@ -99,56 +99,61 @@
 #+END_SRC
 
 #+BEGIN_SRC emacs-lisp
-(defvar MY--PATH_USER_LOCAL  (expand-file-name "~/.emacs.d/user-local/"))
-(defvar MY--PATH_USER_GLOBAL (expand-file-name "~/.emacs.d/user-global/"))
-(pcase me/whoami
-  ("home"
-   (progn
-     (defvar MY--PATH_ORG_FILES (expand-file-name "~/Archiv/Organisieren/"))
-     (defvar MY--PATH_ORG_FILES_MOBILE (expand-file-name "~/Archiv/Organisieren/mobile/"))
-     (defvar MY--PATH_ORG_JOURNAl (expand-file-name "~/Archiv/Organisieren/Journal/"))))
-  ("work_remote"
-   (progn
-     (defvar MY--PATH_ORG_FILES   "p:/Eigene Dateien/Notizen/")
-     (defvar MY--PATH-ORG-JOURNAL "p:/Eigene Dateien/Notizen/Journal/")
-     (defvar MY--PATH_START       "p:/Eigene Dateien/Notizen/"))))
-
-(setq bookmark-default-file (concat MY--PATH_USER_LOCAL "bookmarks"))
-(setq recentf-save-file (concat MY--PATH_USER_LOCAL "recentf"))
-(setq custom-file (concat MY--PATH_USER_LOCAL "custom.el"))  ;; don't spam init.e with saved customization settings
-(setq abbrev-file-name (concat MY--PATH_USER_GLOBAL "abbrev_defs"))
-(setq backup-directory-alist `((".*" . ,temporary-file-directory)))
-(setq auto-save-file-name-transforms `((".*" ,temporary-file-directory)))
-(setq save-abbrevs 'silently)  ;; don't bother me with asking for abbrev saving
-(setq-default create-lockfiles nil) ;; disable lock files, can cause trouble in e.g. lsp-mode
-(defalias 'yes-or-no-p 'y-or-n-p) ;; answer with y and n
-(setq custom-safe-themes t) ;; don't ask me if I want to load a theme
-(setq sentence-end-double-space nil) ;; don't coun two spaces after a period as the end of a sentence.
-(delete-selection-mode t)  ;; delete selected region when typing
-(save-place-mode 1)  ;; saves position in file when it's closed
-(setq save-place-forget-unreadable-files nil)  ;; checks if file is readable before saving position
-
-(setq locale-coding-system 'utf-8)
-(set-terminal-coding-system 'utf-8)
-(set-keyboard-coding-system 'utf-8)
-(set-selection-coding-system 'utf-8)
-(if (eq system-type 'windows-nt)
-    (prefer-coding-system 'utf-8-dos)
-  (prefer-coding-system 'utf-8))
-(blink-cursor-mode -1) ;; turn off blinking cursor
-(show-paren-mode t) ;; show other part of brackets
-(column-number-mode t)
-(setq uniquify-buffer-name-style 'forward)
-(setq-default indent-tabs-mode nil) ;; avoid tabs in place of multiple spaces (they look bad in tex)
-(setq-default indicate-empty-lines t)  ;; show empty lines
-(setq scroll-margin 5  ;; smooth scrolling
-      scroll-conservatively 10000
-      scroll-preserve-screen-position 1
-      scroll-step 1)
-(global-hl-line-mode t) ;; highlight current line
-(menu-bar-mode 0)  ;; disable menu bar
-(tool-bar-mode 0)  ;; disable tool bar
-(scroll-bar-mode 0)  ;; disable scroll bar
+  (defvar MY--PATH_USER_LOCAL  (expand-file-name "~/.emacs.d/user-local/"))
+  (defvar MY--PATH_USER_GLOBAL (expand-file-name "~/.emacs.d/user-global/"))
+  (pcase me/whoami
+    ("home"
+     (progn
+       (defvar MY--PATH_ORG_FILES (expand-file-name "~/Archiv/Organisieren/"))
+       (defvar MY--PATH_ORG_FILES_MOBILE (expand-file-name "~/Archiv/Organisieren/mobile/"))
+       (defvar MY--PATH_ORG_JOURNAl (expand-file-name "~/Archiv/Organisieren/Journal/"))))
+    ("home_laptop"
+     (progn
+       (defvar MY--PATH_ORG_FILES (expand-file-name "~/Archiv/Organisieren/"))
+       (defvar MY--PATH_ORG_FILES_MOBILE (expand-file-name "~/Archiv/Organisieren/mobile/"))
+       (defvar MY--PATH_ORG_JOURNAL (expand-file-name "~/Archiv/Organisieren/Journal/"))))
+    ("work_remote"
+     (progn
+       (defvar MY--PATH_ORG_FILES   "p:/Eigene Dateien/Notizen/")
+       (defvar MY--PATH-ORG-JOURNAL "p:/Eigene Dateien/Notizen/Journal/")
+       (defvar MY--PATH_START       "p:/Eigene Dateien/Notizen/"))))
+
+  (setq bookmark-default-file (concat MY--PATH_USER_LOCAL "bookmarks"))
+  (setq recentf-save-file (concat MY--PATH_USER_LOCAL "recentf"))
+  (setq custom-file (concat MY--PATH_USER_LOCAL "custom.el"))  ;; don't spam init.e with saved customization settings
+  (setq abbrev-file-name (concat MY--PATH_USER_GLOBAL "abbrev_defs"))
+  (setq backup-directory-alist `((".*" . ,temporary-file-directory)))
+  (setq auto-save-file-name-transforms `((".*" ,temporary-file-directory)))
+  (setq save-abbrevs 'silently)  ;; don't bother me with asking for abbrev saving
+  (setq-default create-lockfiles nil) ;; disable lock files, can cause trouble in e.g. lsp-mode
+  (defalias 'yes-or-no-p 'y-or-n-p) ;; answer with y and n
+  (setq custom-safe-themes t) ;; don't ask me if I want to load a theme
+  (setq sentence-end-double-space nil) ;; don't coun two spaces after a period as the end of a sentence.
+  (delete-selection-mode t)  ;; delete selected region when typing
+  (save-place-mode 1)  ;; saves position in file when it's closed
+  (setq save-place-forget-unreadable-files nil)  ;; checks if file is readable before saving position
+
+  (setq locale-coding-system 'utf-8)
+  (set-terminal-coding-system 'utf-8)
+  (set-keyboard-coding-system 'utf-8)
+  (set-selection-coding-system 'utf-8)
+  (if (eq system-type 'windows-nt)
+      (prefer-coding-system 'utf-8-dos)
+    (prefer-coding-system 'utf-8))
+  (blink-cursor-mode -1) ;; turn off blinking cursor
+  (show-paren-mode t) ;; show other part of brackets
+  (column-number-mode t)
+  (setq uniquify-buffer-name-style 'forward)
+  (setq-default indent-tabs-mode nil) ;; avoid tabs in place of multiple spaces (they look bad in tex)
+  (setq-default indicate-empty-lines t)  ;; show empty lines
+  (setq scroll-margin 5  ;; smooth scrolling
+        scroll-conservatively 10000
+        scroll-preserve-screen-position 1
+        scroll-step 1)
+  (global-hl-line-mode t) ;; highlight current line
+  (menu-bar-mode 0)  ;; disable menu bar
+  (tool-bar-mode 0)  ;; disable tool bar
+  (scroll-bar-mode 0)  ;; disable scroll bar
 #+END_SRC
 
 Some windows specific stuff