diff --git a/init.org b/init.org index d3bfd50..ed05181 100644 --- a/init.org +++ b/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