2026-01-28T15:01:51

.gitignore

@@ -0,0 +1,6 @@
+.DS_Store
+.idea
+*.log
+tmp/
+*.bak
+

config.el

@@ -0,0 +1,734 @@
+;;; $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 "/mnt/c/Users/q669019/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))
+;;
+;;
+;; (add-hook 'spell-fu-mode-hook
+;;           (lambda ()
+;;             (spell-fu-dictionary-add (spell-fu-get-ispell-dictionary "de_DE"))
+;;             (spell-fu-dictionary-add (spell-fu-get-ispell-dictionary "en_US"))
+;;             ))
+;; 
+;; 
+;; (setq ispell-program-name "aspell"
+;;       aspell-dictionary "de_DE"
+;;       aspell-dictionary "en_US"
+;;       aspell-program-name "aspell"
+;;       ispell-dictionary "de_DE"
+;;       ispell-dictionary "en_US"
+;;       ispell-program-name "aspell")
+
+(after! ispell
+  (setq ispell-really-hunspell t
+        ispell-program-name "hunspell"
+        ispell-dictionary "en_US,de_DE")
+  (ispell-set-spellchecker-params)
+  (ispell-hunspell-add-multi-dic "en_US,de_DE"))
+
+(use-package! flycheck)
+(use-package flycheck-languagetool
+  :ensure t
+  :hook (text-mode . flycheck-languagetool-setup)
+  :init
+  (setq flycheck-languagetool-server-jar "~/.languagetool-server.jar"))
+
+
+(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))
+
+(add-hook 'org-mode-hook #'turn-on-font-lock)
+
+(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"
+                      ))
+
+
+(defun my/gptel-url-retrieve(orig-fun url &rest args)
+  "Advice to replace github.com with bmw.ghe.com in URLs for `gptel--url-retrieve`."
+  (let ((modified-url (replace-regexp-in-string
+                       "[^\.]+\.com"
+                       "bmw\.ghe\.com"
+                       url)))
+    (apply orig-fun modified-url args)))
+
+;; Add the advice around gptel--url-retrieve
+(advice-add 'gptel--url-retrieve :around #'my/gptel-url-retrieve)
+;; (advice-add 'gptel-send :around #'my/gptel-url-retrieve)
+
+
+;; 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 '("C:/Users/q669019/Bachelor/Bibliothek/Bibliothek.bib"))
+  (org-cite-global-bibliography '("/mnt/c/Users/q669019/Bachelor/Literatur/Bibliothek/Bibliothek.bib"))
+  ;;(citar-bibliography '("C:/Users/q669019/Bachelor/Bibliothek/")))
+  (citar-bibliography '("/mnt/c/Users/q669019/Bachelor/Literatur/Bibliothek/Bibliothek.bib")))
+
+;;(setq default-directory "C:/Users/q669019/Bachelor/")
+(setq default-directory "/mnt/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)
+
+;; (map! :map evil-normal-state-map "SPC i t" #'insert-current-date-time)
+(map! :after pdf-view
+      :map pdf-view-mode-map
+      :prefix "a"
+      "h" #'pdf-annot-add-highlight-markup-annotation
+      "t" #'pdf-annot-add-text-annotation
+      "m" #'pdf-annot-add-markup-annotation
+      "l" #'pdf-annot-list-annotations
+      "D" #'pdf-annot-delete
+      "a" #'pdf-annot-attachment-dired
+      )
+;; (map! :map pdf-view-mode-map "a h" #'pdf-annot-add-highlight-markup-annotation)
+;; (map! :map pdf-view-mode-map "a t" #'pdf-annot-add-text-annotation)
+;; (map! :map pdf-view-mode-map "a D" #'pdf-annot-delete)
+;; (map! :map pdf-view-mode-map "a l" #'pdf-annot-list-annotations)
+;; (map! :map pdf-view-mode-map "a a" #'pdf-annot-attachment-dired)
+;; (map! :map pdf-view-mode-map "a m" #'pdf-annot-add-markup-annotation)
+;; ====================
+;; 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)
+
+
+
+;; (setenv "MSYSTEM" "UCRT64")          ;; Tell MSYS2 which subsystem
+;; (setenv "CHERE_INVOKING" "1")        ;; Avoid directory change
+
+(setq +latex-viewers '(pdf-tools))
+(setq lsp-tex-server 'texlab)
+;; (add-hook LaTeX-mode-hook #'xenops-mode)
+
+
+
+(when (eq window-system 'w32)
+  (setq tramp-use-ssh-controlmaster-options nil)
+  (add-to-list 'tramp-connection-properties
+	       (list (regexp-quote "/ssh:")
+		     "login-args"
+		     '(("-tt") ("-l" "%u") ("-p" "%p") ("%c")
+		       ("-e" "none") ("%h"))))
+  )
+
+
+;;(load "./typing-speed.el")
+
+
+(after! tramp
+  (setq tramp-default-method "ssh"
+        tramp-use-ssh-controlmaster-options nil ; sometimes fixes Windows hangs
+        tramp-verbose 6
+        tramp-inline-compress-start-size 1000
+        tramp-use-sh-file-name nil)) ; avoid weird /bin/sh resolution on Windows
+;; If your remote prompt is fancy, tighten prompt regexp:
+;;(setq tramp-shell-prompt-pattern "^[^#$%>\n]*[#$%>] *"))
+
+
+;;  (let ((msys "C:/Users/q669019/Programs/msys2"))
+;;    ;; Ensure MSYS2 userland tools (bash, ssh, etc.) are found
+;;    (add-to-list 'exec-path (concat msys "/usr/bin"))
+;;    (setenv "PATH" (concat msys "/usr/bin;" (getenv "PATH")))
+;;    ;; Use bash, NOT ucrt64.exe
+;;    (setq explicit-shell-file-name (concat msys "/usr/bin/bash.exe")
+;;          shell-file-name explicit-shell-file-name)
+;;    (setenv "SHELL" shell-file-name)
+;;    ;; Make TRAMP use ssh (default, but force just in case)
+;;    (setq tramp-default-method "ssh")
+;;    ;; Hide flashing helper consoles
+;;    (setq w32-start-process-show-window nil)
+;;    )
+
+(use-package! cypher-mode)
+(use-package! n4js)
+(setq n4js-cli-arguments '("-port" "7474"))
+(use-package! n4js)
+;;(use-package evangelion-theme
+;;  :custom
+;;  ;; `nil' to disable background for comments
+;;  (evangelion-comment-background-enabled . t)
+;;  :config (load-theme 'evangelion t))
+;;(setq doom-theme 'evangelion)
+
+(use-package ob-cypher
+  :ensure t
+  :config
+  (add-to-list 'org-babel-load-languages '(cypher . t))
+  (org-babel-do-load-languages 'org-babel-load-languages org-babel-load-languages)
+  (add-to-list 'org-babel-tangle-lang-exts '("cypher" . "cypher")))
+
+
+
+(defun org-insert-cypher-block()
+  "Insert a cypher/ neo4j src block."
+  (interactive)
+  (progn
+    (newline-and-indent)
+    (insert "#+BEGIN_SRC cypher :port 7687 :file ./.png\n")
+    (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")
+    ;; (insert "#+END_SRC\n")
+    ;; (previous-line 3)
+    (back-to-indentation)
+    (search-backward ".png") ; point now at the '.' before png
+    (evil-insert-state)
+    )
+  )
+
+(with-eval-after-load 'ob-cypher
+  (defvar ob-cypher-database "neo4j")
+
+  (advice-add
+   'ob-cypher/query :around
+   (lambda (_orig statement host port authstring)
+     (let* ((statement (s-replace "\"" "\\\"" statement))
+            (body (format
+                   "{\"statements\":[{\"statement\":\"%s\",\"resultDataContents\":[\"graph\",\"row\"]}]}"
+                   (s-join " " (s-lines statement))))
+            (url (format "http://%s:%d/db/%s/tx/commit" host port ob-cypher-database))
+            (tmp (org-babel-temp-file "cypher-curl-"))
+            (auth-header (unless (string-empty-p authstring)
+                           (format "-H 'Authorization: Basic %s'" authstring)))
+            (cmd (format
+                  "curl -s -H 'Accept: application/json; charset=UTF-8' -H 'Content-Type: application/json' %s -d@'%s' '%s'"
+                  (or auth-header "") tmp url)))
+       (with-temp-file tmp (insert body))
+       (shell-command-to-string cmd)))))
+
+(use-package! csv-mode)
+
+(defun evangelion-splash ()
+  (let* ((banner '("                  _            ____                           "
+                   "                 : \\           |   \\    .                     "
+                   "                 |  \\ .        |    :   |\\            /\\      "
+                   "              .  |   :|\\__     |    |   | \\          /  \\     "
+                   "              |\\ |   |! \\ \\    |    |   | |\\        /   /     "
+                   " \\\"-.______   | \\:   ||\\ \\ \\   |    |   | | \\      /   /      "
+                   "  \\_       \"-_|  |\\  || \\ \\/   |    |___| ! |\\____/  _/-. /\\  "
+                   "    \"-_   ____:  |_\\ ||  \\/  ___\\  __  _//  | |  ___ \\---\" /  "
+                   "       \\  \\   |  _____,  /___\\___\\/ / /   \\_! |  // _/  / /   "
+                   "     ___\\_ \\__|  |    | __. _/____ / /     /  > // /    \\/    "
+                   "   //_________|  /    |/  |/  \\__// /     /  /_/ \\/           "
+                   "              | /     |   :      | /     /__/                 "
+                   "              |/                 |/                           "
+                   "                                                E M A C S     "))
+         (longest-line (apply #'max (mapcar #'length banner))))
+    (put-text-property      (point)      (dolist (line banner (point))
+                                           (insert (+doom-dashboard--center
+                                                    +doom-dashboard--width
+                                                    (concat line (make-string (max 0 (- longest-line (length line))) 50)))
+                                                   "\n"))      'face 'doom-dashboard-banner)))
+(setq +doom-dashboard-ascii-banner-fn #'evangelion-splash)
+
+;; (use-package! company-org-block)
+(use-package company-org-block
+  ;; :ensure t
+  ;; :custom
+  ;; (company-org-block-edit-style 'auto) ;; 'auto, 'prompt, or 'inline
+  :hook ((org-mode . (lambda ()
+                       (setq-local company-backends '(company-org-block))
+                       (company-mode +1)))))
+
+(setq company-org-block-edit-style 'auto) ;; 'auto, 'prompt, or 'inline
+
+(add-hook 'org-mode-hook
+          (lambda ()
+            (add-to-list (make-local-variable 'company-backends)
+                         'company-org-block)))
+
+;; (use-package evangelion-theme
+;;   :config (load-theme 'evangelion t))
+;; (evangelion-comment-background-enabled . t)
+;; (setq doom-theme 'evangelion)
+
+(setq doom-theme 'doom-palenight)
+
+
+(defun org-insert-cite-eol ()
+  (interactive)
+  (progn
+    (evil-org-end-of-line)
+    (insert " ")
+    (call-interactively 'org-cite-insert)
+    ))
+
+;; (map! :map evil-normal-state-map "SPC m $" #'org-cite-insert-eol)
+
+
+
+;; (add-hook 'csv-mode-hook
+;;           (lambda ()
+;;             (visual-line-mode -1)
+;;             (toggle-truncate-lines 1)))
+
+;; disable line wrap
+(defun disable-linewrap ()
+  "csv line wrap setup"
+  (visual-line-mode -1)
+  (toggle-truncate-lines 1))
+
+(add-hook 'csv-mode-hook #'disable-linewrap)
+
+;; später entfernen:
+;; (remove-hook 'csv-mode-hook #'disable-linewrap)
+
+;; auto detect separator
+(add-hook 'csv-mode-hook #'csv-guess-set-separator)
+;; turn on field alignment
+(add-hook 'csv-mode-hook #'csv-align-mode)
+;; add csv header line
+(add-hook 'csv-mode-hook #'csv-header-line)
+
+(defun toggle-csv-mode-hooks ()
+  "Toggle my CSV mode hooks (add/remove)."
+  (interactive)
+  (if (memq #'disable-linewrap csv-mode-hook)
+      (progn
+        (remove-hook 'csv-mode-hook #'disable-linewrap)
+        (visual-line-mode t)
+        (toggle-truncate-lines)
+        (remove-hook 'csv-mode-hook #'csv-guess-set-separator)
+        (csv-guess-set-separator)
+        (remove-hook 'csv-mode-hook #'csv-align-mode)
+        (csv-align-mode)
+        (remove-hook 'csv-mode-hook #'csv-header-line)
+        (csv-header-line)
+        (normal-mode)
+        (message "CSV hooks removed"))
+    (progn
+      (add-hook 'csv-mode-hook #'disable-linewrap)
+      (add-hook 'csv-mode-hook #'csv-guess-set-separator)
+      (add-hook 'csv-mode-hook #'csv-align-mode)
+      (add-hook 'csv-mode-hook #'csv-header-line)
+      (normal-mode)
+      (message "CSV hooks added"))))
+
+;; (map! :map csv-mode-map "SPC t ;" #'toggle-csv-mode-hooks)
+(map! :after csv-mode
+      :map csv-mode-map
+      :desc "Toggle CSV hooks"
+      :n "SPC t ;" #'toggle-csv-mode-hooks)
+;;      :leader
+;;      "t;" #'toggle-csv-mode-hooks)
+
+
+;; make invisible characters more visible
+(setq! glyphless-char-display-control '((format-control . empty-box) (variation-selectors . thin-space) (no-font . hex-code)))
+
+
+(with-eval-after-load 'ob-cypher
+  ;; Eigene Variante von org-babel-execute:cypher
+  (defun my/org-babel-execute:cypher (body params)
+    "Erweiterte Version von `org-babel-execute:cypher`.
+
+Verhalten:
+- Mit :file und :result-type graph  -> wie bisher: Graphviz/DOT.
+- Mit :file und :result-type json   -> rohes JSON in Datei.
+(with-eval-after-load 'ob-cypher
+  ;; Erweiterte/ersetzte Variante von org-babel-execute:cypher
+  (defun my/org-babel-execute:cypher (body params)
+    Erweiterte Version von `org-babel-execute:cypher`.
+
+Verhalten:
+- :result-type graph -> wie bisher: Graphviz/DOT, Datei wird von `dot` erzeugt.
+- :result-type json  -> rohes JSON als String (Org schreibt es bei :file selber weg).
+- sonst (Standard)   -> Tabelle per REST; mit :file als CSV-Text zurückgeben,
+                         den Org bei :results ... file in die Datei schreibt."
+    (let* ((host       (or (cdr (assoc :host params)) "127.0.0.1"))
+           (port       (or (cdr (assoc :port params)) 1337))
+           (username   (or (cdr (assoc :username params)) "neo4j"))
+           (password   (or (cdr (assoc :password params)) "neo4j"))
+           (authstring (base64-encode-string (concat username ":" password)))
+           (http-port  (or (cdr (assoc :http-port params)) 7474))
+           ;; optionaler Header :result-type (eigene Erweiterung)
+           (rt-raw     (cdr (assoc :result-type params)))
+           (result-type
+            (cond
+             ((symbolp rt-raw) rt-raw)
+             ((stringp rt-raw) (intern (downcase rt-raw)))
+             (t nil)))
+           (file (cdr (assoc :file params)))
+           (body (if (s-ends-with? ";" body) body (s-append ";" body))))
+      (cond
+       ;; 1. Graphviz wie im Original (für Bilder/DOT-Ausgabe)
+       ((eq result-type 'graph)
+        (unless file
+          (user-error "Für :result-type graph musst du auch :file angeben"))
+        ;; erzeugt die Datei als Seiteneffekt, gibt nil zurück
+        (ob-cypher/dot body host http-port file authstring))
+
+       ;; 2. Rohes JSON (z.B. für Debug oder eigene Weiterverarbeitung)
+       ;;    Bei :results ... file und :file <pfad> schreibt Org den String in die Datei.
+       ((eq result-type 'json)
+        (ob-cypher/query body host http-port authstring))
+
+       ;; 3. Standard: REST -> Tabelle; mit :file als CSV-Text
+       (t
+        (let ((tbl (ob-cypher/rest body host http-port authstring)))
+          (if file
+              (progn
+                (require 'org-table)
+                ;; Wir liefern nur den CSV-String zurück.
+                ;; Org schreibt ihn bei :results ... file in `file`.
+                (orgtbl-to-csv tbl nil))
+            ;; Kein :file -> Tabelle als normales Babel-Ergebnis
+            tbl))))))
+  
+  ;; Originalfunktion vollständig übersteuern
+  (advice-add 'org-babel-execute:cypher
+              :override #'my/org-babel-execute:cypher))
+
+(use-package org-mind-map
+  :init
+  (require 'ox-org)
+  :ensure t
+  ;; Uncomment the below if 'ensure-system-packages` is installed
+  ;;:ensure-system-package (gvgen . graphviz)
+  :config
+  (setq org-mind-map-engine "dot")       ; Default. Directed Graph
+  ;; (setq org-mind-map-engine "neato")  ; Undirected Spring Graph
+  ;; (setq org-mind-map-engine "twopi")  ; Radial Layout
+  ;; (setq org-mind-map-engine "fdp")    ; Undirected Spring Force-Directed
+  ;; (setq org-mind-map-engine "sfdp")   ; Multiscale version of fdp for the layout of large graphs
+  ;; (setq org-mind-map-engine "twopi")  ; Radial layouts
+  ;; (setq org-mind-map-engine "circo")  ; Circular Layout
+  )
+(defalias 'first #'cl-first)

init.el

@@ -0,0 +1,195 @@
+;;; init.el -*- lexical-binding: t; -*-
+
+;; This file controls what Doom modules are enabled and what order they load
+;; in. Remember to run 'doom sync' after modifying it!
+
+;; NOTE Press 'SPC h d h' (or 'C-h d h' for non-vim users) to access Doom's
+;;      documentation. There you'll find a link to Doom's Module Index where all
+;;      of our modules are listed, including what flags they support.
+
+;; NOTE Move your cursor over a module's name (or its flags) and press 'K' (or
+;;      'C-c c k' for non-vim users) to view its documentation. This works on
+;;      flags as well (those symbols that start with a plus).
+;;
+;;      Alternatively, press 'gd' (or 'C-c c d') on a module to browse its
+;;      directory (for easy access to its source code).
+
+(doom! :input
+       ;;bidi              ; (tfel ot) thgir etirw uoy gnipleh
+       ;;chinese
+       ;;japanese
+       ;;layout            ; auie,ctsrnm is the superior home row
+
+       :completion
+       company           ; the ultimate code completion backend
+       (corfu +orderless)  ; complete with cap(f), cape and a flying feather!
+       ;;helm              ; the *other* search engine for love and life
+       ;;ido               ; the other *other* search engine...
+       ;;ivy               ; a search engine for love and life
+       vertico           ; the search engine of the future
+
+       :ui
+       ;;deft              ; notational velocity for Emacs
+       doom              ; what makes DOOM look the way it does
+       doom-dashboard    ; a nifty splash screen for Emacs
+       doom-quit         ; DOOM quit-message prompts when you quit Emacs
+       ;;(emoji +unicode)  ; 🙂
+       hl-todo           ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW
+       indent-guides     ; highlighted indent columns
+       ligatures         ; ligatures and symbols to make your code pretty again
+       ;;minimap           ; show a map of the code on the side
+       modeline          ; snazzy, Atom-inspired modeline, plus API
+       ;;nav-flash         ; blink cursor line after big motions
+       ;;neotree           ; a project drawer, like NERDTree for vim
+       ophints           ; highlight the region an operation acts on
+       (popup +defaults)   ; tame sudden yet inevitable temporary windows
+       smooth-scroll     ; So smooth you won't believe it's not butter
+       ;;tabs              ; a tab bar for Emacs
+       treemacs          ; a project drawer, like neotree but cooler
+       ;;unicode           ; extended unicode support for various languages
+       (vc-gutter +pretty) ; vcs diff in the fringe
+       vi-tilde-fringe   ; fringe tildes to mark beyond EOB
+       window-select     ; visually switch windows
+       workspaces        ; tab emulation, persistence & separate workspaces
+       zen               ; distraction-free coding or writing
+
+       :editor
+       (evil +everywhere); come to the dark side, we have cookies
+       file-templates    ; auto-snippets for empty files
+       fold              ; (nigh) universal code folding
+       (format +onsave)  ; automated prettiness
+       ;;god               ; run Emacs commands without modifier keys
+       ;;lispy             ; vim for lisp, for people who don't like vim
+       ;;multiple-cursors  ; editing in many places at once
+       ;;objed             ; text object editing for the innocent
+       ;;parinfer          ; turn lisp into python, sort of
+       ;;rotate-text       ; cycle region at point between text candidates
+       snippets          ; my elves. They type so I don't have to
+       ;;word-wrap         ; soft wrapping with language-aware indent
+
+       :emacs
+       dired             ; making dired pretty [functional]
+       electric          ; smarter, keyword-based electric-indent
+       ;;eww               ; the internet is gross
+       ;;ibuffer           ; interactive buffer management
+       undo              ; persistent, smarter undo for your inevitable mistakes
+       vc                ; version-control and Emacs, sitting in a tree
+
+       :term
+       eshell            ; the elisp shell that works everywhere
+       shell             ; simple shell REPL for Emacs
+       ;;term              ; basic terminal emulator for Emacs
+       vterm             ; the best terminal emulation in Emacs
+
+       :checkers
+       syntax              ; tasing you for every semicolon you forget
+       (spell +everywhere +flyspell) ; tasing you for misspelling mispelling
+       grammar           ; tasing grammar mistake every you make
+
+       :tools
+       ;;ansible
+       biblio            ; Writes a PhD for you (citation needed)
+       ;;collab            ; buffers with friends
+       debugger          ; FIXME stepping through code, to help you add bugs
+       ;;direnv
+       ;;docker
+       ;;editorconfig      ; let someone else argue about tabs vs spaces
+       ;;ein               ; tame Jupyter notebooks with emacs
+       (eval +overlay)     ; run code, run (also, repls)
+       lookup              ; navigate your code and its documentation
+       llm               ; when I said you needed friends, I didn't mean...
+       lsp               ; M-x vscode
+       magit             ; a git porcelain for Emacs
+       make              ; run make tasks from Emacs
+       ;;pass              ; password manager for nerds
+       pdf               ; pdf enhancements
+       ;;terraform         ; infrastructure as code
+       ;;tmux              ; an API for interacting with tmux
+       tree-sitter       ; syntax and parsing, sitting in a tree...
+       ;;upload            ; map local to remote projects via ssh/ftp
+
+       :os
+       (:if (featurep :system 'macos) macos)  ; improve compatibility with macOS
+       ;;tty               ; improve the terminal Emacs experience
+
+       :lang
+       ;;agda              ; types of types of types of types...
+       ;;beancount         ; mind the GAAP
+       (cc +lsp)         ; C > C++ == 1
+       ;;clojure           ; java with a lisp
+       ;;common-lisp       ; if you've seen one lisp, you've seen them all
+       ;;coq               ; proofs-as-programs
+       ;;crystal           ; ruby at the speed of c
+       ;;csharp            ; unity, .NET, and mono shenanigans
+       ;;data              ; config/data formats
+       ;;(dart +flutter)   ; paint ui and not much else
+       ;;dhall
+       ;;elixir            ; erlang done right
+       ;;elm               ; care for a cup of TEA?
+       emacs-lisp        ; drown in parentheses
+       ;;erlang            ; an elegant language for a more civilized age
+       ;;ess               ; emacs speaks statistics
+       ;;factor
+       ;;faust             ; dsp, but you get to keep your soul
+       ;;fortran           ; in FORTRAN, GOD is REAL (unless declared INTEGER)
+       ;;fsharp            ; ML stands for Microsoft's Language
+       ;;fstar             ; (dependent) types and (monadic) effects and Z3
+       ;;gdscript          ; the language you waited for
+       ;;(go +lsp)         ; the hipster dialect
+       ;;(graphql +lsp)    ; Give queries a REST
+       ;;(haskell +lsp)    ; a language that's lazier than I am
+       ;;hy                ; readability of scheme w/ speed of python
+       ;;idris             ; a language you can depend on
+       json              ; At least it ain't XML
+       ;;janet             ; Fun fact: Janet is me!
+       ;;(java +lsp)       ; the poster child for carpal tunnel syndrome
+       ;;javascript        ; all(hope(abandon(ye(who(enter(here))))))
+       ;;julia             ; a better, faster MATLAB
+       ;;kotlin            ; a better, slicker Java(Script)
+       (latex +fold +lsp +cdlatex +latexmk)             ; writing papers in Emacs has never been so fun
+       ;;lean              ; for folks with too much to prove
+       ;;ledger            ; be audit you can be
+       ;;lua               ; one-based indices? one-based indices
+       markdown          ; writing docs for people to ignore
+       ;;nim               ; python + lisp at the speed of c
+       ;;nix               ; I hereby declare "nix geht mehr!"
+       ;;ocaml             ; an objective camel
+       (org +roam2)        ; organize your plain life in plain text
+       ;;php               ; perl's insecure younger brother
+       ;;plantuml          ; diagrams for confusing people more
+       ;;graphviz          ; diagrams for confusing yourself even more
+       ;;purescript        ; javascript, but functional
+       python            ; beautiful is better than ugly
+       ;;qt                ; the 'cutest' gui framework ever
+       ;;racket            ; a DSL for DSLs
+       ;;raku              ; the artist formerly known as perl6
+       ;;rest              ; Emacs as a REST client
+       ;;rst               ; ReST in peace
+       ;;(ruby +rails)     ; 1.step {|i| p "Ruby is #{i.even? ? 'love' : 'life'}"}
+       ;;(rust +lsp)       ; Fe2O3.unwrap().unwrap().unwrap().unwrap()
+       ;;scala             ; java, but good
+       ;;(scheme +guile)   ; a fully conniving family of lisps
+       sh                ; she sells {ba,z,fi}sh shells on the C xor
+       ;;sml
+       ;;solidity          ; do you need a blockchain? No.
+       ;;swift             ; who asked for emoji variables?
+       ;;terra             ; Earth and Moon in alignment for performance.
+       ;;web               ; the tubes
+       ;;yaml              ; JSON, but readable
+       ;;zig               ; C, but simpler
+
+       :email
+       ;;(mu4e +org +gmail)
+       ;;notmuch
+       ;;(wanderlust +gmail)
+
+       :app
+       calendar
+       ;;emms
+       everywhere        ; *leave* Emacs!? You must be joking
+       ;;irc               ; how neckbeards socialize
+       ;;(rss +org)        ; emacs as an RSS reader
+
+       :config
+       ;;literate
+       (default +bindings +smartparens))

packages.el

@@ -0,0 +1,90 @@
+;; -*- no-byte-compile: t; -*-
+;;; $DOOMDIR/packages.el
+
+;; To install a package with Doom you must declare them here and run 'doom sync'
+;; on the command line, then restart Emacs for the changes to take effect -- or
+
+
+;; To install SOME-PACKAGE from MELPA, ELPA or emacsmirror:
+;; (package! some-package)
+
+;; To install a package directly from a remote git repo, you must specify a
+;; `:recipe'. You'll find documentation on what `:recipe' accepts here:
+;; https://github.com/radian-software/straight.el#the-recipe-format
+;; (package! another-package
+;;   :recipe (:host github :repo "username/repo"))
+
+;; If the package you are trying to install does not contain a PACKAGENAME.el
+;; file, or is located in a subdirectory of the repo, you'll need to specify
+;; `:files' in the `:recipe':
+;; (package! this-package
+;;   :recipe (:host github :repo "username/repo"
+;;            :files ("some-file.el" "src/lisp/*.el")))
+
+;; If you'd like to disable a package included with Doom, you can do so here
+;; with the `:disable' property:
+;; (package! builtin-package :disable t)
+
+;; You can override the recipe of a built in package without having to specify
+;; all the properties for `:recipe'. These will inherit the rest of its recipe
+;; from Doom or MELPA/ELPA/Emacsmirror:
+;; (package! builtin-package :recipe (:nonrecursive t))
+;; (package! builtin-package-2 :recipe (:repo "myfork/package"))
+
+;; Specify a `:branch' to install a package from a particular branch or tag.
+;; This is required for some packages whose default branch isn't 'master' (which
+;; our package manager can't deal with; see radian-software/straight.el#279)
+;; (package! builtin-package :recipe (:branch "develop"))
+
+;; Use `:pin' to specify a particular commit to install.
+;; (package! builtin-package :pin "1a2b3c4d5e")
+
+
+;; Doom's packages are pinned to a specific commit and updated from release to
+;; release. The `unpin!' macro allows you to unpin single packages...
+;; (unpin! pinned-package)
+;; ...or multiple packages
+;; (unpin! pinned-package another-pinned-package)
+;; ...Or *all* packages (NOT RECOMMENDED; will likely break things)
+;; (unpin! t)
+(package! catppuccin-theme)
+(package! flycheck)
+(package! ox-typst)
+(package! org-fragtog)
+(package! ox-reveal)
+(package! pdf-tools)
+
+;; When using org-roam via the `+roam` flag
+(unpin! org-roam)
+(package! org-roam-ui)
+
+(package! org-roam-bibtex
+  :recipe (:host github :repo "org-roam/org-roam-bibtex"))
+
+;; When using bibtex-completion via the `biblio` module
+(unpin! bibtex-completion helm-bibtex ivy-bibtex)
+
+
+(package! org-ref)
+
+(package! xenops)
+
+(package! typit)
+(package! typing)
+(package! monkeytype)
+
+(package! org-mind-map)
+
+;;(package! evangelion-theme)
+(package! n4js)
+(package! cypher-mode)
+(package! ob-cypher)
+(package! csvorg
+  :recipe (:host github :repo "orgtre/csvorg"))
+(package! graphviz-dot-mode)
+(package! csv-mode)
+(package! company-org-block)
+(package! evangelion-theme)
+(package! ws-butler)
+
+(package! flycheck-languagetool)

snippets/org-mode/cypher-block

@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# name: cypher src block + image link
+# key: <n
+# --
+#+begin_src cypher :port 7687 :file ./${1:test}.png
+$0
+#+end_src
+[[./$1.png]]

typing-speed.el

@@ -0,0 +1,127 @@
+;;; typing-speed.el --- Minor mode which displays your typing speed
+
+;; Copyright (C) 2008 Wangdera Corporation
+
+;; Permission is hereby granted, free of charge, to any person
+;; obtaining a copy of this software and associated documentation
+;; files (the "Software"), to deal in the Software without
+;; restriction, including without limitation the rights to use,
+;; copy, modify, merge, publish, distribute, sublicense, and/or sell
+;; copies of the Software, and to permit persons to whom the
+;; Software is furnished to do so, subject to the following
+;; conditions:
+
+;; The above copyright notice and this permission notice shall be
+;; included in all copies or substantial portions of the Software.
+
+;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;; OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+;; OTHER DEALINGS IN THE SOFTWARE.
+
+;; Author: Craig Andera <candera@wangdera.com>
+
+;; Commentary: Invoke this minor mode to have your typing speed
+;; continuously displayed in the mode line, in the format [75 WPM]
+;; To use, just load this file and invoke (typing-speed-mode) or
+;; (turn-on-typing-speed-mode)
+
+(define-minor-mode typing-speed-mode
+    "Displays your typing speed in the status bar."
+  :lighter typing-speed-mode-text
+  :group 'typing-speed
+  (if typing-speed-mode
+      (progn
+        (add-hook 'post-command-hook 'typing-speed-post-command-hook)
+        (setq typing-speed-event-queue '())
+        (setq typing-speed-update-timer (run-with-timer 0 typing-speed-update-interval 'typing-speed-update)))
+      (progn
+        (remove-hook 'post-command-hook 'typing-speed-post-command-hook)
+        (cancel-timer typing-speed-update-timer))))
+
+(defcustom typing-speed-window 5
+  "The window (in seconds) over which typing speed should be evaluated."
+  :group 'typing-speed)
+
+(defcustom typing-speed-mode-text-format " [%s/%s WPM]"
+  "A format string that controls how the typing speed is displayed in the mode line.
+Must contain at least one %s delimeter. Typing speed will be inserted at the first
+delimiter, and peak typing speed at the second."
+  :group 'typing-speed)
+
+(defcustom typing-speed-update-interval 1
+  "How often the typing speed will update in the mode line, in seconds.
+It will always also update after every command."
+  :group 'typing-speed)
+
+(defvar typing-speed-mode-text (format typing-speed-mode-text-format 0 0))
+(defvar typing-speed-event-queue '())
+(defvar typing-speed-update-timer nil)
+(defvar typing-speed-peak-speed 0)
+(defvar typing-speed-previous-mode-text "")
+
+(make-variable-buffer-local 'typing-speed-peak-speed)
+(make-variable-buffer-local 'typing-speed-previous-mode-text)
+(make-variable-buffer-local 'typing-speed-mode-text)
+(make-variable-buffer-local 'typing-speed-event-queue)
+
+(defun typing-speed-post-command-hook ()
+  "When typing-speed-mode is enabled, fires after every command. If the
+command is self-insert-command, log it as a keystroke and update the
+typing speed."
+  (cond ((eq this-command 'self-insert-command)
+         (let ((current-time (float-time)))
+          (push current-time typing-speed-event-queue)
+          (typing-speed-update)))
+        ((member this-command '(delete-backward-char backward-delete-char-untabify))
+         (progn
+           (pop typing-speed-event-queue)
+           (typing-speed-update)))))
+
+(defun typing-speed-update ()
+  "Calculate and display the typing speed."
+  (let ((current-time (float-time)))
+    (setq typing-speed-event-queue
+          (typing-speed-remove-old-events
+           (- current-time typing-speed-window)
+           typing-speed-event-queue))
+    (typing-speed-message-update)))
+
+(defun typing-speed-message-update ()
+  "Updates the status bar with the current typing speed"
+  (let* ((chars-per-second (/ (length typing-speed-event-queue) (float typing-speed-window)))
+         (chars-per-min (* chars-per-second 60))
+         (words-per-min (/ chars-per-min 5)))
+    (setq typing-speed-peak-speed (max words-per-min typing-speed-peak-speed))
+    (setq typing-speed-mode-text
+          (if (minibufferp (current-buffer))
+              ""
+              (format typing-speed-mode-text-format (floor words-per-min) (floor typing-speed-peak-speed))))
+    ;; Attempt to prevent unnecessary flicker in the menu bar. Doesn't seem to help, though.
+    (if (not (string-equal typing-speed-mode-text typing-speed-previous-mode-text))
+        (progn
+          (setq typing-speed-previous-mode-text typing-speed-mode-text)
+          (force-mode-line-update)))))
+
+
+(defun typing-speed-remove-old-events (threshold queue)
+  "Removes events older than than the threshold (in seconds) from the specified queue"
+  (if (or (null queue)
+          (> threshold (car queue)))
+      nil
+      (cons (car queue)
+            (typing-speed-remove-old-events threshold (cdr queue)))))
+
+(defun turn-on-typing-speed ()
+  "Turns on typing-speed-mode"
+  (if (not typing-speed-mode)
+      (typing-speed-mode)))
+
+(defun turn-off-typing-speed ()
+  "Turns off typing-speed-mode"
+  (if typing-speed-mode
+      (typing-speed-mode)))