365 lines
14 KiB
EmacsLisp
365 lines
14 KiB
EmacsLisp
;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-
|
|
|
|
;; Place your private configuration here! Remember, you do not need to run 'doom
|
|
;; sync' after modifying this file!
|
|
|
|
|
|
;; Some functionality uses this to identify you, e.g. GPG configuration, email
|
|
;; clients, file templates and snippets. It is optional.
|
|
;; (setq user-full-name "John Doe"
|
|
;; user-mail-address "john@doe.com")
|
|
|
|
;; Doom exposes five (optional) variables for controlling fonts in Doom:
|
|
;;
|
|
;; - `doom-font' -- the primary font to use
|
|
;; - `doom-variable-pitch-font' -- a non-monospace font (where applicable)
|
|
;; - `doom-big-font' -- used for `doom-big-font-mode'; use this for
|
|
;; presentations or streaming.
|
|
;; - `doom-symbol-font' -- for symbols
|
|
;; - `doom-serif-font' -- for the `fixed-pitch-serif' face
|
|
;;
|
|
;; See 'C-h v doom-font' for documentation and more examples of what they
|
|
;; accept. For example:
|
|
;;
|
|
;;(setq doom-font (font-spec :family "Fira Code" :size 12 :weight 'semi-light)
|
|
;; doom-variable-pitch-font (font-spec :family "Fira Sans" :size 13))
|
|
;;
|
|
;; If you or Emacs can't find your font, use 'M-x describe-font' to look them
|
|
;; up, `M-x eval-region' to execute elisp code, and 'M-x doom/reload-font' to
|
|
;; refresh your font settings. If Emacs still can't find your font, it likely
|
|
;; wasn't installed correctly. Font issues are rarely Doom issues!
|
|
|
|
;; There are two ways to load a theme. Both assume the theme is installed and
|
|
;; available. You can either set `doom-theme' or manually load a theme with the
|
|
;; `load-theme' function. This is the default:
|
|
;; (setq doom-theme 'doom-one)
|
|
|
|
;; This determines the style of line numbers in effect. If set to `nil', line
|
|
;; numbers are disabled. For relative line numbers, set this to `relative'.
|
|
(setq display-line-numbers-type t)
|
|
|
|
;; If you use `org' and don't want your org files in the default location below,
|
|
;; change `org-directory'. It must be set before org loads!
|
|
(setq org-directory "~/Bachelor/org/")
|
|
|
|
|
|
;; Whenever you reconfigure a package, make sure to wrap your config in an
|
|
;; `after!' block, otherwise Doom's defaults may override your settings. E.g.
|
|
;;
|
|
;; (after! PACKAGE
|
|
;; (setq x y))
|
|
;;
|
|
;; The exceptions to this rule:
|
|
;;
|
|
;; - Setting file/directory variables (like `org-directory')
|
|
;; - Setting variables which explicitly tell you to set them before their
|
|
;; package is loaded (see 'C-h v VARIABLE' to look up their documentation).
|
|
;; - Setting doom variables (which start with 'doom-' or '+').
|
|
;;
|
|
;; Here are some additional functions/macros that will help you configure Doom.
|
|
;;
|
|
;; - `load!' for loading external *.el files relative to this one
|
|
;; - `use-package!' for configuring packages
|
|
;; - `after!' for running code after a package has loaded
|
|
;; - `add-load-path!' for adding directories to the `load-path', relative to
|
|
;; this file. Emacs searches the `load-path' when you load packages with
|
|
;; `require' or `use-package'.
|
|
;; - `map!' for binding new keys
|
|
;;
|
|
;; To get information about any of these functions/macros, move the cursor over
|
|
;; the highlighted symbol at press 'K' (non-evil users must press 'C-c c k').
|
|
;; This will open documentation for it, including demos of how they are used.
|
|
;; Alternatively, use `C-h o' to look up a symbol (functions, variables, faces,
|
|
;; etc).
|
|
;;
|
|
;; You can also try 'gd' (or 'C-c c d') to jump to their definition and see how
|
|
;; they are implemented.
|
|
|
|
;; (setq doom-theme 'catppuccin)
|
|
(setq doom-theme 'doom-palenight)
|
|
;;(setq org-startup-with-inline-images t)
|
|
;; for inline images in org mode
|
|
(setq org-display-inline-images t)
|
|
(setq org-redisplay-inline-images t)
|
|
(setq org-startup-with-inline-images "inlineimages")
|
|
|
|
|
|
;; (defun my/org-insert-latest-screenshot ()
|
|
;; "Copy the latest screenshot into the current directory and insert it as [[filename]]."
|
|
;; (interactive)
|
|
;; (let* ((src (car (sort (directory-files "~/Bilder/Bildschirmfotos/" t ".*\\.png$")
|
|
;; (lambda (a b)
|
|
;; (time-less-p (file-attribute-modification-time (file-attributes b))
|
|
;; (file-attribute-modification-time (file-attributes a))))))
|
|
;; (filename (format "Pasted image %s.png"
|
|
;; (format-time-string "%Y%m%dT%H%M%S")))
|
|
;; (dst (expand-file-name filename default-directory)))
|
|
;; (copy-file src dst)
|
|
;; (insert (format "[[%s]]" filename))))
|
|
;;
|
|
;; (map! :after org
|
|
;; :map org-mode-map
|
|
;; :leader
|
|
;; "i l" #'my/org-insert-latest-screenshot)
|
|
|
|
;; (with-eval-after-load "ispell"
|
|
;; ;; Configure `LANG`, otherwise ispell.el cannot find a 'default
|
|
;; ;; dictionary' even though multiple dictionaries will be configured
|
|
;; ;; in next line.
|
|
;; (setenv "LANG" "en_US.UTF-8")
|
|
;; (setq ispell-program-name "hunspell")
|
|
;; ;; Configure German, Swiss German, and two variants of English.
|
|
;; (setq ispell-dictionary "de_DE,en_US")
|
|
;; ;; ispell-set-spellchecker-params has to be called
|
|
;; ;; before ispell-hunspell-add-multi-dic will work
|
|
;; (ispell-set-spellchecker-params)
|
|
;; (ispell-hunspell-add-multi-dic "de_DE,en_US")
|
|
;; ;; For saving words to the personal dictionary, don't infer it from
|
|
;; ;; the locale, otherwise it would save to ~/.hunspell_de_DE.
|
|
;; (setq ispell-personal-dictionary "~/.hunspell_personal"))
|
|
;;
|
|
;; ;; The personal dictionary file has to exist, otherwise hunspell will
|
|
;; ;; silently not use it.
|
|
;; (unless (file-exists-p ispell-personal-dictionary)
|
|
;; (write-region "" nil ispell-personal-dictionary nil 0))
|
|
;;
|
|
;; (use-package flycheck
|
|
;; :ensure t
|
|
;; :config
|
|
;; (add-hook 'after-init-hook #'global-flycheck-mode))
|
|
;; (after! lsp-mode
|
|
;; (setq lsp-diagnostics-provider :flycheck))
|
|
|
|
(use-package! flycheck)
|
|
|
|
(require 'ansi-color)
|
|
(defun display-ansi-colors ()
|
|
(interactive)
|
|
(ansi-color-apply-on-region (point-min) (point-max)))
|
|
|
|
(remove-hook 'org-mode-hook #'ws-butler-mode)
|
|
(add-hook 'org-mode-hook (lambda () (ws-butler-mode -1)))
|
|
|
|
;;(use-package! org-fragtog
|
|
;; :after org
|
|
;; :hook (org-mode . org-fragtog) ; this auto-enables it when you enter an org-buffer, remove if you do not want this
|
|
;; :config
|
|
;; ;; whatever you want
|
|
;; )
|
|
|
|
(defun toggle-org-latex-preview-on-save ()
|
|
"adds or removes after save hook to org-latex-preview"
|
|
(interactive)
|
|
(if (memq 'org-latex-preview after-save-hook)
|
|
(progn
|
|
(remove-hook 'after-save-hook 'org-latex-preview)
|
|
;; (remove-hook 'after-save-hook 'org-latex-preview t)
|
|
(message "Disabled org latex preview on save for current buffer..."))
|
|
(add-hook 'after-save-hook 'org-latex-preview)
|
|
;; (add-hook 'after-save-hook 'org-latex-preview nil t)
|
|
(message "Enabled org latex preview on save for current buffer...")))
|
|
|
|
;; (add-to-list 'org-latex-packages-alist '("" "tikz" t))
|
|
;;
|
|
;; (eval-after-load "preview"
|
|
;; '(add-to-list 'preview-default-preamble
|
|
;; "\\PreviewEnvironment{tikzpicture}" t))
|
|
|
|
(org-babel-do-load-languages
|
|
'org-babel-load-languages
|
|
'((latex . t)))
|
|
|
|
(after! org
|
|
(setq org-startup-with-latex-preview t)
|
|
(setq font-lock-maximum-decoration t)
|
|
(font-lock-mode))
|
|
|
|
(menu-bar--display-line-numbers-mode-relative)
|
|
|
|
;; (setq org-preview-latex-default-process :imagemagick)
|
|
;;
|
|
;; (setq org-babel-latex-htlatex "htlatex")
|
|
;; (defmacro by-backend (&rest body)
|
|
;; `(case org-export-current-backend ,@body))
|
|
|
|
;; #+REVEAL_ROOT: https://cdn.jsdelivr.net/npm/reveal.js
|
|
;; Reveal.js + Org mode
|
|
(use-package ox-reveal
|
|
:after org)
|
|
(use-package! ox-reveal
|
|
:after ox)
|
|
(require 'ox-reveal)
|
|
(setq Org-Reveal-title-slide nil)
|
|
|
|
;; Wrong number of arguments?!?!
|
|
;;(setq org-export-backends md ascii html icalendar latex odt typst reveal)
|
|
|
|
;; (defun org-insert-src-block (src-code-type)
|
|
;; "Insert a `SRC-CODE-TYPE' type source code block in org-mode."
|
|
;; (interactive
|
|
;; (let ((src-code-types
|
|
;; '("emacs-lisp" "python" "C" "sh" "java" "js" "clojure" "C++" "css"
|
|
;; "calc" "asymptote" "dot" "gnuplot" "ledger" "lilypond" "mscgen"
|
|
;; "octave" "oz" "plantuml" "R" "sass" "screen" "sql" "awk" "ditaa"
|
|
;; "haskell" "latex" "lisp" "matlab" "ocaml" "org" "perl" "ruby"
|
|
;; "scheme" "sqlite")))
|
|
;; (list (ido-completing-read "Source code type: " src-code-types))))
|
|
;; (progn
|
|
;; (newline-and-indent)
|
|
;; (insert (format "#+BEGIN_SRC %s\n" src-code-type))
|
|
;; (newline-and-indent)
|
|
;; (insert "#+END_SRC\n")
|
|
;; (previous-line 2)
|
|
;; (org-edit-src-code)
|
|
;; )
|
|
;; )
|
|
|
|
|
|
(defun org-insert-c-src()
|
|
"Insert a C src block with a helper function to run it."
|
|
(interactive)
|
|
(progn
|
|
(newline-and-indent)
|
|
(insert "#+NAME: cprog\n#+BEGIN_SRC C :tangle (concat (org-get-heading t t t t) \".c\") :results output")
|
|
(newline-and-indent)
|
|
(insert "#+END_SRC\n")
|
|
(newline-and-indent)
|
|
;;(insert "#+BEGIN_SRC sh :dir . :results output :exports both :var filename=(concat (org-get-heading t t t t) \".c\") output=(concat (org-get-heading t t t t) \".o\")\n# output=${filename%.*}.o\ngcc $filename -o $output\n./$output\n# ./$output <<EOF\n# input here\n# EOF\n#+END_SRC")
|
|
(org-insert-c-helper)
|
|
(previous-line 15)
|
|
(back-to-indentation)
|
|
;; (insert "#+END_SRC\n")
|
|
;; (previous-line 2)
|
|
;; (evil-insert-state)
|
|
)
|
|
)
|
|
(defun org-insert-c-helper ()
|
|
(interactive)
|
|
(progn
|
|
(insert "#+BEGIN_SRC sh :dir . :results output :exports both :var filename=(concat (org-get-heading t t t t) \".c\") output=(concat (org-get-heading t t t t) \".o\")\ncat <<EOF >$filename\n<<cprog>>\nEOF\n\n# output=${filename%.*}.o\ngcc $filename -o $output\n./$output\n# ./$output <<EOF\n# input here\n# EOF\n#+END_SRC")
|
|
)
|
|
)
|
|
|
|
(defun org-insert-c-exercise ()
|
|
(interactive)
|
|
(progn
|
|
(newline-and-indent)
|
|
(org-meta-return)
|
|
(insert (format "Exercise_%s" (read-string "Exercise_")))
|
|
(org-insert-c-src)
|
|
|
|
)
|
|
)
|
|
|
|
|
|
(setq gptel-model 'gpt-5
|
|
gptel-backend (gptel-make-gh-copilot "Copilot"))
|
|
|
|
;; Determine the specific system type.
|
|
;; Emacs variable system-type doesn't yet have a "wsl/linux" value,
|
|
;; so I'm front-ending system-type with my variable: sysTypeSpecific.
|
|
;; I'm no elisp hacker, so I'm diverging from the elisp naming convention
|
|
;; to ensure that I'm not stepping on any pre-existing variable.
|
|
(setq-default sysTypeSpecific system-type) ;; get the system-type value
|
|
|
|
;; (cond
|
|
;; ;; If type is "gnu/linux", override to "wsl/linux" if it's WSL.
|
|
;; ((eq sysTypeSpecific 'gnu/linux)
|
|
;; (when (string-match "Linux.*Microsoft.*Linux"
|
|
;; (shell-command-to-string "uname -a"))
|
|
;;
|
|
;; (setq-default sysTypeSpecific "wsl/linux") ;; for later use.
|
|
;; (setq
|
|
;; cmdExeBin"/mnt/c/Windows/System32/cmd.exe"
|
|
;; cmdExeArgs '("/c" "start" "") )
|
|
;; (setq
|
|
;; browse-url-generic-program cmdExeBin
|
|
;; browse-url-generic-args cmdExeArgs
|
|
;; browse-url-browser-function 'browse-url-generic)
|
|
;; )))
|
|
|
|
(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 "W" ; or e.g. "KW" in Germany
|
|
'font-lock-face 'font-lock-keyword-face))
|
|
|
|
|
|
(use-package! org-roam-bibtex
|
|
:after org-roam
|
|
:config
|
|
(require 'org-ref)) ; optional: if using Org-ref v2 or v3 citation links
|
|
|
|
(use-package! websocket
|
|
:after org-roam)
|
|
|
|
(use-package! org-roam-ui
|
|
:after org-roam ;; or :after org
|
|
;; 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))
|
|
|
|
(use-package! citar
|
|
:custom
|
|
(org-cite-global-bibliography '("/home/user/nucleus/Bachelor/Research/Bibliothek.bib"))
|
|
(citar-bibliography '("/home/user/nucleus/Bachelor/Research/Bibliothek.bib")))
|
|
|
|
(setq default-directory "C:/Users/q669019/Bachelor/")
|
|
|
|
|
|
;; from https://pragmaticemacs.wordpress.com/2017/11/08/more-pdf-tools-tweaks/
|
|
;; automatically annotate highlights
|
|
(setq pdf-annot-activate-created-annotations t)
|
|
;; more fine-grained zooming
|
|
(setq pdf-view-resize-factor 1.1)
|
|
;; keyboard shortcuts
|
|
;;
|
|
;;(define-key pdf-view-mode-map (kbd "h") 'pdf-annot-add-highlight-markup-annotation)
|
|
;;;;(define-key pdf-view-mode-map (kbd "t") 'pdf-annot-add-text-annotation)
|
|
;;;;(define-key pdf-view-mode-map (kbd "D") 'pdf-annot-delete)
|
|
|
|
;; ====================
|
|
;; insert date and time
|
|
|
|
(defvar current-date-time-format "%Y-%m-%dT%H:%M:%S"
|
|
"Format of date to insert with `insert-current-date-time' func
|
|
See help of `format-time-string' for possible replacements")
|
|
|
|
(defvar current-time-format "%H:%M:%S"
|
|
"Format of date to insert with `insert-current-time' func.
|
|
Note the weekly scope of the command's precision.")
|
|
|
|
(defun insert-current-date-time ()
|
|
"insert the current date and time into current buffer.
|
|
Uses `current-date-time-format' for the formatting the date/time."
|
|
(interactive)
|
|
(insert (format-time-string current-date-time-format (current-time)))
|
|
)
|
|
|
|
(defun insert-current-time ()
|
|
"insert the current time (1-week scope) into the current buffer."
|
|
(interactive)
|
|
(insert (format-time-string current-time-format (current-time)))
|
|
(insert "\n")
|
|
)
|
|
|
|
;;(map! "SPC i t" #'insert-current-date-time)
|
|
;; (global-set-key "SPC i t" 'insert-current-date-time)
|
|
;; (global-set-key "\C-c\C-t" 'insert-current-time)
|
|
|
|
(map! :map evil-normal-state-map "SPC i t" #'insert-current-date-time)
|