emacs/fschl-org.org

293 lines
11 KiB
Org Mode

#+title: Setup Fschl Org Configuration
#+PROPERTY: header-args:emacs-lisp :tangle ./fschl-org.el :mkdirp yes
* Basic configuration
** Additional Packages
#+begin_src emacs-lisp
;;; fschl-org.el -- Fschl Crafted Emacs user customization file -*- lexical-binding: t; -*-
;; This file is generated from the .org-file with the same name. If you want to edit the
;; configuration, DO NOT edit this .el-file, edit .org, instead.
;; see variable `org-roam-database-connector`
;(add-to-list 'package-selected-packages 'emacsql-sqlite-builtin)
;(add-to-list 'package-selected-packages 'emacsql-sqlite)
;(add-to-list 'package-selected-packages 'org-roam)
;(add-to-list 'package-selected-packages 'org-roam-ui)
(add-to-list 'package-selected-packages 'denote)
(add-to-list 'package-selected-packages 'ox-latex)
(add-to-list 'package-selected-packages 'ox-koma-letter)
(package-install-selected-packages :noconfirm)
#+end_src
** Setup Org-mode Key Map
#+begin_src emacs-lisp
(setq org-default-notes-file "~/Documents/Org/inbox.org")
(keymap-global-set "C-c o c" #'org-capture)
(keymap-global-set "C-c o l" #'org-store-link)
(keymap-global-set "C-c o a" #'org-agenda)
(keymap-global-set "<f7>" #'org-cycle-agenda-files)
(keymap-global-set "<f8>" #'find-file org-default-notes-file)
#+end_src
** Setup Agenda Files
#+begin_src emacs-lisp
(setq org-agenda-files
(quote ("~/Documents/Org/inbox.org"
"~/Documents/Org/journal.org"
"~/Documents/Org/private.org"
"~/Documents/Org/projects.org"
"~/Documents/Org/tasks.org"
"~/Documents/Org/birthdays.org")))
(setq org-refile-targets '(("~/Documents/Org/projects.org" :maxlevel . 3)
("~/Documents/Org/journal.org" :level . 1)
("~/Documents/Org/private.org" :maxlevel . 2)))
#+end_src
*** Custom TODO keywords
#+begin_src emacs-lisp
(setq org-todo-keywords
(quote ((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)")
(sequence "WAITING(w@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)" "PHONE" "MEETING"))))
(setq org-todo-keyword-faces
(quote (("TODO" :foreground "red" :weight bold)
("NEXT" :foreground "blue" :weight bold)
("DONE" :foreground "forest green" :weight bold)
("WAITING" :foreground "orange" :weight bold)
("HOLD" :foreground "magenta" :weight bold)
("CANCELLED" :foreground "forest green" :weight bold)
("MEETING" :foreground "forest green" :weight bold)
("PHONE" :foreground "forest green" :weight bold))))
#+end_src
*** Add Week to Calendar
#+begin_src emacs-lisp
(setq calendar-week-start-day 1)
(setq calendar-intermonth-text
'(propertize
(format "%2d"
(car
(calendar-iso-from-absolute
(calendar-absolute-from-gregorian (list month day year)))))
'font-lock-face 'font-lock-warning-face))
(setq calendar-intermonth-header
(propertize "KW" ; or e.g. "Wk"
'font-lock-face 'font-lock-keyword-face))
#+end_src
** Setup Capture Templates
- https://orgmode.org/manual/Template-elements.html
- https://orgmode.org/manual/Template-expansion.html
*** Export Letter
#+begin_src emacs-lisp
(eval-after-load 'ox '(require 'ox-koma-letter))
(eval-after-load 'ox '(require 'ox-moderncv))
(eval-after-load 'ox '(require 'ox-awesomecv))
(eval-after-load 'ox-koma-letter
'(progn
(add-to-list 'org-latex-classes
'("Brief-de-modern"
"\\documentclass\[Brief-de-modern\]\{scrlttr2\}
\[DEFAULT-PACKAGES]
\[PACKAGES]
\[EXTRA]"))
;; \\usepackage[english]{babel}
;; \\setkomavar{frombank}{(1234)\\,567\\,890}
(setq org-koma-letter-default-class "Brief-de-modern")))
(defun fschl/create-org-letter ()
"Create a new letter in ~/Documents/letters/ with filename and date"
(interactive)
(let ((name (read-string "Filename: ")))
(expand-file-name (format "%s.org" name) "~/Documents/letters/") ))
#+end_src
*** Capture Templates
#+begin_src emacs-lisp
(setq org-capture-templates
'(("t" "todo list item" entry
(file+olp+datetree "~/Documents/Org/inbox.org")
"* TODO %?\n SCHEDULED: %^T"
:tree-type month
)
("T" "todo list item with source" entry
(file+olp+datetree "~/Documents/Org/inbox.org")
"* TODO %?\n %a \n SCHEDULED: %^T \n %^G \n"
:tree-type month
)
("r" "Todo research some website/software" entry
(file+olp+datetree "~/Documents/Org/tasks.org")
"* TODO %?\n SCHEDULED: %^T \n %^L \n"
:tree-type month
)
("l" "letter to Documents/letters/<datetime.org>"
entry (file fschl/create-org-letter)
"* Preamble :noexport:
\# #+TITLE: ?
\# #+DATE:
\
\#+SUBJECT: Betreff des Briefs
\
\#+LCO: Absender-Frieder
\# #+LCO: Absender-Marcelle
\# #+LCO: Absender-FamilieSchlesier
\#+LCO: Brief-de-modern
\#+STARTUP: showall
\
\* To-address :to:
\
\# * From :from:
\
\* Sehr geehrte Damen und Herren,
\?
\
\* Mit freundlichen Grüßen, :closing:
\
Frieder Schlesier")
("m" "Schedule a meeting" entry
(file+headline "~/Documents/Org/inbox.org")
"* MEETING %?\n SCHEDULED: %^T\n %a"
)
("p" "Schedule a phone call" entry
(file+headline "~/Documents/Org/inbox.org")
"* PHONE %?\n SCHEDULED: %^T\\n %a"
)
("a" "Articles: keep notes of online articles"
entry
(file+olp+datetree "~/Documents/Org/journal.org")
"* %? \n%x \n %u\n- $?"
:tree-type month
:kill-buffer t
:empty-lines-before 1)
)
)
#+end_src
** extra
#+begin_src emacs-lisp
;; active Babel languages
(org-babel-do-load-languages
'org-babel-load-languages
'((shell . t)
(emacs-lisp . t)
(dot . t)))
#+end_src
* Configure =Org-Roam= :noexport:
#+begin_src emacs-lisp :tangle no
;; ;; Setting the storage directory:
;; ;; Stores org-roam data in a subdirectory under the emacs directory
;; (customize-set-variable 'org-roam-database-connector "sqlite-builtin")
;; (customize-set-variable 'org-roam-directory (file-truename "~/org-roam"))
(use-package org-roam
:ensure t
:load-path "~/src/org-roam/"
:custom
(org-roam-directory (file-truename "~/org-roam/"))
:bind (("C-c n l" . org-roam-buffer-toggle)
("C-c n f" . org-roam-node-find)
("C-c n g" . org-roam-graph)
("C-c n i" . org-roam-node-insert)
("C-c n c" . org-roam-capture))
;; Dailies
;("C-c n j" . org-roam-dailies-capture-today)
:config
;; If you're using a vertical completion framework, you might want a more informative completion interface
(setq org-roam-node-display-template (concat "${title:*} " (propertize "${tags:10}" 'face 'org-tag)))
(org-roam-db-autosync-mode)
(setq 'org-roam-database-connector "sqlite-builtin")
;; ;; If you're using a vertical completion framework, you might want a
;; ;; more informative completion interface:
;; (when (or (bound-and-true-p fido-vertical-mode)
;; (bound-and-true-p icomplete-vertical-mode)
;; (bound-and-true-p vertico))
;; (customize-set-variable 'org-roam-node-display-template
;; (concat "${title:*} "
;; (propertize "${tags:10}" 'face 'org-tag))))
)
;; ;; suggested keymap based on example from project documentation
;; (keymap-global-set "C-c r l" #'org-roam-buffer-toggle)
;; (keymap-global-set "C-c r f" #'org-roam-node-find)
;; (keymap-global-set "C-c r g" #'org-roam-graph)
;; (keymap-global-set "C-c r i" #'org-roam-node-insert)
;; (keymap-global-set "C-c r c" #'org-roam-capture)
;; ;(keymap-global-set "C-c r j" . org-roam-dailies-capture-today)
;; ;(org-roam-db-autosync-mode)
#+end_src
** And =org-roam-ui= :noexport:
#+begin_src emacs-lisp :tangle no
(use-package org-roam-ui
:after org-roam
;; normally we'd recommend hooking orui after org-roam, but since
;; org-roam does not have a hookable mode anymore, you're advised to
;; pick something yourself if you don't care about startup time, use
;; :hook (after-init . org-roam-ui-mode)
:config
(setq org-roam-ui-sync-theme t
org-roam-ui-follow t
org-roam-ui-update-on-save t
org-roam-ui-open-on-start t))
#+end_src
* Denote
#+begin_src emacs-lisp
(setq org-directory "~/Documents/Org/denotes/")
(use-package denote
:bind
("C-c n n" . 'denote)
("C-c n f" . 'denote-open-or-create)
;; ("C-c n f" . 'my/project-org-file-file)
("C-c n k" . 'denote-keywords-add) ;; update file name automatically
("C-c n K" . 'denote-keywords-remove) ;; update file name automatically
("C-c n u" . 'denote-rename-file-using-front-matter)
("C-c n l" . 'denote-link-find-backlink)
("C-c n r" . 'my/denote-random-note)
:init
(setq denote-directory (expand-file-name org-directory))
:config
(setq denote-known-keywords '("emacs"))
(setq denote-prompts '(subdirectory title))
(setq denote-excluded-directories-regexp ".attachment")
;; Makes the denote links different from usual link.
(set-face-attribute 'denote-faces-link
nil :foreground "magenta" :inherit 'link)
;; Remove the date and the identifier. They are duplicated with the file name.
;; I want to remove filetags too but denote-keyword-* need that.
(setq denote-org-front-matter "#+title: %1$s\n#+filetags: %3$s\n")
(add-hook 'dired-mode-hook #'denote-dired-mode))
#+end_src
* TeX and research
- Write a CV in org-mode: https://titan-c.gitlab.io/org-cv/
cloned to Path =~/src/org-cv=
- requires: ~texlive-latex-extra texlive-xetex~
- =git clone https://github.com/posquit0/Awesome-CV ~/texmf/tex/latex/awesome-cv=
#+begin_src emacs-lisp
(use-package ox-awesomecv
:load-path "~/src/org-cv/"
:init (require 'ox-awesomecv))
(use-package ox-moderncv
:load-path "~/src/org-cv/"
:init (require 'ox-moderncv))
(setq org-ref-default-bibliography '("~/Documents/references/references.bib")
org-ref-pdf-directory "~/Documents/references/"
org-ref-bibliography-notes "~/Documents/references/notes.org")
#+end_src