marc
/
config_emacs
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
Browse Source

more fixes for elpaca and windows

master
Marc 11 months ago
parent
61fb1b4fb7
commit
1885ee5213
1 changed files with 116 additions and 124 deletions
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 240
      config.org

240
config.org
View File

@ -74,7 +74,72 @@ https://blog.d46.us/advanced-emacs-startup/
;(setq gc-cons-threshold (* 50 1000 1000)) ;(setq gc-cons-threshold (* 50 1000 1000))
#+end_src #+end_src
* Package Management
* Default settings
** paths
#+BEGIN_SRC emacs-lisp
(defconst *sys/gui*
(display-graphic-p)
"Is emacs running in a gui?")
(defconst *sys/linux*
(string-equal system-type 'gnu/linux)
"Is the system running Linux?")
(defconst *sys/windows*
(string-equal system-type 'windows-nt)
"Is the system running Windows?")
(defconst *home_desktop*
(string-equal (system-name) "marc")
"Is emacs running on my desktop?")
(defconst *home_laptop*
(string-equal (system-name) "laptop")
"Is emacs running on my laptop?")
(defconst *work_local*
(string-equal (system-name) "PMPCNEU08")
"Is emacs running at work on the local system?")
(defconst *work_remote*
(or (string-equal (system-name) "PMTS01")
(string-equal (system-name) "PMTSNEU01"))
"Is emacs running at work on the remote system?")
#+END_SRC
#+BEGIN_SRC emacs-lisp
(defvar MY--PATH_USER_LOCAL (concat user-emacs-directory "user-local/"))
(defvar MY--PATH_USER_GLOBAL (concat user-emacs-directory "user-global/"))
(add-to-list 'custom-theme-load-path (concat MY--PATH_USER_GLOBAL "themes"))
(when *sys/linux*
(defconst MY--PATH_ORG_FILES (expand-file-name "~/Archiv/Organisieren/"))
(defconst MY--PATH_ORG_FILES_MOBILE (expand-file-name "~/Archiv/Organisieren/mobile/"))
(defconst MY--PATH_ORG_JOURNAl (expand-file-name "~/Archiv/Organisieren/Journal/"))
(defconst MY--PATH_ORG_ROAM (file-truename "~/Archiv/Organisieren/")))
(when *work_remote*
(defconst MY--PATH_ORG_FILES "p:/Eigene Dateien/Notizen/")
(defconst MY--PATH_ORG_FILES_MOBILE nil) ;; hacky way to prevent "free variable" compiler error
(defconst MY--PATH_ORG_JOURNAL nil) ;; hacky way to prevent "free variable" compiler error
(defconst MY--PATH_START "p:/Eigene Dateien/Notizen/")
(defconst MY--PATH_ORG_ROAM (expand-file-name "p:/Eigene Dateien/Notizen/")))
(setq custom-file (concat MY--PATH_USER_LOCAL "custom.el")) ;; don't spam init.e with saved customization settings
(setq backup-directory-alist `((".*" . ,temporary-file-directory)))
(setq auto-save-file-name-transforms `((".*" ,temporary-file-directory)))
(customize-set-variable 'auth-sources (list (concat MY--PATH_USER_LOCAL "authinfo")
(concat MY--PATH_USER_LOCAL "authinfo.gpg")
(concat MY--PATH_USER_LOCAL "netrc")))
#+end_src
** Browser
#+begin_src emacs-lisp
(setq browse-url-function 'browse-url-generic
browse-url-generic-program "firefox")
#+end_src* Package Management
** Elpaca ** Elpaca
Boilerplate for Elpaca Boilerplate for Elpaca
#+begin_src emacs-lisp #+begin_src emacs-lisp
@ -118,8 +183,10 @@ Boilerplate for Elpaca
For Windows it might be necessary to disable symlink creations For Windows it might be necessary to disable symlink creations
#+begin_src emacs-lisp #+begin_src emacs-lisp
;;(elpaca-no-symlink-mode)
(when *work_remote*
(elpaca-no-symlink-mode))
#+end_src #+end_src
use-package integration use-package integration
#+begin_src emacs-lisp #+begin_src emacs-lisp
(elpaca elpaca-use-package (elpaca elpaca-use-package
@ -199,6 +266,27 @@ Needs to be loaded before any other package which uses the :general keyword
(elpaca-wait) (elpaca-wait)
#+END_SRC #+END_SRC
* sane defaults
#+begin_src emacs-lisp
(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
(use-package saveplace
:elpaca nil
:config
(save-place-mode 1) ;; saves position in file when it's closed
:custom
(save-place-file (concat MY--PATH_USER_LOCAL "places")))
(setq save-place-forget-unreadable-files nil) ;; checks if file is readable before saving position
(global-set-key (kbd "RET") 'newline-and-indent) ;; indent after newline
(setq save-interprogram-paste-before-kill t) ;; put replaced text into killring
;; https://emacs.stackexchange.com/questions/3673/how-to-make-vc-and-magit-treat-a-symbolic-link-to-a-real-file-in-git-repo-just
(setq find-file-visit-truename t) ;; some programs like lsp have trouble following symlinks, maybe vc-follow-symlinks would be enough
#+END_SRC
* Performance Optimization * Performance Optimization
** Garbage Collection ** Garbage Collection
Make startup faster by reducing the frequency of garbage collection. Make startup faster by reducing the frequency of garbage collection.
@ -246,91 +334,7 @@ Restore it to reasonable value after init. Also stop garbage collection during m
;; than the system default. ;; than the system default.
(setq frame-inhibit-implied-resize t) (setq frame-inhibit-implied-resize t)
#+end_src #+end_src
* Default settings
** paths
#+BEGIN_SRC emacs-lisp
(defconst *sys/gui*
(display-graphic-p)
"Is emacs running in a gui?")
(defconst *sys/linux*
(string-equal system-type 'gnu/linux)
"Is the system running Linux?")
(defconst *sys/windows*
(string-equal system-type 'windows-nt)
"Is the system running Windows?")
(defconst *home_desktop*
(string-equal (system-name) "marc")
"Is emacs running on my desktop?")
(defconst *home_laptop*
(string-equal (system-name) "laptop")
"Is emacs running on my laptop?")
(defconst *work_local*
(string-equal (system-name) "PMPCNEU08")
"Is emacs running at work on the local system?")
(defconst *work_remote*
(or (string-equal (system-name) "PMTS01")
(string-equal (system-name) "PMTSNEU01"))
"Is emacs running at work on the remote system?")
#+END_SRC
#+BEGIN_SRC emacs-lisp
(defvar MY--PATH_USER_LOCAL (concat user-emacs-directory "user-local/"))
(defvar MY--PATH_USER_GLOBAL (concat user-emacs-directory "user-global/"))
(add-to-list 'custom-theme-load-path (concat MY--PATH_USER_GLOBAL "themes"))
(when *sys/linux*
(defconst MY--PATH_ORG_FILES (expand-file-name "~/Archiv/Organisieren/"))
(defconst MY--PATH_ORG_FILES_MOBILE (expand-file-name "~/Archiv/Organisieren/mobile/"))
(defconst MY--PATH_ORG_JOURNAl (expand-file-name "~/Archiv/Organisieren/Journal/"))
(defconst MY--PATH_ORG_ROAM (file-truename "~/Archiv/Organisieren/")))
(when *work_remote*
(defconst MY--PATH_ORG_FILES "p:/Eigene Dateien/Notizen/")
(defconst MY--PATH_ORG_FILES_MOBILE nil) ;; hacky way to prevent "free variable" compiler error
(defconst MY--PATH_ORG_JOURNAL nil) ;; hacky way to prevent "free variable" compiler error
(defconst MY--PATH_START "p:/Eigene Dateien/Notizen/")
(defconst MY--PATH_ORG_ROAM (expand-file-name "p:/Eigene Dateien/Notizen/")))
(setq custom-file (concat MY--PATH_USER_LOCAL "custom.el")) ;; don't spam init.e with saved customization settings
(setq backup-directory-alist `((".*" . ,temporary-file-directory)))
(setq auto-save-file-name-transforms `((".*" ,temporary-file-directory)))
(customize-set-variable 'auth-sources (list (concat MY--PATH_USER_LOCAL "authinfo")
(concat MY--PATH_USER_LOCAL "authinfo.gpg")
(concat MY--PATH_USER_LOCAL "netrc")))
#+end_src
** sane defaults
#+begin_src emacs-lisp
(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
(use-package saveplace
:elpaca nil
:config
(save-place-mode 1) ;; saves position in file when it's closed
:custom
(save-place-file (concat MY--PATH_USER_LOCAL "places")))
(setq save-place-forget-unreadable-files nil) ;; checks if file is readable before saving position
(global-set-key (kbd "RET") 'newline-and-indent) ;; indent after newline
(setq save-interprogram-paste-before-kill t) ;; put replaced text into killring
;; https://emacs.stackexchange.com/questions/3673/how-to-make-vc-and-magit-treat-a-symbolic-link-to-a-real-file-in-git-repo-just
(setq find-file-visit-truename t) ;; some programs like lsp have trouble following symlinks, maybe vc-follow-symlinks would be enough
#+END_SRC
** Browser
#+begin_src emacs-lisp
(setq browse-url-function 'browse-url-generic
browse-url-generic-program "firefox")
#+end_src
* Appearance * Appearance
** Defaults ** Defaults
#+begin_src emacs-lisp #+begin_src emacs-lisp
@ -1310,7 +1314,11 @@ Bei Problemen wie unique constraint
org-roam-db-clear-all org-roam-db-clear-all
org-roam-db-sync org-roam-db-sync
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package org-roam
(use-package emacsql-sqlite-builtin
:ensure t)
(use-package org-roam
:requires emacsql-sqlite-builtin
:ensure t :ensure t
:defer 2 :defer 2
:after org :after org
@ -1466,8 +1474,8 @@ If nil it defaults to `split-string-default-separators', normally
(org-roam-db-autosync-mode) (org-roam-db-autosync-mode)
;; build the agenda list the first ime for the session ;; build the agenda list the first ime for the session
(my/org-roam-refresh-agenda-list) (my/org-roam-refresh-agenda-list)
:custom :custom
(org-roam-database-connector 'sqlite-builtin)
(org-roam-directory MY--PATH_ORG_ROAM) (org-roam-directory MY--PATH_ORG_ROAM)
(org-roam-completion-everywhere t) (org-roam-completion-everywhere t)
(org-roam-capture-templates (org-roam-capture-templates
@ -1480,6 +1488,26 @@ If nil it defaults to `split-string-default-separators', normally
:if-new (file+head "ideas/%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n") :if-new (file+head "ideas/%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n")
:unnarrowed t) :unnarrowed t)
)) ))
(when *work_remote*
(org-roam-capture-templates
'(("ß""telephone call" plain
"*** [%<%Y-%m-%d %H:%M>] ${title}\n :PROPERTIES:\n :ID: %(org-id-uuid)\n:END:\n"
:target (file+olp "p:/Eigene Dateien/Notizen/phone_calls.org"
("2023" "11")))
("x" "telephone call" plain
"%?"
:target (file+head "telephone/%<%Y%m%d%H%M>-${slug}.org" "#+title: CALL %<%Y-%m-%d %H:%M> ${title}\n")
:unnarrowed t)
("p" "project" plain
"%?"
:target (file+head "projects/${slug}.org" "#+title: ${title}\n#+filetags: :project:\n")
:unnarrowed t)
("s" "Sicherheitenmeldung" plain
"*** TODO [#A] Sicherheitenmeldung ${title}\n :PROPERTIES:\n :ID: %(org-id-uuid)\n:END:\n%u\n"
:target (file+olp "tasks.org" ("Todos" "Sicherheitenmeldungen")))
("m" "Monatsbericht" plain
"*** TODO [#A] Monatsbericht ${title}\n :PROPERTIES:\n :ID: %(org-id-uuid)\n:END:\n%u\n"
:target (file+olp "tasks.org" ("Todos" "Monatsberichte"))))))
:bind (("C-c n l" . org-roam-buffer-toggle) :bind (("C-c n l" . org-roam-buffer-toggle)
("C-c n f" . org-roam-node-find) ("C-c n f" . org-roam-node-find)
("C-c n i" . org-roam-node-insert) ("C-c n i" . org-roam-node-insert)
@ -1491,42 +1519,6 @@ If nil it defaults to `split-string-default-separators', normally
:bind-keymap :bind-keymap
("C-c n d" . org-roam-dailies-map)) ("C-c n d" . org-roam-dailies-map))
(when *sys/windows*
(use-package emacsql-sqlite3
:ensure t
:init
(setq emacsql-sqlite3-binary "P:/Tools/sqlite/sqlite3.exe"
exec-path (append exec-path '("P:/Tools/sqlite"))))
(use-package org-roam
:requires emacsql-sqlite3
:init
:config
(add-to-list 'org-roam-capture-templates
'("ß""telephone call" plain
"*** [%<%Y-%m-%d %H:%M>] ${title}\n :PROPERTIES:\n :ID: %(org-id-uuid)\n:END:\n"
:target (file+olp "p:/Eigene Dateien/Notizen/phone_calls.org"
("2023" "11"))))
(add-to-list 'org-roam-capture-templates
'("x" "telephone call" plain
"%?"
:target (file+head "telephone/%<%Y%m%d%H%M>-${slug}.org" "#+title: CALL %<%Y-%m-%d %H:%M> ${title}\n")
:unnarrowed t) t)
(add-to-list 'org-roam-capture-templates
'("p" "project" plain
"%?"
:target (file+head "projects/${slug}.org" "#+title: ${title}\n#+filetags: :project:\n")
:unnarrowed t) t)
(add-to-list 'org-roam-capture-templates
'("s" "Sicherheitenmeldung" plain
"*** TODO [#A] Sicherheitenmeldung ${title}\n :PROPERTIES:\n :ID: %(org-id-uuid)\n:END:\n%u\n"
:target (file+olp "tasks.org" ("Todos" "Sicherheitenmeldungen"))) t)
(add-to-list 'org-roam-capture-templates
'("m" "Monatsbericht" plain
"*** TODO [#A] Monatsbericht ${title}\n :PROPERTIES:\n :ID: %(org-id-uuid)\n:END:\n%u\n"
:target (file+olp "tasks.org" ("Todos" "Monatsberichte"))) t)
:custom
(org-roam-database-connector 'sqlite3)))
#+END_SRC #+END_SRC
*** TODO Verzeichnis außerhalb roam zum Archivieren (u.a. für erledigte Monatsmeldungen etc.) *** TODO Verzeichnis außerhalb roam zum Archivieren (u.a. für erledigte Monatsmeldungen etc.)

Write Preview
Loading…
Cancel
Save