commit 775d0be9dbf5ebcebb2c8362feac31b63ea2e91d Author: rh17s15 Date: Wed Jan 28 15:01:49 2026 +0100 2026-01-28T15:01:51 diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..56c7a40 --- /dev/null +++ b/.gitignore @@ -0,0 +1,6 @@ +.DS_Store +.idea +*.log +tmp/ +*.bak + diff --git a/config.el b/config.el new file mode 100755 index 0000000..e78bee0 --- /dev/null +++ b/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 <$filename\n<>\nEOF\n\n# output=${filename%.*}.o\ngcc $filename -o $output\n./$output\n# ./$output <\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 < // / \\/ " + " //_________| / |/ |/ \\__// / / /_/ \\/ " + " | / | : | / /__/ " + " |/ |/ " + " 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 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) diff --git a/init.el b/init.el new file mode 100755 index 0000000..a049846 --- /dev/null +++ b/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)) diff --git a/languagetool-server.jar b/languagetool-server.jar new file mode 100644 index 0000000..36e59e1 Binary files /dev/null and b/languagetool-server.jar differ diff --git a/packages.el b/packages.el new file mode 100755 index 0000000..5db4624 --- /dev/null +++ b/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) diff --git a/snippets/org-mode/cypher-block b/snippets/org-mode/cypher-block new file mode 100644 index 0000000..751c83e --- /dev/null +++ b/snippets/org-mode/cypher-block @@ -0,0 +1,8 @@ +# -*- mode: snippet -*- +# name: cypher src block + image link +# key: + +;; 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)))