Merge remote-tracking branch 'origin/master'

1 files changed, 2595 insertions, 0 deletions

diff --git a/flycheck_config.el b/flycheck_config.el
new file mode 100644
index 0000000..232c997
--- /dev/null
+++ b/flycheck_config.el
@@ -0,0 +1,2595 @@
+;;; config.el --- Emacs-Kick --- A feature rich Emacs config for (neo)vi(m)mers -*- lexical-binding: t; -*-
+;; (setenv "LSP_USE_PLISTS" "true")
+;; (setq debug-on-error '(wrong-type-argument))
+;; (setq gc-cons-threshold #x40000000)
+;; (setq gc-cons-threshold 50000000)
+;; (setenv "LSP_USE_PLISTS" "true")
+(setq lsp-use-plists t)
+(setq default-frame-alist '((undecorated . t)))
+(setq gc-cons-threshold 100000000)
+
+(add-hook 'emacs-startup-hook
+          (lambda () (setq gc-cons-threshold (* 50 1024 1024))))
+(setq create-lockfiles nil)
+(setq make-backup-files nil)
+
+(setq backup-directory-alist
+      `(("." . ,(expand-file-name "backup" user-emacs-directory))))
+(setq tramp-backup-directory-alist backup-directory-alist)
+
+(setq backup-by-copying-when-linked t)
+(setq backup-by-copying             t) ; Backup by copying rather renaming
+(setq delete-old-versions           t) ; Delete excess backup versions silently
+(setq version-control               t) ; Use version numbers for backup files
+(setq kept-new-versions             5)
+(setq kept-old-versions             5)
+
+(defvar yy/cache-2 nil)
+
+(defun yy/load-cache ()
+  (setq yy/cache-2
+        (condition-case e
+            (car (read-from-string
+                  (with-temp-buffer
+                    (insert-file-contents
+                     (file-name-concat user-emacs-directory "ycache.eld"))
+                    (buffer-substring (point-min) (point-max)))))
+          (error nil))))
+            ;;(make-hash-table :test #'equal))))
+(yy/load-cache)
+
+(defun yy/load-path-filter (path file suffixes)
+  (if-let* ((ls (with-memoization (alist-get file yy/cache-2 nil nil #'equal)
+                  (let ((res (load-path-filter-cache-directory-files path file suffixes)))
+                    (if (eq res path) nil res)))))
+      ls path))
+
+(defun yy/write-cache ()
+  (interactive)
+  (when yy/cache-2
+    (with-temp-file (file-name-concat user-emacs-directory "ycache.eld")
+      (pp yy/cache-2 (current-buffer)))))
+
+(yy/load-cache)
+
+(setq load-path-filter-function #'yy/load-path-filter)
+
+(use-package emacs
+  :straight nil
+  :ensure nil
+  :custom                                         ;; Set custom variables to configure Emacs behavior.
+  (setq modify-coding-system-alist 'file "" 'utf-8)
+  (column-number-mode t)                          ;; Display the column number in the mode line.
+  (auto-save-default nil)                         ;; Disable automatic saving of buffers.
+  (create-lockfiles nil)                          ;; Prevent the creation of lock files when editing.
+  (delete-by-moving-to-trash t)                   ;; Move deleted files to the trash instead of permanently deleting them.
+  (delete-selection-mode 1)                       ;; Enable replacing selected text with typed text.
+  (display-line-numbers-type 'relative)           ;; Use relative line numbering in programming modes.
+  (global-auto-revert-non-file-buffers t)         ;; Automatically refresh non-file buffers.
+  (history-length 25)                             ;; Set the length of the command history.
+  (inhibit-startup-message t)                     ;; Disable the startup message when Emacs launches.
+  (initial-scratch-message "")                    ;; Clear the initial message in the *scratch* buffer.
+  (ispell-dictionary "en_US")                     ;; Set the default dictionary for spell checking.
+  (make-backup-files nil)                         ;; Disable creation of backup files.
+  ;; (pixel-scroll-precision-mode t)                 ;; Enable precise pixel scrolling.
+  (pixel-scroll-precision-use-momentum nil)       ;; Disable momentum scrolling for pixel precision.
+  (ring-bell-function 'ignore)                    ;; Disable the audible bell.
+  (split-width-threshold 300)                     ;; Prevent automatic window splitting if the window width exceeds 300 pixels.
+  (switch-to-buffer-obey-display-actions t)       ;; Make buffer switching respect display actions.
+  (tab-always-indent 'complete)                   ;; Make the TAB key complete text instead of just indenting.
+  (tab-width 4)                                   ;; Set the tab width to 4 spaces.
+  (treesit-font-lock-level 4)                     ;; Use advanced font locking for Treesit mode.
+  (truncate-lines t)                              ;; Enable line truncation to avoid wrapping long lines.
+  (use-dialog-box nil)                            ;; Disable dialog boxes in favor of minibuffer prompts.
+  (use-short-answers t)                           ;; Use short answers in prompts for quicker responses (y instead of yes)
+  (warning-minimum-level :emergency)              ;; Set the minimum level of warnings to display.
+
+  :hook ;; Add hooks to enable specific features in certain modes.
+  (prog-mode . display-line-numbers-mode)
+  (org-mode . display-line-numbers-mode)
+
+  :config
+  (add-to-list 'custom-theme-load-path user-emacs-directory)
+  ;; (load-theme 'rose-pine t)
+
+  ;; By default emacs gives you access to a lot of *special* buffers, while navigating with [b and ]b,
+  ;; this might be confusing for newcomers. This settings make sure ]b and [b will always load a
+  ;; file buffer. To see all buffers use <leader> SPC, <leader> b l, or <leader> b i.
+  (defun skip-these-buffers (_window buffer _bury-or-kill)
+    "Function for `switch-to-prev-buffer-skip'."
+    (string-match "\\*[^*]+\\*" (buffer-name buffer)))
+  (setq switch-to-prev-buffer-skip 'skip-these-buffers)
+
+(setq switch-to-prev-buffer-skip-regexp
+      '("\\*[^*]+\\*" "^magit" "^\\*magit"))
+
+  ;; Configure font settings based on the operating system.
+  ;; Ok, this kickstart is meant to be used on the terminal, not on GUI.
+  ;; But without this, I fear you could start Graphical Emacs and be sad :(
+  ;; (set-face-attribute 'default nil :family "Maple Mono NF"  :height 150)
+  ;; (when (eq system-type 'darwin)       ;; Check if the system is macOS.
+  ;; (setq mac-command-modifier 'meta)  ;; Set the Command key to act as the Meta key.
+  ;; (set-face-attribute 'default nil :family "Fragment Mono" :height 130))
+
+  ;; Save manual customizations to a separate file instead of cluttering `init.el'.
+  ;; You can M-x customize, M-x customize-group, or M-x customize-themes, etc.
+  ;; The saves you do manually using the Emacs interface would overwrite this file.
+  ;; The following makes sure those customizations are in a separate file.
+  (setq custom-file (locate-user-emacs-file "custom-vars.el")) ;; Specify the custom file path.
+  (load custom-file 'noerror 'nomessage)                       ;; Load the custom file quietly, ignoring errors.
+
+  ;; Makes Emacs vertical divisor the symbol │ instead of |.
+  (set-display-table-slot standard-display-table 'vertical-border (make-glyph-code ?│))
+
+  :init                        ;; Initialization settings that apply before the package is loaded.
+  (tool-bar-mode -1)
+
+  (menu-bar-mode -1)
+  (scroll-bar-mode -1)
+  (add-to-list 'default-frame-alist '(vertical-scroll-bars . nil))
+  (add-to-list 'default-frame-alist '(horizontal-scroll-bars . nil))
+  (set-frame-parameter (selected-frame) 'alpha-background 80)
+  (add-to-list 'default-frame-alist '(alpha-background . 80))
+  (global-hl-line-mode -1)     ;; Disable highlight of the current line
+  (global-auto-revert-mode 1)  ;; Enable global auto-revert mode to keep buffers up to date with their corresponding files.
+  (indent-tabs-mode -1)        ;; Disable the use of tabs for indentation (use spaces instead).
+  (recentf-mode 1)             ;; Enable tracking of recently opened files.
+  (savehist-mode 1)            ;; Enable saving of command history.
+  (save-place-mode 1)          ;; Enable saving the place in files for easier return.
+  (winner-mode 1)              ;; Enable winner mode to easily undo window configuration changes.
+  (xterm-mouse-mode 1)         ;; Enable mouse support in terminal mode.
+  (file-name-shadow-mode 1)    ;; Enable shadowing of filenames for clarity.
+
+  ;;oding system for files to UTF-8.
+  (modify-coding-system-alist 'file "" 'utf-8)
+
+  ;; Add a hook to run code after Emacs has fully initialized.
+  (add-hook 'after-init-hook
+			(lambda ()
+			  (message "Emacs has fully loaded. This code runs after startup.")
+
+			  ;; Insert a welcome message in the *scratch* buffer displaying loading time and activated packages.
+			  (with-current-buffer (get-buffer-create "*scratch*")
+				(insert (format
+						 "  ;;    Welcome to Emacs!
+  ;;
+  ;;    Loading time : %s
+  ;;    Packages     : %s
+  "
+						 (emacs-init-time)
+						 (length (hash-table-keys straight--recipe-cache))))))))
+
+(defcustom ek-use-nerd-fonts t
+  "Configuration for using Nerd Fonts Symbols."
+  :type 'boolean
+  :group 'appearance)
+
+;; (setq wl-copy-process nil)
+;; (defun wl-copy (text)
+;;   (setq wl-copy-process (make-process :name "wl-copy"
+;;                                       :buffer nil
+;;                                       :command '("wl-copy" "-f" "-n")
+;;                                       :connection-type 'pipe
+;;                                       :noquery t))
+;;   (process-send-string wl-copy-process text)
+;;   (process-send-eof wl-copy-process))
+;; (defun wl-paste ()
+;;   (if (and wl-copy-process (process-live-p wl-copy-process))
+;;       nil ; should return nil if we're the current paste owner
+;;       (shell-command-to-string "wl-paste -n | tr -d \r")))
+;; (setq interprogram-cut-function 'wl-copy)
+;; (setq interprogram-paste-function 'wl-paste)
+
+(use-package window
+  :straight nil
+  :ensure nil
+  :custom
+  (display-buffer-alist
+   '(
+     ("\\*\\(Backtrace\\|Warnings\\|Compile-Log\\|[Hh]elp\\|Messages\\|Bookmark List\\|Occur\\)\\*"
+      (display-buffer-in-side-window)
+      (window-height . 0.25)
+      (side . bottom)
+      (slot . 0))
+
+	 ("\\*\\(eldoc\\)\\*"
+	  (display-buffer-in-side-window)
+	  (window-height . 0.25)
+	  (side . bottom)
+      (slot . 1)
+      (window-parameters . ((no-delete-other-windows . t)))
+      (body-function . (lambda (window)
+                        (select-window window))))
+
+	 ("\\*\\(Flymake diagnostics\\|xref\\|ivy\\|Swiper\\|Completions\\)"
+	  (display-buffer-in-side-window)
+	  (window-height . 0.25)
+	  (side . bottom)
+	  (slot . 1)))))
+
+(use-package dired
+  :straight nil
+  :ensure nil
+  :custom
+  (dired-listing-switches "-lah --group-directories-first")
+  (dired-dwim-target t)
+  (dired-guess-shell-alist-user
+   '(("\\.\\(png\\|jpe?g\\|tiff\\)" "feh" "xdg-open" "open")
+     ("\\.\\(mp[34]\\|m4a\\|ogg\\|flac\\|webm\\|mkv\\)" "mpv" "xdg-open" "open")
+     (".*" "open" "xdg-open")))
+  (dired-kill-when-opening-new-dired-buffer t)
+  :config
+  ;; (dired-async-mode 1)
+  (when (eq system-type 'darwin)
+    (let ((gls (executable-find "gls")))
+      (when gls
+        (setq insert-directory-program gls)))))
+
+(use-package erc
+  :straight nil
+  :defer t ;; Load ERC when needed rather than at startup. (Load it with `M-x erc RET')
+  :custom
+  (erc-join-buffer 'window)                                        ;; Open a new window for joining channels.
+  (erc-hide-list '("JOIN" "PART" "QUIT"))                          ;; Hide messages for joins, parts, and quits to reduce clutter.
+  (erc-timestamp-format "[%H:%M]")                                 ;; Format for timestamps in messages.
+  (erc-autojoin-channels-alist '((".*\\.libera\\.chat" "#emacs"))));; Automatically join the #emacs channel on Libera.Chat.
+
+(defvar my/centered-cursor-enabled nil)
+
+(defun my/centered-cursor ()
+  (interactive)
+  (if my/centered-cursor-enabled
+      (progn
+        (setq scroll-preserve-screen-position nil
+              scroll-conservatively 0
+              maximum-scroll-margin 0.0
+              scroll-margin 0)
+        (setq my/centered-cursor-enabled nil)
+        (message "centered-cursor off"))
+    (progn
+      (setq scroll-preserve-screen-position t
+            scroll-conservatively 0
+            maximum-scroll-margin 0.5
+            scroll-margin 99999)
+      (setq my/centered-cursor-enabled t)
+      (message "centered-cursor on"))))
+
+(use-package cursory
+  :ensure t
+  :demand t
+  :if (display-graphic-p)
+  :config
+  (setq cursory-presets
+        '((box
+           :cursor-color success ; will typically be green
+           :blink-cursor-interval 1.2)
+          (box-no-blink
+           :inherit box
+           :blink-cursor-mode -1)
+          (bar
+           :cursor-type (bar . 2)
+           :cursor-color error ; will typically be red
+           :blink-cursor-interval 0.8)
+          (bar-no-other-window
+           :inherit bar
+           :cursor-in-non-selected-windows nil)
+          (bar-no-blink
+           :inherit bar
+           :blink-cursor-mode -1)
+          (underscore
+           :cursor-color warning ; will typically be yellow
+           :cursor-type (hbar . 3)
+           :blink-cursor-interval 0.3
+           :blink-cursor-blinks 50)
+          (underscore-no-other-window
+           :inherit underscore
+           :cursor-in-non-selected-windows nil)
+          (underscore-thick
+           :inherit underscore
+           :cursor-type (hbar . 8)
+           :cursor-in-non-selected-windows (hbar . 3))
+          (t ; the default values
+           :cursor-color unspecified ; use the theme's original
+           :cursor-type box
+           :cursor-in-non-selected-windows hollow
+           :blink-cursor-mode 1
+           :blink-cursor-blinks 10
+           :blink-cursor-interval 0.2
+           :blink-cursor-delay 0.2)))
+
+  ;; I am using the default value of `cursory-latest-state-file'.
+
+  ;; Set last preset or fall back to desired style from
+  ;; `cursory-presets'.  Alternatively, use the function
+  ;; `cursory-set-last-or-fallback' (can be added to the
+  ;; `after-init-hook'.
+  (cursory-set-preset (or (cursory-restore-latest-preset) 'box))
+
+  ;; Persist configurations between Emacs sessions.  Also apply the
+  ;; :cursor-color again when swithcing to another theme.
+  (cursory-mode 1)
+  :bind
+  ;; We have to use the "point" mnemonic, because C-c c is often the
+  ;; suggested binding for `org-capture' and is the one I use as well.
+  ("C-c p" . cursory-set-preset))
+
+(use-package clipetty
+  :ensure t
+  :hook (after-init . global-clipetty-mode))
+
+(use-package isearch
+  :straight nil
+  :ensure nil                                  ;; This is built-in, no need to fetch it.
+  :config
+  (setq isearch-lazy-count t)                  ;; Enable lazy counting to show current match information.
+  (setq lazy-count-prefix-format "(%s/%s) ")   ;; Format for displaying current match count.
+  (setq lazy-count-suffix-format nil)          ;; Disable suffix formatting for match count.
+  (setq search-whitespace-regexp ".*?")        ;; Allow searching across whitespace.
+  :bind (("C-s" . isearch-forward)             ;; Bind C-s to forward isearch.
+                 ("C-r" . isearch-backward)))          ;; Bind C-r to backward isearch.
+
+(use-package vc
+  :straight nil
+  :ensure nil                        ;; This is built-in, no need to fetch it.
+  :defer t
+  :bind
+  (("C-x v d" . vc-dir)              ;; Open VC directory for version control status.
+   ("C-x v =" . vc-diff)             ;; Show differences for the current file.
+   ("C-x v D" . vc-root-diff)        ;; Show differences for the entire repository.
+   ("C-x v v" . vc-next-action))     ;; Perform the next version control action.
+  :config
+  ;; Better colors for <leader> g b  (blame file)
+  (setq vc-annotate-color-map
+        '((20 . "#f5e0dc")
+          (40 . "#f2cdcd")
+          (60 . "#f5c2e7")
+          (80 . "#cba6f7")
+          (100 . "#f38ba8")
+          (120 . "#eba0ac")
+          (140 . "#fab387")
+          (160 . "#f9e2af")
+          (180 . "#a6e3a1")
+          (200 . "#94e2d5")
+          (220 . "#89dceb")
+          (240 . "#74c7ec")
+          (260 . "#89b4fa")
+          (280 . "#b4befe"))))
+
+(use-package ibuffer
+  :straight nil
+  :config
+  (setq ibuffer-expert t)
+  (setq ibuffer-display-summary nil)
+  (setq ibuffer-use-other-window nil)
+  (setq ibuffer-show-empty-filter-groups nil)
+  (setq ibuffer-default-sorting-mode 'filename/process)
+  (setq ibuffer-title-face 'font-lock-doc-face)
+  (setq ibuffer-use-header-line t)
+  (setq ibuffer-default-shrink-to-minimum-size nil)
+  (setq ibuffer-formats
+        '((mark modified read-only locked " "
+                (name 30 30 :left :elide)
+                " "
+                (size 9 -1 :right)
+                " "
+                (mode 16 16 :left :elide)
+                " " filename-and-process)
+          (mark " "
+                (name 16 -1)
+                " " filename)))
+  (setq ibuffer-saved-filter-groups
+        '(("Main"
+           ("Directories" (mode . dired-mode))
+           ("Rust" (or
+                   (mode . rust-mode)
+                   (mode . rust-ts-mode)))
+           ("Python" (or
+                      (mode . python-ts-mode)
+                      (mode . c-mode)
+                      (mode . python-mode)))
+           ("Nix" (or
+                     (mode . nix-mode)
+                     (mode . nix-ts-mode)))
+           ("Scripts" (or
+                       (mode . shell-script-mode)
+                       (mode . shell-mode)
+                       (mode . sh-mode)
+                       (mode . lua-mode)
+                       (mode . bat-mode)))
+           ("Config" (or
+                      (mode . conf-mode)
+                      (mode . conf-toml-mode)
+                      (mode . toml-ts-mode)
+                      (mode . conf-windows-mode)
+                      (name . "^\\.clangd$")
+                      (name . "^\\.gitignore$")
+                      (name . "^Doxyfile$")
+                      (name . "^config\\.toml$")
+                      (mode . yaml-mode)))
+           ("Web" (or
+                   (mode . mhtml-mode)
+                   (mode . html-mode)
+                   (mode . web-mode)
+                   (mode . nxml-mode)))
+           ("CSS" (or
+                   (mode . css-mode)
+                   (mode . sass-mode)))
+           ("JS" (or
+                  (mode . js-mode)
+                  (mode . rjsx-mode)))
+           ("Markup" (or
+                   (mode . markdown-mode)
+                   (mode . adoc-mode)))
+           ("Org" (mode . org-mode))
+           ("Terminal" (mode . vterm-mode))
+           ("LaTeX" (name . "\.tex$"))
+           ("Magit" (or
+                     (mode . magit-blame-mode)
+                     (mode . magit-cherry-mode)
+                     (mode . magit-diff-mode)
+                     (mode . magit-log-mode)
+                     (mode . magit-process-mode)
+                     (mode . magit-status-mode)))
+           ("Elfeed" (or
+                    (mode . elfeed-search-mode)
+                    (mode . elfeed-show-mode)))
+           ("Fundamental" (or
+                           (mode . fundamental-mode)
+                           (mode . text-mode)))
+           ("Emacs" (or
+                     (mode . emacs-lisp-mode)
+                     (name . "^\\*Help\\*$")
+                     (name . "^\\*Custom.*")
+                     (name . "^\\*Org Agenda\\*$")
+                     (name . "^\\*info\\*$")
+                     (name . "^\\*scratch\\*$")
+                     (name . "^\\*Backtrace\\*$")
+                     (name . "^\\*Messages\\*$"))))))
+  :hook
+  (ibuffer-mode . (lambda ()
+                    (ibuffer-switch-to-saved-filter-groups "Main"))))
+
+(use-package nerd-icons-ibuffer
+  :ensure t
+  :hook (ibuffer-mode . nerd-icons-ibuffer-mode))
+
+(use-package smerge-mode
+  :straight nil
+  :ensure nil                                  ;; This is built-in, no need to fetch it.
+  :defer t
+  :bind (:map smerge-mode-map
+                          ("C-c ^ u" . smerge-keep-upper)  ;; Keep the changes from the upper version.
+                          ("C-c ^ l" . smerge-keep-lower)  ;; Keep the changes from the lower version.
+                          ("C-c ^ n" . smerge-next)        ;; Move to the next conflict.
+                          ("C-c ^ p" . smerge-previous)))  ;; Move to the previous conflict.
+
+(use-package gptel
+  :ensure t                                    ;; Install from MELPA if not present.
+  :defer t
+  :config
+  (setq my/openrouter-backend
+        (gptel-make-openai
+         "OpenRouter"                             ; Any name you want
+         :host "openrouter.ai"
+         :endpoint "/api/v1/chat/completions"
+         :stream t
+         :key (lambda () (auth-source-pass-get 'secret "openrouter-api"))  ; Retrieves from pass entry
+         :models '(anthropic/claude-haiku-4.5)))
+
+  ;; Set backend, default mode, and list of backends.
+  (setq gptel-backend my/openrouter-backend)
+  (setq gptel-default-mode 'org-mode)
+  (setq gptel-backends (list my/openrouter-backend)))
+
+(use-package eldoc
+  :straight nil
+  :ensure t
+  :config
+  (setq eldoc-idle-delay 0)                  ;; Automatically fetch doc help
+  (setq eldoc-echo-area-use-multiline-p nil) ;; We use the "K" floating help instead
+                                             ;; set to t if you want docs on the echo area
+  (setq eldoc-echo-area-display-truncation-message nil)
+  :init
+  (global-eldoc-mode))
+
+(use-package eldoc-box
+  :ensure t
+  :config
+  :defer t)
+
+(use-package flymake
+  :straight nil
+  :ensure nil          ;; This is built-in, no need to fetch it.
+  :defer t
+  ;; :hook (prog-mode . flymake-mode)
+  :custom
+  (flymake-margin-indicators-string
+   '((error "!»" compilation-error) (warning "»" compilation-warning)
+         (note "»" compilation-info))))
+
+(setq trusted-content
+      '("~/.emacs.d/config.el"
+        "~/.emacs.d/init.el"))
+
+(use-package flycheck
+  :ensure t
+  :config
+  (add-hook 'after-init-hook #'global-flycheck-mode))
+
+(use-package flycheck-rust
+  :ensure t
+  :config
+  (setq flycheck-rust-check-tests nil)
+  (add-hook 'flycheck-mode-hook #'flycheck-rust-setup))
+
+;; (use-package flyover
+;;   :ensure t
+;;   :hook (flycheck-mode-hook . flyover-mode))
+
+(use-package xref
+  :straight nil
+  :ensure nil)
+
+(use-package project
+  :straight nil
+  :ensure nil)
+
+(setq org-directory "~/org/")
+(use-package org
+  :straight nil
+  :ensure nil     
+  :config
+  (require 'org-tempo)
+
+  (custom-set-faces
+   '(org-document-title ((t (:height 1.6))))
+   '(outline-1          ((t (:height 1.25))))
+   '(outline-2          ((t (:height 1.2))))
+   '(outline-3          ((t (:height 1.2))))
+   '(outline-4          ((t (:height 1.2))))
+   '(outline-5          ((t (:height 1.2))))
+   '(outline-6          ((t (:height 1.2))))
+   '(outline-7          ((t (:height 1.2))))
+   '(outline-8          ((t (:height 1.2))))
+   '(outline-9          ((t (:height 1.2)))))
+
+  (setq org-startup-folded 'nil)
+  (setq org-adapt-indentation t
+        org-hide-leading-stars t
+        org-pretty-entities t
+        org-startup-truncated t
+        org-ellipsis "  ")
+  (setq org-src-fontify-natively t
+        org-src-tab-acts-natively t
+        org-edit-src-content-indentation 0)
+  (setq org-log-done                       t
+        org-auto-align-tags                t
+        org-tags-column                    -80
+        org-fold-catch-invisible-edits     'show-and-error
+        org-special-ctrl-a/e               t
+        org-insert-heading-respect-content t)
+
+  (add-hook 'org-mode-hook 'variable-pitch-mode)
+  (add-hook 'org-mode-hook 'org-indent-mode)
+  (add-hook 'org-mode-hook 'visual-line-mode)
+  (add-hook 'org-mode-hook (lambda () (electric-indent-local-mode -1)))
+
+
+  (add-to-list 'font-lock-extra-managed-props 'display)
+  (font-lock-add-keywords 'org-mode
+                          `(("^.*?\( \)\(:[[:alnum:]_@#%:]+:\)$"
+                             (1 `(face nil
+                                       display (space :align-to (- right ,(org-string-width (match-string 2)) 3)))
+                                prepend))) t))
+
+(use-package org-appear
+  :commands (org-appear-mode)
+  :hook     (org-mode . org-appear-mode)
+  :config
+  (setq org-hide-emphasis-markers t)  ;; Must be activated for org-appear to work
+  (setq org-appear-autoemphasis   t   ;; Show bold, italics, verbatim, etc.
+        org-appear-autolinks      t   ;; Show links
+        org-appear-autosubmarkers t)) ;; Show sub- and superscripts
+
+(setq org-agenda-inhibit-startup t
+      org-agenda-use-tag-inheritance nil
+      org-agenda-dim-blocked-tasks nil
+      org-startup-indented nil
+      org-startup-folded 'overview)
+
+(use-package org-modern
+  :ensure t)
+
+(with-eval-after-load 'org (global-org-modern-mode))
+
+(setq org-modern-star 'fold)
+(setq org-modern-fold-stars '(("◉" . "○")))
+(setq org-modern-star 'replace)
+(setq org-modern-replace-stars "◉○◉○◉")
+
+;; (setq org-agenda-start-on-weekday nil
+;;       org-agenda-block-separator  nil
+;;       org-agenda-remove-tags      t)
+
+;;   (setq org-agenda-skip-scheduled-if-done t
+;;         org-agenda-skip-deadline-if-done t
+;;         org-agenda-include-deadlines t
+;;         org-agenda-block-separator nil
+;;         org-agenda-compact-blocks t
+;;         org-agenda-start-day nil
+;;         org-agenda-span 1
+;;         org-agenda-start-on-weekday nil
+;;         org-agenda-hide-tags-regexp "task"
+;;         org-agenda-prefix-format
+;;         '((agenda . " %i %?-12t% s")
+;;           (todo . " %i ")
+;;           (tags . " %i ")
+;;           (search . " %i ")))
+
+(with-eval-after-load 'org-contrib
+  (org-babel-do-load-languages
+   'org-babel-load-languages
+   '((emacs-lisp . t)
+	 ;; ...
+	 (nushell . t)
+	 (shell . t))))
+
+(use-package org-noter
+  :ensure t
+  :defer t)
+
+(use-package nov
+  :ensure t
+  :mode ("\\.epub\\'" . nov-mode))
+
+(use-package yequake
+  :custom
+  (yequake-frames
+   '(("org-capture"
+      (buffer-fns . (yequake-org-capture))
+      (width . 0.75)
+      (height . 0.5)
+      ;; (alpha . 0.95)
+      (frame-parameters . ((undecorated . t)
+                           (skip-taskbar . t)
+                           (sticky . t)))))))
+
+(defun my/org-capture-denote-deadline ()
+  (let* ((context (read-string "Task with deadline: "))
+         (deadline (org-read-date t nil nil "Deadline: "))
+         (file-name (denote nil '("task"))))
+    (find-file file-name)
+    (goto-char (point-min))
+    (forward-line 4)
+    (insert (format "* %s\nDEADLINE: <%s>\n\n" context deadline))
+    (current-buffer)))
+
+(defun my/org-capture-denote-scheduled ()
+  (let* ((context (read-string "Scheduled task: "))
+         (schedule (org-read-date t nil nil "Schedule: "))
+         (file-name (denote nil '("task"))))
+    (find-file file-name)
+    (goto-char (point-min))
+    (forward-line 4)
+    (insert (format "* %s\nSCHEDULED: <%s>\n\n" context schedule))
+    (current-buffer)))
+
+(defun my/org-capture-denote-task ()
+  (let* ((context (read-string "Task: "))
+         (todo-state (completing-read "TODO state: "
+                                      '("ACTIVE" "NEXT" "TODO" "WAIT" "PLAN" "FUN")))
+         (file-name (denote nil '("task"))))
+    (find-file file-name)
+    (goto-char (point-min))
+    (forward-line 4)
+    (insert (format "\n* %s %s\n\n" todo-state context))
+    (point)))
+
+(with-eval-after-load 'org
+  (setq org-capture-templates
+        '(("t" "Task" plain
+           (function my/org-capture-denote-task)
+           "" :immediate-finish t :jump-to-captured t)
+          ("d" "Deadline" plain
+           (function my/org-capture-denote-deadline)
+           "" :immediate-finish t :jump-to-captured t)
+          ("s" "Scheduled" plain
+           (function my/org-capture-denote-scheduled)
+           "" :immediate-finish t :jump-to-captured t))))
+
+(setq org-agenda-span 'day)
+
+(use-package org-super-agenda
+  :after org-agenda
+  :init
+  :config
+  (org-super-agenda-mode))
+
+(use-package org-ql
+  :ensure t
+  :after org-super-agenda
+  :config
+  (setq org-agenda-custom-commands
+        '(("t" "Task Overview"
+           ((alltodo "" ((org-agenda-overriding-header "")
+                         (org-super-agenda-groups
+                          '((:discard (:todo "FUN"))  
+                            (:log t)
+                            (:name "ACTIVE"
+                                   :todo "ACTIVE")
+                            (:name "NEXT"
+                                   :todo "NEXT")
+                            (:name "TODO"
+                                   :todo "TODO")
+                            (:name "WAIT"
+                                   :todo "WAIT")))))))
+          ("w" "Weekly Overview"
+           ((org-ql-block '(and (or (deadline auto)
+                                    (scheduled :to 7))
+                                (not (done))
+                                (not (habit)))
+                          ((org-ql-block-header "Weekly Tasks")
+                           (org-super-agenda-groups
+                            '((:name "Deadlines"
+                                     :deadline t
+                                     :order 1)
+                              (:name "Schedule"
+                                     :scheduled t
+                                     :order 2)
+                              (:discard (:anything t))))))
+            (org-ql-block '(and (ts-active :from today :to 7 :with-time t)
+                                (not (done))
+                                (not (habit)))
+                          ((org-ql-block-header "Appointments")
+                           (org-super-agenda-groups
+                            '((:name "This Week"
+                                     :anything t
+                                     :order 1)))))
+            (org-ql-block '(and (habit)
+                                (not (done)))
+                          ((org-ql-block-header "Habits")
+                           (org-super-agenda-groups
+                            '((:name "Daily Habits"
+                                     :habit t
+                                     :order 1)
+                              (:discard (:anything t)))))))))))
+
+(setq org-todo-keywords
+      '((sequence "WAIT(w@/!)" "HABIT(h)" "TODO(t)" "NEXT(n)" "|" "DONE(d!)")
+        (sequence "BACKLOG(b)" "PLAN(p)" "READY(r)" "ACTIVE(a)" "REVIEW(v)"
+                  "FUN(f)" "|" "COMPLETED(c)" "CANC(k@)")))
+
+(use-package ox-typst
+  :straight (:host github :repo "jmpunkt/ox-typst")
+  :after org)
+
+(use-package org-cliplink
+  :ensure t
+  :defer t)
+
+(use-package org-download
+  :ensure t
+  :hook (org-mode . org-download-enable)
+  :config
+  (setq-default org-download-image-dir "~/org/attachments/")
+  (setq org-download-method 'directory)
+  (setq org-download-timestamp "%Y%m%d-%H%M%S_")
+  (setq org-download-heading-lvl nil))
+
+;; (setq org-publish-project-alist
+;;       '(("wiki"
+;;          :author "cashmere"
+;;          :email "cashmere@cashmere.rs"
+;;          :preserve-breaks t
+;;          :preserve-indent t
+;;          :with-title t
+;;          :base-directory "/home/cashmere/wiki/"
+;;          :base-extension "org"
+;;          :publishing-directory "/home/cashmere/wiki/html/"
+;;          :recursive t
+;;          :publishing-function org-html-publish-to-html
+;;          :with-toc nil
+;;          :section-numbers nil
+;;          :html-head "<link rel=\"stylesheet\" href=\"/style.css\" type=\"text/css\"/>"
+;;          :preparation-function (lambda (_)
+;;                                   (require 'denote-org)
+;;                                   (dolist (file (directory-files-recursively 
+;;                                                 "/home/cashmere/wiki/" "\\.org$"))
+;;                                     (with-current-buffer (find-file-noselect file)
+;;                                       (ignore-errors
+;;                                         (denote-org-extras-convert-links-to-file-type))
+;;                                       (save-buffer)))))))
+
+(setq org-publish-project-alist
+      '(("wiki"
+         :base-directory "~/wiki"
+         :publishing-directory "~/blog/content/wiki"
+         :publishing-function denote-publish-to-md
+         :recursive nil
+         :exclude-tags ("noexport" "draft")
+         :section-numbers nil
+         :with-creator nil
+         :with-toc nil)))
+
+(setq org-export-with-broken-links t)
+
+(use-package ox-pandoc
+  :ensure t
+  :after org
+  )
+
+(use-package denote
+  :ensure t
+  :hook (dired-mode . denote-dired-mode)
+  :config
+  (setq denote-rename-buffer-format "%t"
+        denote-buffer-name-prefix ""
+        denote-directory (expand-file-name "~/org/"))
+  (denote-rename-buffer-mode 1))
+
+(use-package denote-agenda
+  :ensure t
+  :after org
+  :config
+  (setq denote-agenda-include-regexp "task")
+  (denote-agenda-insinuate))
+
+(defcustom my/denote-task-filename-component-regexp
+  "\\(?:[-_.]\\|:\\)task\\(?:[-_.]\\|:\\|$\\)"
+  "Regexp matching a filename component that denotes the 'task' tag.
+Works on the base filename (without extension), e.g. matches \"-task\", \":task:\", \"_task_\"."
+  :type 'string)
+
+(defun my/denote--make-unique-filename (dir base ext)
+  "Return a unique filepath in DIR for BASE+EXT by adding -1, -2... if needed."
+  (let* ((extstr (if (and ext (not (string-empty-p ext))) (concat "." ext) ""))
+         (candidate (expand-file-name (concat base extstr) dir))
+         (count 1))
+    (while (file-exists-p candidate)
+      (setq candidate (expand-file-name (format "%s-%d%s" base count extstr) dir))
+      (setq count (1+ count)))
+    candidate))
+
+(defun my/denote-remove-task-filetag-and-silent-rename ()
+  "If current headline became DONE in a Denote note, remove :task: filetag and remove 'task' from filename silently.
+- Only acts if there are no other non-DONE TODOs in the same file.
+- Does not call Denote's interactive rename command (no buffers opened)."
+  (when (and (derived-mode-p 'org-mode)
+             (string= (org-get-todo-state) "DONE")
+             (buffer-file-name)
+             ;; detect Denote note by presence of #+identifier:
+             (save-excursion
+               (goto-char (point-min))
+               (re-search-forward "^#\\+identifier:" nil t)))
+    ;; only proceed if no other active TODOs remain in the file
+    (let ((has-other
+           (catch 'has
+             (org-map-entries
+              (lambda ()
+                (let ((s (org-get-todo-state)))
+                  (when (and s (not (string= s "DONE")))
+                    (throw 'has t))))
+              nil 'file)
+             nil)))
+      (unless has-other
+        ;; 1) Remove :task: from #+filetags:
+        (save-excursion
+          (goto-char (point-min))
+          (when (re-search-forward "^#\\+filetags:\\s-*\\(.*\\)$" nil t)
+            (let* ((tags (match-string 1))
+                   (clean (replace-regexp-in-string ":task:" "" tags))
+                   (clean (replace-regexp-in-string "::+" ":" clean))
+                   (clean (replace-regexp-in-string "^:\\|:$" "" clean)))
+              (if (string-empty-p clean)
+                  (delete-region (line-beginning-position) (1+ (line-end-position)))
+                (beginning-of-line)
+                (kill-line)
+                (insert (concat "#+filetags: :" clean ":"))))))
+        ;; 2) Compute new filename (silent, non-interactive)
+        (let* ((file (buffer-file-name))
+               (dir  (file-name-directory file))
+               (name (file-name-nondirectory file))
+               (ext  (file-name-extension name)) ;; "org"
+               (base (file-name-sans-extension name))
+               ;; remove the task component from the base
+               (new-base (replace-regexp-in-string my/denote-task-filename-component-regexp
+                                                   ""
+                                                   base)))
+          (when (and new-base (not (string= new-base base)))
+            ;; cleanup repeated separators: convert multiple '-'/'_'/'..' to single '-'
+            (setq new-base (replace-regexp-in-string "[-_.:]+"
+                                                     "-"
+                                                     new-base))
+            ;; strip leading/trailing separators
+            (setq new-base (replace-regexp-in-string "\\`[-_.:-]+" "" new-base))
+            (setq new-base (replace-regexp-in-string "[-_.:-]+\\'" "" new-base))
+            ;; ensure unique filename to avoid overwrite without prompt
+            (let ((target (my/denote--make-unique-filename dir new-base ext)))
+              (condition-case err
+                  (progn
+                    (rename-file file target 1) ;; 1 = ok to overwrite, but we avoid collisions by uniqueness
+                    ;; update current buffer to visit the new filename silently
+                    (set-visited-file-name target t t)
+                    ;; save changes (filetags update + new filename)
+                    (save-buffer)
+                    (message "Denote: removed 'task' component from filename -> %s" (file-name-nondirectory target)))
+                (error
+                 (message "Denote rename failed: %s" (error-message-string err)))))))))))
+
+(add-hook 'org-after-todo-state-change-hook #'my/denote-remove-task-filetag-and-silent-rename)
+
+
+
+(use-package denote-menu
+  :ensure t
+  :defer t
+  :config
+  (setq denote-menu-title-column-width 40
+        denote-menu-show-file-type nil))
+
+(use-package denote-org
+    :ensure t)
+
+(use-package consult-denote
+  :straight (:host github :repo "protesilaos/consult-denote")
+  :ensure t
+  :defer t)
+
+(defun my/convert-all-denote-links-in-directory (directory)
+  "Converts all denote: links to file: links in a specific directory."
+  (interactive "DDirectory: ")
+  (let ((org-files (directory-files directory t "\\.org$")))
+    (dolist (file org-files)
+      (with-current-buffer (find-file-noselect file)
+        (save-excursion
+          (goto-char (point-min))
+          (while (re-search-forward "\\[\\[denote:\\([0-9T]+\\)\\]\\(?:\\[\\([^]]*\\)\\]\\)?\\]" nil t)
+            (let* ((id (match-string 1))
+                   (description (match-string 2))
+                   (target-file (seq-find 
+                                (lambda (f) 
+                                  (string-match-p (regexp-quote id) (file-name-nondirectory f)))
+                                org-files)))
+              (when target-file
+                (let* ((target-filename (file-name-nondirectory target-file))
+                       (new-link (if description
+                                     (format "[[file:./%s][%s]]" target-filename description)
+                                   (format "[[file:./%s]]" target-filename))))
+                  (replace-match new-link t t))))))
+        (save-buffer)
+        (kill-buffer)))))
+
+(defvar my-org-export-output-directory-prefix "./export_")
+
+(defun my-org-export-create-directory (fn extension &rest args)
+  (let ((export-dir (format "%s%s" my-org-export-output-directory-prefix extension)))
+    (unless (file-directory-p export-dir)
+      (make-directory export-dir)))
+  (apply fn extension args))
+
+(advice-add #'org-export-output-file-name :around #'my-org-export-create-directory)
+(setq denote-excluded-directories-regexp "export_.*")
+
+(use-package ox-json
+  :ensure t
+  )
+
+(use-package denote-explore
+  :ensure t
+  )
+
+(use-package denote-publish
+  :ensure t
+  :straight ( denote-publish :type git :host nil :repo "https://github.com/vedang/denote-publish")) 
+
+(setq denote-publish-default-base-dir "~/wiki")
+(setq denote-publish-default-output-dir "~/blog/wiki")
+
+(setq denote-publish-link-class "internal-link")
+
+(setq denote-publish-front-matter-fields
+      '(title subtitle identifier date last_updated_at
+              aliases tags category skip_archive has_code
+              og_image og_description og_video_id))
+
+(use-package which-key
+  :ensure t
+  :defer t
+  :hook
+  (after-init . which-key-mode)
+  :custom
+  (which-key-idle-delay 0.3))
+
+(use-package vertico
+  :ensure t
+  :straight t
+  :hook
+  (after-init . vertico-mode)
+  :custom
+  (vertico-count 10)
+  (vertico-resize nil)
+  (vertico-cycle nil)
+  :bind (:map vertico-map
+                          ("C-j" . vertico-next)
+                          ("C-k" . vertico-previous))
+  :config
+  (advice-add #'vertico--format-candidate :around
+                          (lambda (orig cand prefix suffix index _start)
+                                (setq cand (funcall orig cand prefix suffix index _start))
+                                (concat
+                                 (if (= vertico--index index)
+                                         (propertize "» " 'face '(:foreground "#80adf0" :weight bold))
+                                   "  ")
+                                 cand))))
+
+(use-package vertico-posframe
+  :init
+  (setq vertico-posframe-parameters   '((left-fringe  . 12)    ;; Fringes
+                                        (right-fringe . 12)
+										(accept-focus . t)))
+                                        ;; (undecorated  . nil) ;; Rounded frame
+										 
+  :config
+  (vertico-posframe-mode 1)
+  (setq vertico-posframe-width        96                       ;; Narrow frame
+        vertico-posframe-height       vertico-count            ;; Default height
+        ;; Don't create posframe for these commands
+        vertico-multiform-commands    '((consult-line    (:not posframe))
+                                        (consult-ripgrep (:not posframe)))))
+
+(use-package corfu
+  :ensure t
+  :custom
+  ;; Optional customizations
+  ;; :custom
+  ;; (corfu-cycle t)                ;; Enable cycling for `corfu-next/previous'
+  ;; (corfu-quit-at-boundary nil)   ;; Never quit at completion boundary
+  ;; (corfu-quit-no-match nil)      ;; Never quit, even if there is no match
+  ;; (corfu-preview-current nil)    ;; Disable current candidate preview
+  ;; (corfu-preselect 'prompt)      ;; Preselect the prompt
+  ;; (corfu-on-exact-match 'insert) ;; Configure handling of exact matches
+
+  ;; Enable Corfu only for certain modes. See also `global-corfu-modes'.
+  ;; :hook ((prog-mode . corfu-mode)
+  ;;        (shell-mode . corfu-mode)
+  ;;        (eshell-mode . corfu-mode))
+  (corfu-auto t)
+  (corfu-auto-delay 0.2)
+  (corfu-auto-prefix 2)
+  :init
+
+  ;; Recommended: Enable Corfu globally.  Recommended since many modes provide
+  ;; Capfs and Dabbrev can be used globally (M-/).  See also the customization
+  ;; variable `global-corfu-modes' to exclude certain modes.
+  ;; Enable optional extension modes:
+  ;; (corfu-history-mode)
+  ;; (corfu-popupinfo-mode)
+  (global-corfu-mode))
+
+(use-package consult
+  :ensure t
+  :straight t
+  :defer t
+  :init
+  (advice-add #'register-preview :override #'consult-register-window)
+
+  (setq xref-show-xrefs-function #'consult-xref
+        xref-show-definitions-function #'consult-xref)
+
+  :config
+  (setq consult-buffer-filter
+        '("\\` "
+          "\\`\\*Messages\\*\\'"
+          "\\`\\*Warnings\\*\\'"
+          "\\`\\*Compile-Log\\*\\'"
+          "\\`\\*Backtrace\\*\\'"
+          "\\`\\*Help\\*\\'"
+          "\\`\\*scratch\\*\\'"
+          "\\`\\*Completions\\*\\'"
+          "\\`\\*Flymake"
+          "\\`\\*lsp-help\\*\\'"
+          "\\`\\*eldoc"
+          "\\`\\*straight-process\\*\\'"
+          "\\`\\*Native-compile-Log\\*\\'"
+          "\\`\\*Async-native-compile-log\\*\\'")))
+
+(use-package markdown-mode
+  :defer t
+  :ensure t
+  :mode ("README\\.md\\'" . gfm-mode)            
+  :init 
+  (setq markdown-command "multimarkdown"))
+
+;; (use-package treesit-auto
+;;   :ensure t
+;;   :straight t
+;;   :defer t
+;;   :custom
+;;   (treesit-auto-install 'prompt)
+;;   :init
+;;   (delete 'org treesit-auto-langs)
+;;   :config
+;;   (treesit-auto-add-to-auto-mode-alist 'all)
+;;   (global-treesit-auto-mode t))
+
+(use-package embark
+  :ensure t
+  :straight t
+  :defer t)
+
+(use-package embark-consult
+  :ensure t
+  :straight t
+  :hook
+  (embark-collect-mode . consult-preview-at-point-mode)) ;; Enable preview in Embark collect mode.
+
+(use-package orderless
+    :ensure t
+    :straight t
+    :defer t                                    ;; Load Orderless on demand.
+    :after vertico                              ;; Ensure Vertico is loaded before Orderless.
+    :init
+    (setq completion-styles '(orderless basic)  ;; Set the completion styles.
+completion-category-defaults nil      ;; Clear default category settings.
+completion-category-overrides '((file (styles partial-completion))))) ;; Customize file completion styles.
+
+(use-package marginalia
+  :ensure t
+  :straight t
+  :hook
+  (after-init . marginalia-mode))
+
+(use-package eglot
+  :straight nil
+  :ensure nil
+  :config
+  (setq eglot-autoshutdown t)
+  (setq eglot-sync-connect 1)
+  (setq eglot-send-changes-idle-time 0.1)
+  (setq eglot-sync-connect nil)
+  (setq eglot-connect-timeout nil)
+  (setq eglot-events-buffer-size 0)
+  (setq eglot-report-progress nil)
+  
+  (add-hook 'eglot-managed-mode-hook 
+            (lambda () 
+              (eglot-inlay-hints-mode -1)))
+  
+  (setq eglot-ignored-server-capabilities 
+        '(:inlayhintprovider :documenthighlightprovider)))
+
+
+
+;; (use-package eglot-booster
+;;   :ensure t
+;;   :straight ( eglot-booster :type git :host nil :repo "https://github.com/jdtsmith/eglot-booster")
+;;   :after eglot
+;;   :config	(eglot-booster-mode))
+
+(use-package typst-ts-mode
+  :ensure t
+  :mode "\\.typ\\'"
+  :hook (typst-ts-mode . eglot-ensure)
+  :config
+  (with-eval-after-load 'eglot
+    (add-to-list 'eglot-server-programs
+                 typst-ts-mode . ,(eglot-alternatives '("tinymist" "lsp")))))
+
+(use-package yasnippet
+  :ensure t
+  :config
+  (yas-global-mode 1))
+
+(use-package yasnippet-snippets
+  :ensure t
+  :after yasnippet)
+
+;; (use-package company
+;;   :straight t
+;;   :hook (after-init . global-company-mode)
+;;   :bind (:map company-active-map
+;;               ("C-n" . company-select-next)
+;;               ("C-p" . company-select-previous)
+;;               ("C-j" . company-select-next-or-abort)
+;;               ("C-k" . company-select-previous-or-abort)
+;;               ("M-j" . company-select-next)
+;;               ("M-k" . company-select-previous)
+;;               ("<tab>" . company-complete-selection)
+;;               ("TAB" . company-complete-selection))
+;;   :config
+;;   (setq company-minimum-prefix-length 1)
+;;   (setq company-idle-delay 0.1)
+;;   (setq company-show-numbers t)
+;;   (setq company-tooltip-align-annotations t)
+;;   (setq company-require-match nil)
+;;   (setq company-backends '((company-capf :with company-yasnippet)
+;;                            company-files
+;;                            company-dabbrev-code
+;;                            ))
+;;   (setq company-dabbrev-code-everywhere t)
+;;   (setq company-dabbrev-code-ignore-case t))
+
+(use-package nix-mode
+  :ensure t
+  :mode "\\.nix\\'"
+  :hook (nix-mode . eglot-ensure)
+  :config
+  (with-eval-after-load 'eglot
+    (add-to-list 'eglot-server-programs
+                 '(nix-mode . ("nixd")))))
+
+(defun lspce-nixd-initializationOptions ()
+  (let ((flake-path "/home/cashmere/nix")
+        (config-name "x12"))
+    `(:nixpkgs (:expr ,(format "import (builtins.getFlake \"%s\").inputs.nixpkgs { }" flake-path))
+      :formatting (:command ["nixfmt"])
+      :options (:nixos (:expr ,(format "(builtins.getFlake \"%s\").nixosConfigurations.%s.options" flake-path config-name))
+                :home-manager (:expr ,(format "(builtins.getFlake \"%s\").nixosConfigurations.%s.config.home-manager.users.cashmere.options" flake-path config-name))))))
+
+(use-package envrc
+  :ensure t
+  :config
+  (envrc-global-mode))
+
+(use-package python-mode
+  :ensure t
+  :mode "\\.py\\'"
+  :hook (python-mode . eglot-ensure)
+  :config
+  (with-eval-after-load 'eglot
+    (add-to-list 'eglot-server-programs
+                 '(python-mode . ("pyright-langserver" "--stdio")))))
+
+(use-package python-black
+  :ensure t
+  :demand t
+  :after python)
+
+(use-package rust-mode
+  :ensure t
+  :mode "\\.rs\\'"
+  :hook (rust-mode . eglot-ensure)
+  :config
+  (with-eval-after-load 'eglot
+    (add-to-list 'eglot-server-programs
+                 '((rust-ts-mode rust-mode) .
+                   ("rust-analyzer" :initializationOptions 
+                    (:check (:command "clippy")))))))
+
+;; (use-package rustic
+;;   :ensure t
+;;   :config
+;;   (setq rustic-format-on-save nil)
+;;   (setq rustic-lsp-client nil)
+;;   :custom
+;;   (rustic-cargo-use-last-stored-arguments t))
+
+(use-package nushell-mode
+  :ensure t
+  :mode "\\.nu\\'")
+
+(use-package nushell-ts-babel
+  :straight (nushell-ts-babel :type git :host github :repo "herbertjones/nushell-ts-babel")
+  :after org
+  :config
+  (org-babel-do-load-languages
+   'org-babel-load-languages
+   (append org-babel-load-languages
+           '((nushell . t)))))
+
+(use-package go-mode
+  :ensure t
+  :mode "\\.go\\'"
+  :hook (go-mode . eglot-ensure)
+  :config
+  (with-eval-after-load 'eglot
+    (add-to-list 'eglot-server-programs
+                 '(go-mode . ("gopls" :initializationOptions 
+                              (:staticcheck t
+                               :matcher "CaseSensitive"
+                               :usePlaceholders t)))))
+  
+  (defun go-mode-setup ()
+    (add-hook 'before-save-hook #'eglot-format-buffer -10 t)
+    (add-hook 'before-save-hook 
+              (lambda ()
+                (when (eglot-managed-p)
+                  (eglot-code-action-organize-imports nil t)))
+              nil t))
+  
+  (add-hook 'go-mode-hook #'go-mode-setup))
+
+(use-package json-mode
+  :ensure t
+  :mode "\\.json\\'"
+  :hook (json-mode . eglot-ensure)
+  :config
+  (with-eval-after-load 'eglot
+    (add-to-list 'eglot-server-programs
+                 '(json-mode . ("vscode-json-language-server" "--stdio")))))
+
+(use-package yaml-mode
+  :ensure t
+  :mode "\\.ya?ml\\'"
+  :hook (yaml-mode . eglot-ensure))
+
+(use-package sh-mode
+  :straight nil
+  :ensure nil
+  :hook (bash-ts-mode . eglot-ensure)
+        (sh-mode . eglot-ensure)
+  :config
+  (with-eval-after-load 'eglot
+    (add-to-list 'eglot-server-programs
+                 '((sh-mode bash-ts-mode) . ("bash-language-server" "start"))))
+  
+  (defun sh-mode-setup ()
+    (add-hook 'before-save-hook #'eglot-format-buffer -10 t))
+  
+  (add-hook 'sh-mode-hook #'sh-mode-setup)
+  (add-hook 'bash-ts-mode-hook #'sh-mode-setup))
+
+(use-package vterm
+  :ensure t
+  :defer t)
+
+(use-package multi-vterm
+  :ensure t
+  :defer t)
+
+(use-package olivetti
+  :ensure t
+  :defer t)
+
+(use-package diff-hl
+  :defer t
+  :straight t
+  :ensure t
+  :hook
+  (find-file . (lambda ()
+                 (global-diff-hl-mode)           ;; Enable Diff-HL mode for all files.
+                 (diff-hl-flydiff-mode)          ;; Automatically refresh diffs.
+                 (diff-hl-margin-mode)))         ;; Show diff indicators in the margin.
+  :custom
+  (diff-hl-side 'left)                           ;; Set the side for diff indicators.
+  (diff-hl-margin-symbols-alist '((insert . "┃") ;; Customize symbols for each change type.
+                                  (delete . "-")
+                                  (change . "┃")
+                                  (unknown . "┆")
+                                  (ignored . "i"))))
+
+(use-package magit
+  :ensure t
+  :straight t
+  :config
+  (if ek-use-nerd-fonts   ;; Check if nerd fonts are being used
+	  (setopt magit-format-file-function #'magit-format-file-nerd-icons)) ;; Turns on magit nerd-icons
+  :custom
+  (magit-display-buffer-function #'magit-display-buffer-same-window-except-diff-v1))
+(defun my/magit-kill-buffers ()
+  "kills all magit buffers"
+  (interactive)
+  (let ((buffers (magit-mode-get-buffers)))
+	(magit-restore-window-configuration)
+	(mapc #'kill-buffer buffers)))
+
+(setq switch-to-prev-buffer-skip
+      (lambda (window buffer bury-or-kill)
+        (string-match-p "\\*magit" (buffer-name buffer))))
+
+(use-package indent-guide
+  :defer t
+  :straight t
+  :ensure t
+  :hook
+  (prog-mode . indent-guide-mode)  ;; Activate indent-guide in programming modes.
+  :config
+  (setq indent-guide-char "│"))    ;; Set the character used for the indent guide.
+
+(use-package general
+  :straight t
+  :ensure t
+  :demand t
+  :config
+  (general-evil-setup)
+
+  (general-create-definer my-leader
+    :states '(normal visual)
+    :keymaps 'override
+    :prefix "SPC")
+
+  (general-create-definer my-local-leader
+    :states '(normal visual)
+    :keymaps 'override
+    :prefix ","))
+
+(use-package evil
+  :ensure t
+  :init
+  (setq evil-want-integration t)
+  (setq evil-want-keybinding nil)
+  (setq evil-want-C-u-delete t)
+  (setq evil-want-C-u-scroll t)
+  (setq evil-undo-system 'undo-tree)
+  (setq evil-split-window-below t)
+  (setq evil-vsplit-window-right t)
+  :config
+  (evil-mode 1)
+  (define-key evil-normal-state-map "u" 'undo-tree-undo)
+  (define-key evil-normal-state-map (kbd "C-r") 'undo-tree-redo)
+   
+  (evil-set-initial-state 'help-mode 'emacs)
+  (evil-set-initial-state 'messages-buffer-mode 'normal)
+  (evil-set-initial-state 'dired-mode 'normal)
+  (evil-set-initial-state 'ibuffer-mode 'normal))
+
+(modify-syntax-entry ?_ "w")
+
+;; (setq select-enable-clipboard nil)
+;; (setq select-enable-primary nil)
+
+;; (evil-define-operator my/evil-yank-to-clipboard (beg end type register yank-handler)
+;;   :move-point nil
+;;   :repeat nil
+;;   (interactive "<R><x><y>")
+;;   (let ((select-enable-clipboard t))
+;;     (evil-yank beg end type register yank-handler)))
+
+;; (defun my/evil-paste-from-clipboard ()
+;;   (interactive)
+;;   (let ((select-enable-clipboard t))
+;;     (evil-paste-before 1 ?+)))
+
+;; (general-def '(normal visual) 'override
+;;   :prefix "SPC"
+;;   "yy" 'my/evil-yank-to-clipboard
+;;   "yp" 'my/evil-paste-from-clipboard)
+
+(use-package smartparens
+  :ensure t
+  :init
+  (smartparens-global-mode 1)  
+  :config
+  (require 'smartparens-config))
+(use-package evil-smartparens
+  :ensure t
+  :after evil-collection
+  :hook (smartparens-global-mode . evil-smartparens-mode))
+
+(use-package evil-collection
+  :after evil
+  :ensure t
+  :config
+  (evil-collection-init))
+
+(use-package evil-surround
+  :ensure t
+  :straight t
+  :after evil-collection
+  :config
+  (global-evil-surround-mode 1))
+
+(use-package evil-matchit
+  :ensure t
+  :straight t
+  :after evil-collection
+  :config
+  (global-evil-matchit-mode 1))
+
+(use-package evil-textobj-anyblock
+  :ensure t
+  :after evil
+  :config
+  (define-key evil-inner-text-objects-map "b" 'evil-textobj-anyblock-inner-block)
+  (define-key evil-outer-text-objects-map "b" 'evil-textobj-anyblock-a-block)
+  
+  (setq evil-textobj-anyblock-blocks
+        '(("(" . ")")
+          ("{" . "}")
+          ("\\[" . "\\]")
+          ("<" . ">"))))
+
+(evil-define-text-object my-evil-textobj-anyblock-inner-quote
+  (count &optional beg end type)
+  "Select the closest outer quote."
+  (let ((evil-textobj-anyblock-blocks
+         '(("'" . "'")
+           ("\"" . "\"")
+           ("`" . "'")
+           ("“" . "”"))))
+    (evil-textobj-anyblock--make-textobj beg end type count nil)))
+
+(evil-define-text-object my-evil-textobj-anyblock-a-quote
+  (count &optional beg end type)
+  "Select the closest outer quote."
+  (let ((evil-textobj-anyblock-blocks
+         '(("'" . "'")
+           ("\"" . "\"")
+           ("`" . "'")
+           ("“" . "”"))))
+    (evil-textobj-anyblock--make-textobj beg end type count t)))
+
+(define-key evil-inner-text-objects-map "q" 'my-evil-textobj-anyblock-inner-quote)
+(define-key evil-outer-text-objects-map "q" 'my-evil-textobj-anyblock-a-quote)
+
+(use-package avy
+  :ensure t
+  :straight t
+  :after evil
+  :general
+  ;; (general-nmap "s" 'avy-goto-char-timer)
+  ;; (general-omap "s" 'evil-avy-goto-char-timer)
+  :config
+  (setq avy-all-windows t
+        avy-all-windows-alt t
+        avy-background t
+        avy-case-fold-search t
+        avy-timeout-seconds 0.3
+        avy-style 'at-full
+        avy-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l))
+
+  (evil-define-avy-motion evil-avy-goto-char-timer inclusive))
+
+(use-package undo-tree
+  :defer t
+  :ensure t
+  :straight t
+  :hook (after-init . global-undo-tree-mode)
+  :init
+  (setq undo-tree-visualizer-timestamps t
+        undo-tree-visualizer-diff t
+        undo-tree-auto-save-history t
+        undo-tree-history-directory-alist '(("." . "~/.emacs.d/undo-tree-history/"))
+        undo-limit 800000
+        undo-strong-limit 12000000
+        undo-outer-limit 120000000)
+  :config
+  (setq undo-tree-mode-lighter ""))
+
+(use-package rainbow-delimiters
+  :defer t
+  :straight t
+  :ensure t
+  :hook
+  (prog-mode . rainbow-delimiters-mode))
+
+(use-package dotenv-mode
+  :defer t
+  :straight t
+  :ensure t
+  :config)
+
+(use-package envrc
+  :hook (after-init . envrc-global-mode))
+
+;; (use-package pulsar
+;;   :defer t
+;;   :straight t
+;;   :ensure t
+;;   :hook
+;;   ;; (after-init . pulsar-global-mode)
+;;   :init
+;;   (setq pulsar-pulse-on-window-change nil)
+;;   :config
+;;   (setq pulsar-pulse t)
+;;   (setq pulsar-delay 0.025)
+;;   (setq pulsar-iterations 10)
+;;   (setq pulsar-face 'evil-ex-lazy-highlight)
+
+;;   (add-hook 'org-agenda-mode-hook
+;;             (lambda () (pulsar-mode -1)))
+
+;;   (setq pulsar-pulse-functions
+;;         '(evil-scroll-down
+;;           flymake-goto-next-error
+;;           flymake-goto-prev-error
+;;           evil-yank
+;;           evil-yank-line
+;;           evil-delete
+;;           evil-delete-line
+;;           evil-jump-item
+;;           diff-hl-next-hunk
+;;           diff-hl-previous-hunk
+;;           recenter-top-bottom
+;;           move-to-window-line-top-bottom
+;;           reposition-window
+;;           bookmark-jump
+;;           other-window
+;;           delete-window
+;;           delete-other-windows
+;;           forward-page
+;;           backward-page
+;;           scroll-up-command
+;;           scroll-down-command
+;;           windmove-right
+;;           windmove-left
+;;           windmove-up
+;;           windmove-down
+;;           tab-new
+;;           tab-close
+;;           tab-next)))
+
+(use-package evil-org
+  :ensure t
+  :straight t
+  :after org
+  :hook (org-mode . (lambda () evil-org-mode))
+  :config
+  (require 'evil-org-agenda)
+  (evil-org-agenda-set-keys))
+
+(use-package nerd-icons
+  :if ek-use-nerd-fonts                   ;; Load the package only if the user has configured to use nerd fonts.
+  :ensure t                               ;; Ensure the package is installed.
+  :straight t
+  :defer t)                               ;; Load the package only when needed to improve startup time.
+
+(use-package nerd-icons-dired
+  :if ek-use-nerd-fonts                   ;; Load the package only if the user has configured to use nerd fonts.
+  :ensure t                               ;; Ensure the package is installed.
+  :straight t
+  :defer t                                ;; Load the package only when needed to improve startup time.
+  :hook
+  (dired-mode . nerd-icons-dired-mode))
+
+(use-package nerd-icons-completion
+  :if ek-use-nerd-fonts                   ;; Load the package only if the user has configured to use nerd fonts.
+  :ensure t                               ;; Ensure the package is installed.
+  :straight t
+  :after (:all nerd-icons marginalia)     ;; Load after `nerd-icons' and `marginalia' to ensure proper integration.
+  :config
+  (nerd-icons-completion-mode)            ;; Activate nerd icons for completion interfaces.
+  (add-hook 'marginalia-mode-hook #'nerd-icons-completion-marginalia-setup)) ;; Setup icons in the marginalia mode for enhanced completion display.
+
+(defun ek/first-install ()
+  "dired"
+  (interactive)                                      ;; Allow this function to be called interactively.
+  (switch-to-buffer "*Messages*")                    ;; Switch to the *Messages* buffer to display installation messages.
+  (message ">>> All required packages installed.")
+  (message ">>> Configuring Emacs-Kick...")
+  (message ">>> Configuring Tree Sitter parsers...")
+  (require 'treesit-auto)
+  (treesit-auto-install-all)                         ;; Install all available Tree Sitter grammars.
+  (message ">>> Configuring Nerd Fonts...")
+  (require 'nerd-icons)
+  (nerd-icons-install-fonts)                         ;; Install all available nerd-fonts
+  (message ">>> Emacs-Kick installed! Press any key to close the installer and open Emacs normally. First boot will compile some extra stuff :)")
+  (read-key)                                         ;; Wait for the user to press any key.
+  (kill-emacs))                                      ;; Close Emacs after installation is complete.
+
+(require 'battery)
+(require 'nerd-icons)
+
+(defface my-battery-charging
+  '((t :inherit success))
+  "Face for charging battery.")
+
+(defface my-battery-full
+  '((t :inherit success))
+  "Face for full battery.")
+
+(defface my-battery-normal
+  '((t :inherit mode-line))
+  "Face for normal battery.")
+
+(defface my-battery-warning
+  '((t :inherit warning))
+  "Face for low battery.")
+
+(defface my-battery-critical
+  '((t :inherit error))
+  "Face for critical battery.")
+
+(defface my-battery-error
+  '((t :inherit error))
+  "Face for battery error.")
+
+(defvar my-battery-string nil)
+
+(defun my-update-battery ()
+  (setq my-battery-string
+        (when (bound-and-true-p display-battery-mode)
+          (let* ((data (and battery-status-function
+                            (functionp battery-status-function)
+                            (funcall battery-status-function)))
+                 (status (cdr (assoc ?L data)))
+                 (charging? (or (string-equal "AC" status)
+                                (string-equal "on-line" status)))
+                 (percentage (car (read-from-string (or (cdr (assq ?p data)) "ERR"))))
+                 (valid? (and (numberp percentage)
+                              (>= percentage 0)
+                              (<= percentage battery-mode-line-limit)))
+                 (face (if valid?
+                           (cond (charging? 'my-battery-charging)
+                                 ((< percentage battery-load-critical) 'my-battery-critical)
+                                 ((< percentage 25) 'my-battery-warning)
+                                 ((< percentage 95) 'my-battery-normal)
+                                 (t 'my-battery-full))
+                         'my-battery-error))
+                 (icon (if valid?
+                           (cond
+                            ((>= percentage 100)
+                             (if charging?
+                                 (nerd-icons-mdicon "nf-md-battery_charging_100" :face face)
+                               (nerd-icons-mdicon "nf-md-battery" :face face)))
+                            ((>= percentage 90)
+                             (if charging?
+                                 (nerd-icons-mdicon "nf-md-battery_charging_90" :face face)
+                               (nerd-icons-mdicon "nf-md-battery_90" :face face)))
+                            ((>= percentage 80)
+                             (if charging?
+                                 (nerd-icons-mdicon "nf-md-battery_charging_80" :face face)
+                               (nerd-icons-mdicon "nf-md-battery_80" :face face)))
+                            ((>= percentage 70)
+                             (if charging?
+                                 (nerd-icons-mdicon "nf-md-battery_charging_70" :face face)
+                               (nerd-icons-mdicon "nf-md-battery_70" :face face)))
+                            ((>= percentage 60)
+                             (if charging?
+                                 (nerd-icons-mdicon "nf-md-battery_charging_60" :face face)
+                               (nerd-icons-mdicon "nf-md-battery_60" :face face)))
+                            ((>= percentage 50)
+                             (if charging?
+                                 (nerd-icons-mdicon "nf-md-battery_charging_50" :face face)
+                               (nerd-icons-mdicon "nf-md-battery_50" :face face)))
+                            ((>= percentage 40)
+                             (if charging?
+                                 (nerd-icons-mdicon "nf-md-battery_charging_40" :face face)
+                               (nerd-icons-mdicon "nf-md-battery_40" :face face)))
+                            ((>= percentage 30)
+                             (if charging?
+                                 (nerd-icons-mdicon "nf-md-battery_charging_30" :face face)
+                               (nerd-icons-mdicon "nf-md-battery_30" :face face)))
+                            ((>= percentage 20)
+                             (if charging?
+                                 (nerd-icons-mdicon "nf-md-battery_charging_20" :face face)
+                               (nerd-icons-mdicon "nf-md-battery_20" :face face)))
+                            ((>= percentage 10)
+                             (if charging?
+                                 (nerd-icons-mdicon "nf-md-battery_charging_10" :face face)
+                               (nerd-icons-mdicon "nf-md-battery_10" :face face)))
+                            (t (if charging?
+                                   (nerd-icons-mdicon "nf-md-battery_charging_outline" :face face)
+                                 (nerd-icons-mdicon "nf-md-battery_outline" :face face))))
+                         (nerd-icons-mdicon "nf-md-battery_alert" :face face)))
+                 (text (if valid? (format " %d%%" percentage) " N/A"))
+                 (help-echo (if (and battery-echo-area-format data valid?)
+                                (battery-format battery-echo-area-format data)
+                              "Battery status not available")))
+            (concat (propertize icon 'help-echo help-echo)
+                    (propertize text 'face face 'help-echo help-echo))))))
+
+(defun my-override-battery ()
+  (when (bound-and-true-p display-battery-mode)
+    (advice-add #'battery-update :after #'my-update-battery)
+    (setq global-mode-string (delq 'battery-mode-line-string global-mode-string))
+    (my-update-battery)))
+
+(add-hook 'display-battery-mode-hook #'my-override-battery)
+
+(display-time-mode 1)
+(display-battery-mode 1)
+
+(defun my-lspce-diagnostics-string ()
+  (when (and (bound-and-true-p lspce-mode)
+             (bound-and-true-p flymake-mode))
+    (let* ((diags (flymake-diagnostics))
+           (error-count 0)
+           (warning-count 0)
+           (note-count 0))
+      (dolist (diag diags)
+        (let ((severity (flymake-diagnostic-type diag)))
+          (cond
+           ((eq severity :error) (setq error-count (1+ error-count)))
+           ((eq severity :warning) (setq warning-count (1+ warning-count)))
+           ((eq severity :note) (setq note-count (1+ note-count))))))
+      (when (or (> error-count 0) (> warning-count 0) (> note-count 0))
+        (concat
+         (when (> error-count 0)
+           (propertize (format " %d" error-count)
+                       'face 'error
+                       'help-echo (format "%d error(s)" error-count)))
+         (when (> warning-count 0)
+           (propertize (format " %d" warning-count)
+                       'face 'warning
+                       'help-echo (format "%d warning(s)" warning-count)))
+         (when (> note-count 0)
+           (propertize (format " %d" note-count)
+                       'face 'success
+                       'help-echo (format "%d note(s)" note-count))))))))
+
+(setq-default header-line-format
+			  '("%e"
+				(:propertize " " display (raise +0.4))
+				(:propertize " " display (raise -0.4))
+				
+				(:propertize "λ " face font-lock-comment-face)
+				mode-line-frame-identification
+				mode-line-buffer-identification
+				
+				(:eval (when-let (vc vc-mode)
+						 (list (propertize "   " 'face 'font-lock-comment-face)
+							   (propertize (truncate-string-to-width
+											(substring vc 5) 50)
+										   'face 'font-lock-comment-face))))
+				
+				(:eval (my-lspce-diagnostics-string))
+				
+				(:propertize "  %4l:%c" face mode-line-buffer-id)
+				
+				(:eval (propertize
+						" " 'display
+						`((space :align-to
+								 (- (+ right right-fringe right-margin)
+									,(+ 3
+										(string-width (or my-battery-string ""))
+										(string-width (or display-time-string ""))))))))
+				
+				(:eval my-battery-string)
+				" "
+				(:eval display-time-string)))
+
+(setq-default mode-line-format nil)
+
+(defun my-lspce-diagnostics-string ()
+  (when (and (bound-and-true-p lspce-mode)
+             (bound-and-true-p flymake-mode))
+    (let* ((diags (flymake-diagnostics))
+           (error-count 0)
+           (warning-count 0)
+           (note-count 0))
+      (dolist (diag diags)
+        (let ((severity (flymake-diagnostic-type diag)))
+          (cond
+           ((eq severity :error) (setq error-count (1+ error-count)))
+           ((eq severity :warning) (setq warning-count (1+ warning-count)))
+           ((eq severity :note) (setq note-count (1+ note-count))))))
+      (when (or (> error-count 0) (> warning-count 0) (> note-count 0))
+        (concat
+         " "
+         (when (> error-count 0)
+           (concat
+            (nerd-icons-mdicon "nf-md-close_circle" :face 'error)
+            (propertize (format " %d " error-count)
+                        'face 'error
+                        'help-echo (format "%d error(s)" error-count))))
+         (when (> warning-count 0)
+           (concat
+            (nerd-icons-mdicon "nf-md-alert" :face 'warning)
+            (propertize (format " %d " warning-count)
+                        'face 'warning
+                        'help-echo (format "%d warning(s)" warning-count))))
+         (when (> note-count 0)
+           (concat
+            (nerd-icons-mdicon "nf-md-information" :face 'success)
+            (propertize (format " %d" note-count)
+                        'face 'success
+                        'help-echo (format "%d note(s)" note-count)))))))))
+
+(use-package hide-mode-line
+  :straight t
+  :defer t
+  :bind (:map custom-bindings-map ("C-c h m" . hide-mode-line-mode)))
+
+;; (use-package doom-modeline
+;;   :ensure t
+;;   :hook (after-init . doom-modeline-mode)
+;;   :config
+;;   (setq doom-modeline-buffer-file-name-style 'buffer-name))
+
+(use-package adaptive-wrap
+  :ensure t
+  :hook ((text-mode . adaptive-wrap-prefix-mode))
+  :config
+  (add-hook 'org-mode-hook 
+			(lambda () 
+			  (when (bound-and-true-p adaptive-wrap-prefix-mode)
+				(adaptive-wrap-prefix-mode -1)))))
+
+(setq package-gnupghome-dir "~/.gnupg")
+
+(blink-cursor-mode 0)
+(setq-default cursor-type 'bar)
+
+(defvar cashmere/font-height 140)
+
+(set-face-attribute 'default nil :family "JetBrainsMono Nerd Font" :weight 'regular :height cashmere/font-height)
+(set-face-attribute 'fixed-pitch nil :family "RobotoMono Nerd Font" :weight 'regular)
+(set-face-attribute 'variable-pitch nil :family "Poppins" :weight 'regular :height 1.1)
+
+(use-package mixed-pitch
+  :ensure t
+  :defer t
+  :hook ((org-mode   . mixed-pitch-mode)
+         (LaTeX-mode . mixed-pitch-mode)))
+
+;; (use-package catppuccin-theme
+;;   :ensure t
+;;   :straight t
+;;   :config
+;;   (setq catppuccin-flavor 'mocha)
+
+;;   (load-theme 'catppuccin :no-confirm)
+
+;;   (custom-set-faces
+;;    `(diff-hl-change ((t (:background unspecified :foreground ,(catppuccin-get-color 'blue))))))
+
+;;   (custom-set-faces
+;;    `(diff-hl-delete ((t (:background unspecified :foreground ,(catppuccin-get-color 'red))))))
+
+;;   (custom-set-faces
+;;    `(diff-hl-insert ((t (:background unspecified :foreground ,(catppuccin-get-color 'green)))))))
+
+(use-package modus-catppuccin
+  :straight (:type git
+             :repo "https://gitlab.com/magus/modus-catppuccin"
+             :branch "main")
+  :config
+  (load-theme 'catppuccin-latte :no-confirm))
+
+;; (use-package modus-themes
+;;   :ensure nil
+;;   :defer t
+;;   :custom
+;;   (modus-themes-italic-constructs t)
+;;   (modus-themes-bold-constructs t)
+;;   (modus-themes-mixed-fonts nil)
+;;   (modus-themes-prompts '(bold intense))
+;;   (modus-themes-common-palette-overrides
+;;    `((accent-0 "#1e66f5")
+;;      (accent-1 "#04a5e5")
+;;      (bg-active bg-main)
+;;      (bg-added "#d3f0d0")
+;;      (bg-added-refine "#b8e6b3")
+;;      (bg-changed "#dde5f5")
+;;      (bg-changed-refine "#c4d4f0")
+;;      (bg-completion "#ccd0da")
+;;      (bg-completion-match-0 "#eff1f5")
+;;      (bg-completion-match-1 "#eff1f5")
+;;      (bg-completion-match-2 "#eff1f5")
+;;      (bg-completion-match-3 "#eff1f5")
+;;      (bg-hl-line "#e6e9ef")
+;;      (bg-hover-secondary "#9ca0b0")
+;;      (bg-line-number-active unspecified)
+;;      (bg-line-number-inactive "#eff1f5")
+;;      (bg-main "#eff1f5")
+;;      (bg-mark-delete "#f5d9e0")
+;;      (bg-mark-select "#dde5f5")
+;;      (bg-mode-line-active "#e6e9ef")
+;;      (bg-mode-line-inactive "#e6e9ef")
+;;      (bg-prominent-err "#f5d9e0")
+;;      (bg-prompt unspecified)
+;;      (bg-prose-block-contents "#dce0e8")
+;;      (bg-prose-block-delimiter bg-prose-block-contents)
+;;      (bg-region "#9ca0b0")
+;;      (bg-removed "#f5d9e0")
+;;      (bg-removed-refine "#f0c9d1")
+;;      (bg-tab-bar      "#eff1f5")
+;;      (bg-tab-current  bg-main)
+;;      (bg-tab-other    "#eff1f5")
+;;      (border-mode-line-active nil)
+;;      (border-mode-line-inactive nil)
+;;      (builtin "#1e66f5")
+;;      (comment "#7c7f93")
+;;      (constant  "#d20f39")
+;;      (cursor  "#dc8a78")
+;;      (date-weekday "#1e66f5")
+;;      (date-weekend "#fe640b")
+;;      (docstring "#5c5f77")
+;;      (err     "#d20f39")
+;;      (fg-active fg-main)
+;;      (fg-completion "#4c4f69")
+;;      (fg-completion-match-0 "#1e66f5")
+;;      (fg-completion-match-1 "#d20f39")
+;;      (fg-completion-match-2 "#40a02b")
+;;      (fg-completion-match-3 "#fe640b")
+;;      (fg-heading-0 "#d20f39")
+;;      (fg-heading-1 "#fe640b")
+;;      (fg-heading-2 "#df8e1d")
+;;      (fg-heading-3 "#40a02b")
+;;      (fg-heading-4 "#04a5e5")
+;;      (fg-line-number-active "#7287fd")
+;;      (fg-line-number-inactive "#9ca0b0")
+;;      (fg-link  "#1e66f5")
+;;      (fg-main "#4c4f69")
+;;      (fg-mark-delete "#d20f39")
+;;      (fg-mark-select "#1e66f5")
+;;      (fg-mode-line-active "#4c4f69")
+;;      (fg-mode-line-inactive "#9ca0b0")
+;;      (fg-prominent-err "#d20f39")
+;;      (fg-prompt "#8839ef")
+;;      (fg-prose-block-delimiter "#7c7f93")
+;;      (fg-prose-verbatim "#40a02b")
+;;      (fg-region "#4c4f69")
+;;      (fnname    "#1e66f5")
+;;      (fringe "#eff1f5")
+;;      (identifier "#8839ef")
+;;      (info    "#179299")
+;;      (keyword   "#8839ef")
+;;      (keyword "#8839ef")
+;;      (name "#1e66f5")
+;;      (number "#fe640b")
+;;      (property "#1e66f5")
+;;      (string "#40a02b")
+;;      (type      "#df8e1d")
+;;      (variable  "#fe640b")
+;;      (warning "#df8e1d")))
+;;   :config
+;;   (modus-themes-with-colors
+;;     (custom-set-faces
+;;      `(change-log-acknowledgment ((,c :foreground "#7287fd")))
+;;      `(change-log-date ((,c :foreground "#40a02b")))
+;;      `(change-log-name ((,c :foreground "#fe640b")))
+;;      `(diff-context ((,c :foreground "#1e66f5")))
+;;      `(diff-file-header ((,c :foreground "#ea76cb")))
+;;      `(diff-header ((,c :foreground "#1e66f5")))
+;;      `(diff-hunk-header ((,c :foreground "#fe640b")))
+;;      `(gnus-button ((,c :foreground "#1e66f5")))
+;;      `(gnus-group-mail-3 ((,c :foreground "#1e66f5")))
+;;      `(gnus-group-mail-3-empty ((,c :foreground "#1e66f5")))
+;;      `(gnus-header-content ((,c :foreground "#04a5e5")))
+;;      `(gnus-header-from ((,c :foreground "#8839ef")))
+;;      `(gnus-header-name ((,c :foreground "#40a02b")))
+;;      `(gnus-header-subject ((,c :foreground "#1e66f5")))
+;;      `(log-view-message ((,c :foreground "#7287fd")))
+;;      `(match ((,c :background "#c4d4f0" :foreground "#4c4f69")))
+;;      `(modus-themes-search-current ((,c :background "#d20f39" :foreground "#eff1f5")))
+;;      `(modus-themes-search-lazy ((,c :background "#c4d4f0" :foreground "#4c4f69")))
+;;      `(newsticker-extra-face ((,c :foreground "#7c7f93" :height 0.8 :slant italic)))
+;;      `(newsticker-feed-face ((,c :foreground "#d20f39" :height 1.2 :weight bold)))
+;;      `(newsticker-treeview-face ((,c :foreground "#4c4f69")))
+;;      `(newsticker-treeview-selection-face ((,c :background "#c4d4f0" :foreground "#4c4f69")))
+;;      `(tab-bar ((,c :background "#eff1f5" :foreground "#4c4f69")))
+;;      `(tab-bar-tab ((,c :background "#eff1f5" :underline t)))
+;;      `(tab-bar-tab-group-current ((,c :background "#eff1f5" :foreground "#4c4f69" :underline t)))
+;;      `(tab-bar-tab-group-inactive ((,c :background "#eff1f5" :foreground "#7c7f93")))
+;;      `(tab-bar-tab-inactive ((,c :background "#eff1f5" :foreground "#5c5f77")))
+;;      `(vc-dir-file ((,c :foreground "#1e66f5")))
+;;      `(vc-dir-header-value ((,c :foreground "#7287fd")))))
+;;   :init
+;;   (load-theme 'modus-operandi t))
+
+;; (use-package kanagawa-themes
+;;   :ensure t
+;;   :config
+;;   (load-theme 'kanagawa-wave t))
+
+(use-package dirvish
+  :straight t
+  :init
+  (dirvish-override-dired-mode)
+
+  :custom
+  (dirvish-quick-access-entries
+   '(("h" "~/" "Home")
+     ("d" "~/Downloads/" "Downloads")
+     ("p" "~/projects/" "Projects")))
+
+  (dirvish-reuse-session 'open)
+  (dirvish-attributes '(file-size))
+  (dirvish-mode-line-format
+   '(:left (sort file-time symlink) :right (omit yank index)))
+
+  (dirvish-hide-details '(dirvish dirvish-side))
+  (dirvish-hide-cursor '(dirvish dirvish-side))
+
+  (dired-listing-switches
+   "-l --almost-all --human-readable --group-directories-first --no-group")
+
+  :config
+  (setq dired-dwim-target t)
+  (setq delete-by-moving-to-trash t)
+  (setq dired-mouse-drag-files t))
+
+(use-package dired-rsync 
+  :ensure t)
+
+(use-package dired-rsync-transient
+  :ensure t
+  :after (dired-rsync transient))
+
+(setq-default olivetti-body-width 130)
+(define-globalized-minor-mode my/global-olivetti-mode olivetti-mode
+  (lambda () (olivetti-mode 1)))
+(my/centered-cursor)
+(my/global-olivetti-mode)
+
+(use-package org-modern-indent
+  :straight (:host github :repo "jdtsmith/org-modern-indent")
+  :hook (org-mode . org-modern-indent-mode))
+
+(setq ibuffer-never-show-predicates
+      '(;; System buffers
+        "^\\*Messages\\*$"
+        "^\\*scratch\\*$"
+        "^\\*Completions\\*$"
+        "^\\*Help\\*$"
+        "^\\*Apropos\\*$"
+        "^\\*info\\*$"
+        "^\\*Async-native-compile-log\\*$"
+
+        ;; LSP Buffers
+        "^\\*lsp-log\\*$"
+        "^\\*clojure-lsp\\*$"
+        "^\\*clojure-lsp::stderr\\*$"
+        "^\\*ts-ls\\*$"
+        "^\\*ts-ls::stderr\\*$"))
+
+(use-package projectile
+  :ensure t
+  :demand t
+  :config
+  (projectile-mode +1)
+  (setq projectile-completion-system 'default
+        projectile-enable-caching t
+        projectile-indexing-method 'alien
+        projectile-sort-order 'recentf
+        projectile-require-project-root nil
+        projectile-globally-ignored-buffers '("\\*magit.*")))
+
+(use-package consult-projectile
+  :ensure t
+  :straight t
+  :after (consult projectile)
+  :defer t
+  :config
+  (setq consult-project-function #'projectile-project-root))
+
+(use-package hidepw
+  :ensure t
+  :custom
+  (hidepw-hide-first-line t)
+  :hook (pass-view-mode . hidepw-mode))
+
+(use-package pass
+  :ensure t
+  :defer t
+  :mode ("\\.gpg\\'" . pass-mode)
+  :config
+  (add-to-list 'display-buffer-alist
+               '("\\*Pass.*\\*"
+                 (display-buffer-full-frame))))
+
+(use-package auth-source
+  :straight nil
+  :ensure nil                                  ;; This is built-in, no need to fetch it.
+  :defer t
+  :config
+  ;; Enable password-store integration for secure API key retrieval.
+  (when (require 'auth-source-pass nil t)
+    (auth-source-pass-enable)
+    ;; Add password-store explicitly to auth-sources for compatibility.
+    (add-to-list 'auth-sources 'password-store)
+    ;; Optional: Cache expires after 5 minutes for security.
+    (setq auth-source-cache-expiry 300)))
+
+(use-package zoom
+  :ensure t)
+(custom-set-variables
+ '(zoom-size '(0.618 . 0.618)))
+
+(use-package pdf-tools
+  :straight (:type built-in)
+  :magic ("%PDF" . pdf-view-mode)
+  :config
+  (pdf-loader-install)
+  :hook (pdf-view-mode . (lambda () (display-line-numbers-mode -1))))
+
+(defun ek/lsp-describe-and-jump ()
+  (interactive)
+  (lspce-help-at-point)
+  (let ((help-buffer "*lsp-help*"))
+    (when (get-buffer help-buffer)
+      (switch-to-buffer-other-window help-buffer))))
+
+
+(defun my/eldoc-and-jump ()
+  "Zeige Eldoc-Dokumentation manuell an."
+  (interactive)
+  (if (>= emacs-major-version 31)
+      (eldoc-box-help-at-point)
+    (progn
+      (eldoc-doc-buffer)
+      (when-let ((eldoc-win (get-buffer-window "*eldoc*")))
+        (select-window eldoc-win)))))
+
+(evil-define-key 'normal 'global (kbd "K") #'my/eldoc-and-jump)
+
+;; (defun my/setup-eldoc-hover-keys ()
+;;   (when (string-match-p "\\*eldoc\\*" (buffer-name))
+;;     (evil-normalize-keymaps)
+;;     (evil-local-set-key 'normal (kbd "q") 'quit-window)))
+
+;; (add-hook 'buffer-list-update-hook #'my/setup-eldoc-hover-keys)
+
+;; (evil-define-key 'normal 'global (kbd "K") #'my/eldoc-and-jump)
+
+(defun my/format-buffer ()
+  (interactive)
+  (cond
+   ((eq major-mode 'rust-mode) (eglot-format-buffer))
+   ((eq major-mode 'nix-mode) (eglot-format-buffer))  
+   ((or (eq major-mode 'python-mode) 
+        (eq major-mode 'python-ts-mode)) (eglot-format-buffer))
+   ((eq major-mode 'c-mode) (eglot-format-buffer))
+   ((bound-and-func-p eglot--managed-mode) (eglot-format-buffer))
+   (t (message "No formatter for %s" major-mode))))
+
+(my-leader
+  "SPC" '((lambda () 
+            (interactive)
+            (if (projectile-project-p)
+                (consult-projectile-find-file)
+              (projectile-switch-project)))
+          :wk "find file/switch project")
+  "sp" '(consult-projectile :wk "search project")
+  "ss" '(consult-line :wk "search project")
+  "/" '(consult-ripgrep :wk "search project")
+  "." '(find-file :wk "find file")
+  "," '(consult-buffer :wk "switch buffer")
+  ":" (lambda () (interactive) (execute-extended-command nil))
+
+  "d" '(:ignore t :wk "denote")
+  "dd" '(denote-menu-list-notes t :wk "List all notes")
+  "dg" '(denote-grep t :wk "Search")
+  "dn" '(denote t :wk "Create a new note")
+  "dr" '(denote-rename-file t :wk "Rename Note")
+
+  "f" '(:ignore t :wk "files")
+  "fd" '(dired :wk "dired")
+  "fD" '(dired-jump :wk "dired jump")
+  "fr" '(consult-recent-file :wk "recent files")
+  "ff" '(find-file :wk "find file")
+  "fs" '(save-buffer :wk "save file")
+
+  "b" '(:ignore t :wk "buffers")
+  "bb" '(consult-buffer :wk "switch buffer")
+  "bi" '(ibuffer :wk "ibuffer")
+  "bd" '(kill-current-buffer :wk "kill buffer")
+  "bk" '(kill-current-buffer :wk "kill buffer")
+  "bs" '(save-buffer :wk "save buffer")
+
+  "p" '(:ignore t :wk "project")
+  "pp" '(projectile-switch-project :wk "switch project")
+  "pf" '(projectile-find-file :wk "find file")
+  "ps" '(consult-ripgrep :wk "search")
+  "pb" '(consult-projectile-buffer :wk "buffers") 
+  "pk" '(projectile-kill-buffers :wk "kill buffers") 
+  ;; "pd" '(projectile-dired :wk "root dir")
+  "pd" '(projectile-remove-known-project :wk "delete project")
+  "pr" '(projectile-recentf :wk "recent files")
+  "pa" '(projectile-add-known-project :wk "add project")
+  ;; "pc" '(projectile-compile-project :wk "compile")
+  ;; "pt" '(projectile-test-project :wk "test")
+  "pi" '(projectile-invalidate-cache :wk "invalidate cache")
+
+  "g" '(:ignore t :wk "git/goto")
+  "gc" '(magit-clone :wk "clone")
+  "gg" '(magit-status :wk "status")
+  "gl" '(magit-log-current :wk "log")
+  "gd" '(xref-find-definitions :wk "go to definition") 
+  "gD" '((lambda () (interactive) 
+           (let ((current-prefix-arg 4))
+             (call-interactively #'xref-find-definitions)))
+         :wk "definition other window")
+  "gi" '(eglot-find-implementation :wk "go to implementation")
+  "gI" '((lambda () (interactive) 
+           (let ((current-prefix-arg 4))
+             (call-interactively #'eglot-find-implementation)))
+         :wk "implementation other window")
+  "gt" '(eglot-find-typeDefinition :wk "go to type definition")
+  "gr" '(xref-find-references :wk "find references")
+  "gs" '(magit-file-stage :wk "stage file")
+  "gb" '(vc-annotate :wk "blame")
+
+  "o" '(:ignore t :wk "open")
+
+  "h" '(:ignore t :wk "help")
+  "hm" '(describe-mode :wk "mode")
+  "hf" '(describe-function :wk "function")
+  "hv" '(describe-variable :wk "variable")
+  "hk" '(describe-key :wk "key")
+
+  "w w" '(evil-window-next :wk "Close window")
+  "w c" '(evil-window-delete :wk "Close window")
+  "w n" '(evil-window-new :wk "New window")
+  "w s" '(evil-window-split :wk "Horizontal split window")
+  "w v" '(evil-window-vsplit :wk "Vertical split window")
+  "w h" '(evil-window-left :wk "Window left")
+  "w j" '(evil-window-down :wk "Window down")
+  "w k" '(evil-window-up :wk "Window up")
+  "w l" '(evil-window-right :wk "Window right")
+  "w w" '(evil-window-next :wk "Goto next window")
+  "w H" '(buf-move-left :wk "Buffer move left")
+  "w J" '(buf-move-down :wk "Buffer move down")
+  "w K" '(buf-move-up :wk "Buffer move up")
+  "w L" '(buf-move-right :wk "Buffer move right")
+
+  "c" '(:ignore t :wk "code")
+  "ca" '(eglot-code-actions :wk "code actions")
+  "cr" '(eglot-rename :wk "lsp rename")
+  "cf" '(eglot-format :wk "format buffer")
+
+  "q" '(:ignore t :wk "quit")
+  "qq" '(save-buffers-kill-terminal :wk "quit emacs")
+  "qr" '(restart-emacs :wk "restart")
+
+  "x" '(org-capture :wk "capture")
+
+  "a" '(embark-act :wk "embark")
+  "u" '(undo-tree-visualize :wk "undo tree")
+  "P" '(consult-yank-from-kill-ring :wk "paste history"))
+
+
+(defun my/avy-enabled-p ()
+  (and (not (derived-mode-p 'magit-mode 'dired-mode 'ibuffer-mode))
+       (not (eq major-mode 'dirvish-mode))))
+
+(general-def '(normal visual) 'override
+  "s" (lambda ()
+        (interactive)
+        (if (derived-mode-p 'magit-mode)
+            (call-interactively 'magit-stage)
+          (when (my/avy-enabled-p)
+            (let ((scroll-margin 0)
+                  (maximum-scroll-margin 0))
+              (call-interactively 'evil-avy-goto-char-2))))))
+
+
+(general-def 'normal 'override
+  "]d" 'flymake-goto-next-error
+  "[d" 'flymake-goto-prev-error
+  "]c" 'diff-hl-next-hunk
+  "[c" 'diff-hl-previous-hunk
+  "]b" 'switch-to-next-buffer
+  "[b" 'switch-to-prev-buffer
+  "]t" 'tab-next
+  "[t" 'tab-previous
+  "P" 'consult-yank-from-kill-ring
+  "gcc" (lambda ()
+          (interactive)
+          (unless (use-region-p)
+            (comment-or-uncomment-region
+             (line-beginning-position)
+             (line-end-position)))))
+
+(general-def 'visual 'override
+  "gc" (lambda ()
+         (interactive)
+         (when (use-region-p)
+           (comment-or-uncomment-region
+            (region-beginning)
+            (region-end)))))
+
+(my-local-leader
+  :keymaps 'org-mode-map
+  "h" '(consult-org-heading :wk "search headings")
+  "n" '(my-toggle-org-tree-indirect-buffer :wk "toggle narrow"))
+
+(my-leader
+  :keymaps 'org-mode-map
+  "c" '(:wk "Clock" :ignore)
+
+  "cs" '(org-schedule :wk "Schedule")
+  "cd" '(org-deadline :wk "Deadline")
+
+  "l" '(:wk "Link" :ignore)
+  "lc" '(org-cliplink :wk "Cliplink")
+  "li" '(org-download-clipboard :wk "Image")
+  "ll" '(org-insert-link :wk "Link various things")
+
+  "t" '(org-todo :wk "TODO")
+
+  "RET" '(org-open-at-point))
+
+(with-eval-after-load 'denote-menu
+  (general-def 'normal denote-menu-mode-map
+    "r" 'denote-menu-filter
+    "c" 'denote-menu-clear-filters
+    "e" 'denote-menu-export-to-dired
+    "o" 'denote-menu-filter-out-keyword))
+
+(general-def 'normal dirvish-mode-map
+  "?" 'dirvish-dispatch
+  "q" 'dirvish-quit
+  "b" 'dirvish-quick-access
+  "f" 'dirvish-file-info-menu
+  "p" 'dirvish-yank
+  "S" 'dirvish-quicksort
+  "F" 'dirvish-layout-toggle
+  "z" 'dirvish-history-jump
+  "gh" 'dirvish-subtree-up
+  "gl" 'dirvish-subtree-toggle
+  "h" 'dired-up-directory
+  "l" 'dired-find-file
+  "TAB" 'dirvish-subtree-toggle
+  "[h" 'dirvish-history-go-backward
+  "]h" 'dirvish-history-go-forward)
+
+(general-def '(normal visual) dirvish-mode-map
+  :prefix "y"
+  "l" 'dirvish-copy-file-true-path
+  "n" 'dirvish-copy-file-name
+  "p" 'dirvish-copy-file-path
+  "y" 'dired-do-copy)
+
+(general-def 'normal dirvish-mode-map
+  :prefix "s"
+  "s" 'dirvish-symlink
+  "S" 'dirvish-relative-symlink
+  "h" 'dirvish-hardlink)
+
+(my-local-leader
+  "a" '(org-agenda :wk "org agenda")
+  "t" '(multi-vterm :wk "terminal")
+  "c" '(my/centered-cursor :wk "center cursor")
+  "d" '(dirvish :wk "dired")
+  "z" '(zoom-mode :wk "zoom/golden ratio")
+  "m" '(mu4e :wk "mail")
+  "p" '(pass :wk "pass")
+  "o" '(my/global-olivetti-mode :wk "center buffer")
+  "g" '(gptel :wk "gptel"))
+
+(global-set-key (kbd "C-=") 'text-scale-increase)
+(global-set-key (kbd "C--") 'text-scale-decrease)
+
+;; (defun my/evil-delete-to-blackhole (orig-fn beg end &optional type register &rest args)
+;;   (apply orig-fn beg end type ?_ args))
+
+;; (advice-add 'evil-delete :around 'my/evil-delete-to-blackhole)
+
+;; (my-leader
+;;   "y" '(my/yank-to-clipboard :wk "clipboard" :ignore t)
+;;   "yy" '(my/yank-to-clipboard :wk "yank to clipboard")
+;;   "yp" '(my/paste-from-clipboard :wk "paste from clipboard"))
+
+;; (defun my/yank-to-clipboard ()
+;;   (interactive)
+;;   (if (region-active-p)
+;;       (let ((select-enable-clipboard t))
+;;         (kill-ring-save (region-beginning) (region-end))
+;;         (message "Yanked to clipboard"))
+;;     (message "No region active")))
+
+;; (defun my/paste-from-clipboard ()
+;;   (interactive)
+;;   (let ((select-enable-clipboard t))
+;;     (yank)))
+
+;; (defun my/delete-to-clipboard ()
+;;   (interactive)
+;;   (if (region-active-p)
+;;       (let ((select-enable-clipboard t))
+;;         (kill-region (region-beginning) (region-end))
+;;         (message "Deleted to clipboard"))
+;;     (message "No region active")))
+
+(use-package elfeed
+  :ensure t
+  :defer t
+  :custom
+  (elfeed-db-directory "~/.emacs.d/elfeed")
+  :config
+  (setq elfeed-search-filter "@2-weeks-ago +unread"
+        elfeed-search-title-max-width 110)
+  
+  (add-hook 'elfeed-search-mode-hook #'elfeed-update)
+  
+  (setq elfeed-search-sort-function
+        (lambda (a b)
+          (let* ((a-date (elfeed-entry-date a))
+                 (b-date (elfeed-entry-date b))
+                 (a-feed (elfeed-feed-title (elfeed-entry-feed a)))
+                 (b-feed (elfeed-feed-title (elfeed-entry-feed b)))
+                 (a-title (elfeed-entry-title a))
+                 (b-title (elfeed-entry-title b)))
+            (cond
+             ((> a-date b-date) t)
+             ((< a-date b-date) nil)
+             ((string< a-feed b-feed) t)
+             ((string> a-feed b-feed) nil)
+             (t (string< a-title b-title)))))))
+
+(use-package elfeed-org
+  :ensure t
+  :after elfeed
+  :custom
+  (rmh-elfeed-org-files (list "~/org/rss.org"))
+  :config
+  (elfeed-org))
+
+(defun elfeed-export-from-index-to-csv (output-file)
+  (interactive "FExport CSV nach: ")
+  (require 'elfeed)
+  (require 'elfeed-db)
+  
+  (elfeed-db-load)
+  
+  (let ((entries (hash-table-values elfeed-db-entries)))
+    (with-temp-file output-file
+      (insert "id,title,link,date,feed,tags\n")
+      (dolist (entry entries)
+        (insert (format "\"%s\",\"%s\",\"%s\",%s,\"%s\",\"%s\"\n"
+                        (elfeed-entry-id entry)
+                        (replace-regexp-in-string "\"" "\"\"" (elfeed-entry-title entry))
+                        (elfeed-entry-link entry)
+                        (elfeed-entry-date entry)
+                        (elfeed-feed-title (elfeed-entry-feed entry))
+                        (mapconcat #'symbol-name (elfeed-entry-tags entry) " "))))
+      (message "Export abgeschlossen: %d Einträge" (length entries)))))
+
+(setq browse-url-browser-function 'browse-url-generic
+      browse-url-generic-program "qutebrowser")
+
+(use-package mu4e
+  :straight nil
+  :ensure nil
+  :config
+  
+  (setq mu4e-mu-binary (executable-find "mu"))
+  (setq mu4e-maildir "~/Mails")
+  (setq mu4e-get-mail-command (concat (executable-find "mbsync") " -a"))
+  (setq mu4e-update-interval 300)
+  (setq mu4e-attachment-dir "~/Downloads")
+  (setq mu4e-change-filenames-when-moving t)
+  
+  (setq mu4e-user-mail-address-list 
+        '("cashmeresamurai@autistici.org"
+          "cashmere@cashmere.rs"))
+  
+  (setq mu4e-contexts
+        `(,(make-mu4e-context
+            :name "autistici"
+            :match-func
+            (lambda (msg)
+              (when msg
+                (string-prefix-p "/autistici" (mu4e-message-field msg :maildir))))
+            :vars '((user-mail-address . "cashmeresamurai@autistici.org")
+                    (user-full-name . "cashmere")
+                    (mu4e-drafts-folder . "/autistici/Drafts")
+                    (mu4e-sent-folder . "/autistici/Sent")
+                    (mu4e-trash-folder . "/autistici/Trash")
+                    (mu4e-refile-folder . "/autistici/Archive")))
+          
+          ,(make-mu4e-context
+            :name "cashmere"
+            :match-func
+            (lambda (msg)
+              (when msg
+                (string-prefix-p "/cashmere/cashmere" (mu4e-message-field msg :maildir))))
+            :vars '((user-mail-address . "cashmere@cashmere.rs")
+                    (user-full-name . "cashmere")
+                    (mu4e-drafts-folder . "/cashmere/cashmere/Drafts")
+                    (mu4e-sent-folder . "/cashmere/cashmere/Sent")
+                    (mu4e-trash-folder . "/cashmere/cashmere/Trash")
+                    (mu4e-refile-folder . "/cashmere/cashmere/Archive")))))
+  
+  (setq mu4e-context-policy 'pick-first)
+  (setq mu4e-compose-context-policy 'ask)
+  
+  (setq sendmail-program (executable-find "msmtp"))
+  (setq send-mail-function 'sendmail-send-it)
+  (setq message-send-mail-function 'sendmail-send-it)
+  (setq message-sendmail-envelope-from 'header)
+  (setq message-kill-buffer-on-exit t)
+  
+  (defun mu4e-set-msmtp-account ()
+    (if (message-mail-p)
+        (save-excursion
+          (let* ((from (save-restriction
+                         (message-narrow-to-headers)
+                         (message-fetch-field "from")))
+                 (account
+                  (cond
+                   ((string-match "cashmeresamurai@autistici.org" from) "autistici")
+                   ((string-match "cashmere@cashmere.rs" from) "cashmere/cashmere"))))
+            (setq message-sendmail-extra-arguments (list '"-a" account))))))
+  
+  (add-hook 'message-send-mail-hook 'mu4e-set-msmtp-account))
+
+;; (profiler-start 'cpu)
+;; (org-agenda nil "c")
+;; (profiler-report)
+;; (profiler-stop)
+
+(provide 'init)