Table of Contents

Installation

References

Notes

Add git url to pkg headlines

forpin$(grep -P'^\*\*\*\* ([a-z\-])*$' emacs.org| cut -d'' -f 2);do    url=$(git -C~/.emacs.d/elpaca/repos/$p* remote get-url origin)if [$?-eq 0 ];then        sed"s|\*\*\*\*$p|**** [[$url][$p]]|" -i emacs.orgfi;done

Configuration

Common Header for Emacs Libraries

echo";;;$file_name --- Emacs configuration file  -*- no-byte-compile: t; no-native-compile: t; lexical-binding: t; -*-;; Copyright (C) 2023-$(date +%Y) Marcel Arpogaus;; Author: Marcel Arpogaus;; Created:$(date -I);; Keywords: configuration;; Homepage: https://github.com/MArpogaus/emacs.d/;; This file is not part of GNU Emacs.;;; Commentary:;; This file has been generated from emacs.org file. DO NOT EDIT.;;; Code:"

Early Emacs Initialization

Conventional Library Header

<<header(file_name="early-init.el")>>

Optimize Startup Time

;; We're going to increase the gc-cons-threshold to a very high number to decrease the load time and add a hook to measure Emacs startup time.(setq gc-cons-threshold most-positive-fixnum      gc-cons-percentage0.6);; Let's lower our GC thresholds back down to a sane level.(add-hook'elpaca-after-init-hook          (lambda ();; restore after startup            (setq gc-cons-threshold (*1610241024)))99);; Profile emacs startup(add-hook'elpaca-after-init-hook          (lambda ()            (message"🚀 Emacs loaded in%s with%d garbage collections."                     (format"%.2f seconds"                             (float-time                              (time-subtract elpaca-after-init-time before-init-time)))                     gcs-done)));; Resizing the Emacs frame can be a terribly expensive part of changing the;; font. By inhibiting this, we easily halve startup times with fonts that are;; larger than the system default.(setq frame-inhibit-implied-resizet);; Ignore X resources; its settings would be redundant with the other settings;; in this file and can conflict with later config (particularly where the;; cursor color is concerned).(advice-add#'x-apply-session-resources:override#'ignore);; remove "for information about gnu emacs..." message at startup(advice-add#'display-startup-echo-area-message:override#'ignore);; suppress the vanilla startup screen completely. we've disabled it with;;`inhibit-startup-screen', but it would still initialize anyway.(advice-add#'display-startup-screen:override#'ignore);; never show the hello file(defalias#'view-hello-file#'ignore);; Disable warnings from the legacy advice API. They aren't useful.(setq ad-redefinition-action'accept);; Ignore warnings about "existing variables being aliased".(setq warning-suppress-types '((defvaralias) (lexical-binding)));; Unset`file-name-handler-alist' too (temporarily). Every file opened and;; loaded by Emacs will run through this list to check for a proper handler for;; the file, but during startup, it won’t need any of them.(defvarfile-name-handler-alist-old file-name-handler-alist)(setq file-name-handler-alistnil)(add-hook'emacs-startup-hook          (lambda ()            (setq file-name-handler-alist file-name-handler-alist-old)));; Remove irreleant command line options for faster startup(setq command-line-x-option-alistnil);; Minimal UI(menu-bar-mode-1)(tool-bar-mode-1)(scroll-bar-mode-1)

Configure Byte Compile

;; In noninteractive sessions, prioritize non-byte-compiled source files to;; prevent the use of stale byte-code. Otherwise, it saves us a little IO time;; to skip the mtime checks on every *.elc file.(setq load-prefer-newert);; Ensure JIT compilation is enabled for improved performance by;; native-compiling loaded .elc files asynchronously(setq native-comp-jit-compilationt);; Disable certain byte compiler warnings to cut down on the noise.(setq byte-compile-warnings '(not free-vars unresolved noruntime lexical make-local));; Ensure that quitting only occurs once Emacs finishes native compiling,;; preventing incomplete or leftover compilation files in `/tmp`.(setq native-comp-async-query-on-exitt)(setq confirm-kill-processest)

DOOM runtime optimizations

;; PERF: A second, case-insensitive pass over`auto-mode-alist' is time wasted.(setq auto-mode-case-foldnil);; PERF: Disable bidirectional text scanning for a modest performance boost.;;   I've set this to`nil' in the past, but the`bidi-display-reordering's docs;;   say that is an undefined state and suggest this to be just as good:(setq-default bidi-display-reordering'left-to-right              bidi-paragraph-direction'left-to-right);; PERF: Disabling BPA makes redisplay faster, but might produce incorrect;;   reordering of bidirectional text with embedded parentheses (and other;;   bracket characters whose 'paired-bracket' Unicode property is non-nil).(setq bidi-inhibit-bpat); Emacs 27+ only;; Reduce rendering/line scan work for Emacs by not rendering cursors or regions;; in non-focused windows.(setq-default cursor-in-non-selected-windowsnil)(setq highlight-nonselected-windowsnil);; Don't ping things that look like domain names.(setq ffap-machine-p-known'reject);; Emacs "updates" its ui more often than it needs to, so slow it down slightly(setq idle-update-delay1.0); default is 0.5;; Font compacting can be terribly expensive, especially for rendering icon;; fonts on Windows. Whether disabling it has a notable affect on Linux and Mac;; hasn't been determined, but do it anyway, just in case. This increases memory;; usage, however!(setq inhibit-compacting-font-cachest);; PGTK builds only: this timeout adds latency to frame operations, like;;`make-frame-invisible', which are frequently called without a guard because;; it's inexpensive in non-PGTK builds. Lowering the timeout from the default;; 0.1 should make childframes and packages that manipulate them (like`lsp-ui',;;`company-box', and`posframe') feel much snappier. See emacs-lsp/lsp-ui#613.(when (boundp'pgtk-wait-for-event-timeout)  (setq pgtk-wait-for-event-timeout0.001));; Introduced in Emacs HEAD (b2f8c9f), this inhibits fontification while;; receiving input, which should help a little with scrolling performance.(setq redisplay-skip-fontification-on-inputt)

Install Elpaca

;; prevent package.el loading packages prior to their init-file loading.(setq package-quickstartnil      package-enable-at-startupnil)(defvarelpaca-installer-version0.9)(defvarelpaca-directory (expand-file-name"elpaca/" user-emacs-directory))(defvarelpaca-builds-directory (expand-file-name"builds/" elpaca-directory))(defvarelpaca-repos-directory (expand-file-name"repos/" elpaca-directory))(defvarelpaca-order '(elpaca:repo"https://github.com/progfolio/elpaca.git":refnil:depth1:inherit ignore:files (:defaults"elpaca-test.el" (:exclude"extensions")):build (:not elpaca--activate-package)))(let* ((repo  (expand-file-name"elpaca/" elpaca-repos-directory))       (build (expand-file-name"elpaca/" elpaca-builds-directory))       (order (cdr elpaca-order))       (default-directory repo))  (add-to-list'load-path (if (file-exists-p build) build repo))  (unless (file-exists-p repo)    (make-directory repot)    (when (< emacs-major-version28) (require'subr-x))    (condition-case-unless-debug err        (if-let* ((buffer (pop-to-buffer-same-window"*elpaca-bootstrap*"))                  ((zerop (apply#'call-process `("git"nil,buffert"clone"                                                  ,@(when-let* ((depth (plist-get order:depth)))                                                      (list (format"--depth=%d" depth)"--no-single-branch"))                                                  ,(plist-get order:repo),repo))))                  ((zerop (call-process"git"nil buffert"checkout"                                        (or (plist-get order:ref)"--"))))                  (emacs (concat invocation-directory invocation-name))                  ((zerop (call-process emacsnil buffernil"-Q""-L"".""--batch""--eval""(byte-recompile-directory\".\" 0 'force)")))                  ((require'elpaca))                  ((elpaca-generate-autoloads"elpaca" repo)))            (progn (message"%s" (buffer-string)) (kill-buffer buffer))          (error"%s" (with-current-buffer buffer (buffer-string))))      ((error) (warn"%s" err) (delete-directory repo'recursive))))  (unless (require'elpaca-autoloadsnilt)    (require'elpaca)    (elpaca-generate-autoloads"elpaca" repo)    (load"./elpaca-autoloads")))(add-hook'after-init-hook#'elpaca-process-queues)(elpaca `(,@elpaca-order))

Conventional Library Footer

(provide'early-init);;; early-init.el ends here

Emacs Initialization

Conventional Header

<<header(file_name="init.el")>>

Configure use-package

;; Enable lazy loading per default(setq use-package-always-defert      use-package-always-ensuret);; make use-package more verbose when ´‘--debug-init´ is passed;; https://www.gnu.org/software/emacs/manual/html_node/use-package/Troubleshooting.html(when init-file-debug  (setq use-package-verboset        use-package-expand-minimallynil        use-package-compute-statisticst        jka-compr-verboset        warning-minimum-level:warning        byte-compile-warningst        byte-compile-verboset        native-comp-warning-on-missing-sourcet        debug-on-errort))

Configure Elpaca

;; Use elpaca lockfile(setq elpaca-lock-file (expand-file-name"elpaca.lock" user-emacs-directory));; Install never version of transient and jsonrpc(setq elpaca-ignored-dependencies      (seq-remove (lambda (x) (memq x '(transient jsonrpc)))                  elpaca-ignored-dependencies));; Enable use-package integration(elpaca elpaca-use-package;; Enable use-package :ensure support for Elpaca.  (elpaca-use-package-mode))

no-littering

(use-package no-littering:demandt:init  (setq emacs-config-directory user-emacs-directory;; Since init.el will be generated from this file, we save customization in a dedicated file.        custom-file (expand-file-name"custom.el" user-emacs-directory);; Change the user-emacs-directory to keep unwanted things out of ~/.emacs.d        user-emacs-directory (expand-file-name"~/.cache/emacs/")):config;; store backup and auto-save files in =no-littering-var-directory=  (no-littering-theme-backups);; Load customization File  (add-hook'elpaca-after-init-hook (lambda () (load custom-file'noerror'nomessage))-99))

Better Defaults

(use-package emacs:ensurenil:custom;; Startup;; Emacs does a lot of things at startup and here, we disable pretty much everything.  (inhibit-splash-screent); disable startup screens and messages  (inhibit-startup-buffer-menut); Disable display of buffer list when more than 2 files are loaded  (inhibit-startup-echo-area-messaget); Disable initial echo message  (inhibit-startup-messaget); Disable startup message  (inhibit-startup-screent); Disable start-up screen  (initial-scratch-message""); Empty the initial *scratch* buffer;; Recovery;; If Emacs or the computer crashes, you can recover the files you were editing at the time of the crash from their auto-save files. To do this, start Emacs again and type the command ~M-x recover-session~. Here, we parameterize how files are saved in the background.  (auto-save-defaultt); Auto-save every buffer that visits a file  (auto-save-timeout10); Number of seconds between auto-save  (auto-save-interval200); Number of keystrokes between auto-saves;; Backups  (backup-by-copyingt); Backs up by moving the actual file;; Dialogs;; use simple text prompts  (use-dialog-boxnil); Don't pop up UI dialogs when prompting  (use-file-dialognil); Don't use UI dialogs for file search  (use-short-answerst); Replace yes/no prompts with y/n  (confirm-nonexistent-file-or-buffernil); Ok to visit non existent files;; Mouse;; Mouse behavior can be finely controlled using mouse-avoidance-mode.  (context-menu-mode (display-graphic-p)); Enable context menu on right click  (mouse-yank-at-pointt); Yank at point rather than pointer  (xterm-mouse-mode (not (display-graphic-p))); Mouse active in tty mode.;; Smoother scrolling  (scroll-margin0); Reduce margin triggering automatic scrolling  (scroll-conservatively101); Avoid recentering when scrolling far  (scroll-preserve-screen-positiont); Don't move point when scrolling  (fast-but-imprecise-scrollingt); More performant rapid scrolling over unfontified regions  (pixel-scroll-precision-interpolate-micenil); Disable interpolation (causes wired jumps)  (pixel-scroll-precision-mode (display-graphic-p)); Enable pixel-wise scrolling  (pixel-scroll-precision-use-momentumt); Enable momentum for scrolling lagre buffers;; Cursor;; We set the appearance of the cursor: horizontal line, 2 pixels thick, no blinking  (cursor-type '(hbar.2)); Underline-shaped cursor  (cursor-intangible-modet); Enforce cursor intangibility  (x-stretch-cursornil); Don't stretch cursor to the glyph width  (blink-cursor-modenil); Still cursor;; Typography  (fill-column80); Default line width  (sentence-end-double-spacenil); Use a single space after dots  (truncate-string-ellipsis"…"); Nicer ellipsis;; Default mode;; Default & initial mode is text.  (initial-major-mode'fundamental-mode); Initial mode is text  (default-major-mode'fundamental-mode); Default mode is text;; Tabulations;; No tabulation, ever.  (indent-tabs-modenil); Stop using tabs to indent;; Performance;; https://github.com/alexluigit/dirvish/blob/main/docs/.emacs.d.example/early-init.el  (read-process-output-max (*10241024)); Increase how much is read from processes in a single chunk.  (select-active-regions'only); Emacs hangs when large selections contain mixed line endings.  (vc-handled-backends '(Git SVN)); Remove unused VC backend;; Miscellaneous  (native-comp-async-report-warnings-errors'silent); disable native compiler warnings  (fringes-outside-marginst); DOOM: add some space between fringe it and buffer.  (windmove-modenil); Diasble windmove mode  (comment-auto-fill-only-commentst); Use auto fill mode only in comments  (custom-buffer-done-killt); Kill custom buffer when done;; Enable window dividers  (window-divider-default-bottom-width2)  (window-divider-default-right-width2)  (window-divider-default-placest)  (window-divider-modet):preface;; History;; Remove text properties for kill ring entries (see https://emacs.stackexchange.com/questions/4187). This saves a lot of time when loading it.  (defununpropertize-kill-ring ()    (setq kill-ring (mapcar'substring-no-properties kill-ring))):init  (modify-all-frames-parameters '((width.200)                                  (height.50))):config;; We tell emacs to use UTF-8 encoding as much as possible.  (set-default-coding-systems'utf-8); Default to utf-8 encoding  (prefer-coding-system'utf-8); Add utf-8 at the front for automatic detection.  (set-terminal-coding-system'utf-8); Set coding system of terminal output  (set-keyboard-coding-system'utf-8); Set coding system for keyboard input on TERMINAL  (set-language-environment"English"); Set up multilingual environment:hook;; Enable word wrapping  (((prog-mode conf-mode text-mode). visual-line-mode);; Enable automatic linebreaks before`fill-column' is eceeded   ((prog-mode conf-mode text-mode). auto-fill-mode);; Compress kill ring when exiting emacs   (kill-emacs. unpropertize-kill-ring)))

Custom Lisp Functions

(use-package emacs:ensurenil:preface  (defunmy/backward-kill-thing ()"Delete sexp, symbol, word or whitespace backward depending on the context at point."    (interactive)    (let ((bounds (seq-some#'bounds-of-thing-at-point '(sexp symbol word))))      (cond;; If there are bounds and point is within them, kill the region       ((and bounds (< (car bounds) (point)))        (kill-region (car bounds) (point)));; If there's whitespace before point, delete it       ((thing-at-point-looking-at"\\([\n]+\\)")        (if (< (match-beginning1) (point))            (kill-region (match-beginning1) (point))          (kill-backward-chars1)));; If none of the above, delete one character backward       (t        (kill-backward-chars1)))))  (defunsimulate-key-press (key)"Pretend that KEY was pressed.KEY must be given in`kbd' notation.Refference: https://emacs.stackexchange.com/a/13432"    `(lambda () (interactive)       (setq prefix-arg current-prefix-arg)       (setq unread-command-events (listify-key-sequence (read-kbd-macro,key)))))  (defunmy/extract-username-repo ()"Extract the username and repository name from a GitHub repository link at point."    (interactive)    (save-excursion      (org-back-to-heading)      (let* ((element (org-element-at-point))             (headline (org-element-property:raw-value element))             (url (save-match-data                    (string-match org-bracket-link-regexp headline)                    (match-string1 headline))))        (if (and url (string-match"github.com/\\([[:alnum:]\.\-]+\\)/\\([[:alnum:]\.\-]+\\)\\(\.git\\)" url))            (list (match-string1 url) (match-string2 url))          (error"No GitHub link found at point.")))))  (defunmy/insert-github-repo-description ()"Retrieve and insert the short description of a GitHub repository at point."    (interactive)    (let* ((repo-info (my/extract-username-repo))           (username (car repo-info))           (repo (cadr repo-info)))      (message (format"Inserting description for GitHub Repository. User:%s, Repo:%s" username repo))      (let* ((url (format"https://api.github.com/repos/%s/%s" username repo))             (response (with-current-buffer (url-retrieve-synchronously url)                         (prog1 (buffer-substring-no-properties (point-min) (point-max))                           (kill-buffer)))))        (string-match"\r?\n\r?\n" response)        (setq response (substring response (match-end0)))        (let* ((json (json-read-from-string response))               (description (cdr (assoc'description json))))          (if description              (progn                (setq description (string-trim description))                (setq description (concat (capitalize (substring description01))                                          (substring description1)))                (unless (string-suffix-p"." description)                  (setq description (concat description".")))                (insert description))            (error"No description, website, or topics provided."))))));; Thanks doom-modeline: https://github.com/seagle0128/doom-modeline/blob/ec6bc00ac035e75ad10b52e516ea5d95cc9e0bd9/doom-modeline-core.el#L1454C8-L1454C39  (defunmy/get-bar-image (heightwidthcolor)"Get a rectangular bar image with specified height, width and color."    (if (and (image-type-available-p'pbm) (display-graphic-p))        (propertize""'display         (create-image          (concat (format"P1\n%i%i\n" width height) (make-string (* width height)?1)"\n")'pbmt:foreground color:ascent'center))      (propertize"|"'face (list:foreground color:background color))))  (define-minor-mode my/minimal-ui-mode"Toggle automatic tab group management based on command execution.":globalt:group'frames    (if my/minimal-ui-mode        (progn          (setq tab-bar-shownil)          (tab-bar-mode-1)          (global-tab-line-mode-1)          (global-hide-mode-line-mode1)          (spacious-padding-mode-1))      (progn        (setq tab-bar-showt)        (tab-bar-mode1)        (global-tab-line-mode1)        (global-hide-mode-line-mode-1)        (spacious-padding-mode1)))))

Keymaps

;; setup keymaps(use-package emacs:ensurenil:preface  (defvarmy/leader-map (make-sparse-keymap)"key-map for leader key")  (defvarmy/buffer-map (make-sparse-keymap)"key-map for buffer commands")  (defvarmy/file-map (make-sparse-keymap)"key-map for file commands")  (defvarmy/toggle-map (make-sparse-keymap)"key-map for toggle commands")  (defvarmy/open-map (make-sparse-keymap)"key-map for open commands")  (defvarmy/version-control-map (make-sparse-keymap)"key-map for version control commands"):config;; leader keymap  (define-key my/leader-map (kbd"b") (cons"buffer" my/buffer-map))  (define-key my/leader-map (kbd"f") (cons"file" my/file-map))  (define-key my/leader-map (kbd"o") (cons"open" my/open-map))  (define-key my/leader-map (kbd"t") (cons"toggle" my/toggle-map))  (define-key my/leader-map (kbd"v") (cons"version-control" my/version-control-map))  (define-key my/leader-map (kbd"g") (cons"goto" goto-map))  (define-key my/leader-map (kbd"h") (cons"help" help-map))  (define-key my/leader-map (kbd"s") (cons"search" search-map))  (define-key my/leader-map (kbd"c") (cons"C-c" (simulate-key-press"C-c")))  (define-key my/leader-map (kbd"x") (cons"C-x" (simulate-key-press"C-x")));; Remove binding to view-echo-area-messages when clicking on inactive minibuffer  (define-key minibuffer-inactive-mode-map (kbd"<mouse-1>")nil);; remove keybind for suspend-frame  (global-unset-key (kbd"C-z"));; Don't kill windows when clicking on the mode line  (global-unset-key [mode-line mouse-2])  (global-unset-key [mode-line mouse-3]):bind;;ESC Cancels All  (("<escape>". keyboard-escape-quit)   ("C-<backspace>". my/backward-kill-thing):map my/buffer-map   ("e". eval-buffer)   ("k". kill-this-buffer)   ("K". kill-buffer)   ("c". clone-buffer)   ("r". revert-buffer)   ("e". eval-buffer)   ("s". save-buffer):map my/file-map   ("f". find-file)   ("F". find-file-other-window)   ("d". find-dired)   ("c". copy-file)   ("f". find-file)   ("d". delete-file)   ("r". rename-file)   ("w". write-file):map my/open-map   ("F". make-frame)   ("i". ielm)   ("e". eshell)   ("t".term)   ("s". scratch-buffer):map my/toggle-map   ("M". my/minimal-ui-mode)))

Configure Packages

(add-to-list'load-path"~/.emacs.d/lisp/")

Org

(require'my-org)

Conventional Header

<<header(file_name="my-org.el")>>

org

(use-packageorg:init  (setq org-directory (expand-file-name"Notes/org/" (getenv"HOME"))        org-cite-global-bibliography (file-expand-wildcards (expand-file-name"bib/*.bib" org-directory))):custom  (org-ellipsis"…")  (org-src-fontify-nativelyt)  (org-fontify-quote-and-verse-blockst)  (org-src-tab-acts-nativelyt)  (org-edit-src-content-indentation2)  (org-hide-block-startupnil)  (org-src-preserve-indentationnil);; Return or left-click with mouse follows link  (org-return-follows-linkt)  (org-mouse-1-follows-linkt);; Display links as the description provided  (org-link-descriptivet);; Todo  (org-todo-keywords   '((sequence"PROJ(p)"; A project, which usually contains other tasks"TODO(t)"; A task that needs doing & is ready to do"NEXT(n)"; Next task in a project"STRT(s)"; A task that is in progress"WAIT(w)"; Something external is holding up this task"HOLD(h)"; This task is paused/on hold because of me"|""DONE(d)"; Task successfully completed"KILL(k)"); Task was cancelled, aborted or is no longer applicable     (sequence"[ ](T)"; A task that needs doing"[-](S)"; Task is in progress"[?](W)"; Task is being held up or paused"|""[X](D)"))); Task was completed  (org-todo-keyword-faces   '(("[-]". +org-todo-active)     ("STRT". +org-todo-active)     ("[?]". +org-todo-onhold)     ("WAIT". +org-todo-onhold)     ("HOLD". +org-todo-onhold)     ("PROJ". +org-todo-project)));; Add timstamp to items when done  (org-log-done'time);; org capture  (org-capture-templates   `(("i""Inbox" entry  (file"agenda/inbox.org")      ,(concat"* TODO %?\n""/Entered on/ %U"))     ("m""Meeting" entry  (file+headline"agenda/agenda.org""Future")      ,(concat"* <%<%Y-%m-%d %a %H:00>> %? :meeting:\n"))     ("n""Note" entry  (file"agenda/notes.org")      ,(concat"* Note (%a)\n""/Entered on/ %U\n""\n""%?"))));; org-agenda  (org-agenda-files   (mapcar'file-truename           (file-expand-wildcards (concat org-directory"agenda/*.org"))));; Refile and Archive  (org-refile-use-outline-path'file)  (org-outline-path-complete-in-stepsnil)  (org-refile-targets `((,(expand-file-name"agenda/agenda.org" org-directory):maxlevel.3)                        (,(expand-file-name"agenda/projects.org" org-directory):regexp."\\(?:\\(?:Note\\|Task\\)s\\)")                        (,(expand-file-name"agenda/literature.org" org-directory):maxlevel.2)                        (,(expand-file-name"agenda/scheduled.org" org-directory):maxlevel.2)))  (org-agenda-custom-commands   '(("g""Get Things Done (GTD)"      ((agenda""               ((org-agenda-span'day)                (org-agenda-start-day"today")                (org-agenda-skip-function                 '(org-agenda-skip-entry-if'deadline))                (org-deadline-warning-days0)))       (todo"PROJ"             ((org-agenda-skip-function               '(org-agenda-skip-subtree-if'nottodo '("NEXT""STRT")))              (org-agenda-overriding-header"Active Projects:")))       (todo"STRT"             ((org-agenda-skip-function               '(org-agenda-skip-entry-if'deadline))              (org-agenda-sorting-strategy '(priority-down category-keep effort-up))              (org-agenda-prefix-format"  %i %-12:c [%e]")              (org-agenda-overriding-header"\nActive Tasks\n")              )); Exclude entries with LITERATURE category       (todo"NEXT"             ((org-agenda-skip-function               '(org-agenda-skip-entry-if'deadline))              (org-agenda-sorting-strategy '(priority-down category-keep effort-up))              (org-agenda-prefix-format"  %i %-12:c [%e]")              (org-agenda-overriding-header"\nNext Tasks\n")))       (agendanil               ((org-agenda-entry-types '(:deadline))                (org-agenda-format-date"")                (org-deadline-warning-days7)                (org-agenda-skip-function                 '(org-agenda-skip-entry-if'notregexp"\\* NEXT"))                (org-agenda-overriding-header"\nDeadlines")))       (tags-todo"inbox"                  ((org-agenda-prefix-format"  %?-12t% s")                   (org-agenda-overriding-header"\nInbox\n")))       (todo"HOLD|WAIT"             ((org-agenda-skip-function               '(org-agenda-skip-entry-if'deadline))              (org-agenda-sorting-strategy '(priority-down category-keep effort-up))              (org-agenda-prefix-format"  %i %-12:c [%e]")              (org-agenda-overriding-header"\nPaused Tasks\n")))       (tags"CLOSED>=\"<today>\""             ((org-agenda-overriding-header"\nCompleted today\n"))))      ((org-agenda-category-filter-preset '("-LITERATURE"))))     ("l""Literature" tags-todo"literature"      ((org-agenda-sorting-strategy '(priority-down category-keep effort-up))       (org-agenda-prefix-format"  %i %-12:c [%e]")))))  (org-babel-load-languages '((emacs-lisp.t)                              (python.t)                              (latex.t)                              (shell.t)))  (org-export-backends '(md beamer odt latex icalendar html ascii))  (org-cite-biblatex-options"hyperref=true,url=true,backend=biber,natbib=true");; Use SVGs for latex previews -> No blur when scaling  (org-preview-latex-default-process'dvisvgm):preface;; https://github.com/rougier/emacs-gtd#activating-tasks  (defunmy/log-todo-next-creation-date (&restignore)"Log NEXT creation time in the property drawer under the key 'ACTIVATED'"    (when (and (string= (org-get-todo-state)"NEXT")               (not (org-entry-getnil"ACTIVATED")))      (org-entry-putnil"ACTIVATED" (format-time-string"[%Y-%m-%d]"))));; Save the corresponding buffers  (defunmy/gtd-save-org-buffers ()"Save`org-agenda-files' buffers without user confirmation.            See also`org-save-all-org-buffers'"    (interactive)    (message"Saving org-agenda-files buffers...")    (save-some-bufferst (lambda ()                           (when (member (buffer-file-name) org-agenda-files)t)))    (message"Saving org-agenda-files buffers... done"));; archive all DONE tasks in subtree;; https://stackoverflow.com/questions/6997387  (defunmy/org-archive-done-tasks ()    (interactive)    (org-map-entries     (lambda ()       (org-archive-subtree)       (setq org-map-continue-from (org-element-property:begin (org-element-at-point))))"/DONE"'tree)):hook  (org-after-todo-state-change. my/log-todo-next-creation-date):bind  (:map my/toggle-map        ("c". org-capture):map my/open-map        ("a". org-agenda)):config  (advice-add'org-refile:after              (lambda (&rest_)                (my/gtd-save-org-buffers))))(use-package ox-latex:ensurenil:afterorg:config;; https://orgmode.org/manual/LaTeX-specific-export-settings.html  (add-to-list'org-latex-packages-alist               '("AUTO""babel"t ("pdflatex")))  (add-to-list'org-latex-packages-alist               '("AUTO""polyglossia"t ("xelatex""lualatex")))  (add-to-list'org-latex-classes               '("koma-article""\\documentclass{scrartcl}"                 ("\\section{%s}"."\\section*{%s}")                 ("\\subsection{%s}"."\\subsection*{%s}")                 ("\\subsubsection{%s}"."\\subsubsection*{%s}")                 ("\\paragraph{%s}"."\\paragraph*{%s}")                 ("\\subparagraph{%s}"."\\subparagraph*{%s}")))  (add-to-list'org-latex-classes               '("koma-letter""\\documentclass{scrlttr2}"                 ("\\section{%s}"."\\section*{%s}")                 ("\\subsection{%s}"."\\subsection*{%s}")                 ("\\subsubsection{%s}"."\\subsubsection*{%s}")                 ("\\paragraph{%s}"."\\paragraph*{%s}")                 ("\\subparagraph{%s}"."\\subparagraph*{%s}"))))(use-package ox-beamer:ensurenil:afterorg:config  (add-to-list'org-beamer-environments-extra               '("onlyenv""O""\\begin{onlyenv}%a""\\end{onlyenv}")))(use-package ox-extra:ensurenil:afterorg:config  (ox-extras-activate '(ignore-headlines)))

org-appear

(use-package org-appear:afterorg:hook (org-mode. org-appear-mode))

org-auto-tangle

(use-package org-auto-tangle:afterorg:hook (org-mode. org-auto-tangle-mode))

org-cliplink

(use-package org-cliplink:afterorg)

org-modern

(use-package org-modern:custom  (org-modern-fold-stars '(("▶"."▼") ("▹"."▿") ("▸"."▾")))  (org-modern-star'fold)  (org-modern-label-border0.3);; Edit settings  (org-auto-align-tagsnil)  (org-tags-column0)  (org-catch-invisible-edits'show-and-error)  (org-special-ctrl-a/et)  (org-insert-heading-respect-contentt);; Org styling, hide markup etc.  (org-hide-emphasis-markerst)  (org-pretty-entitiest);; Agenda styling  (org-agenda-tags-column0)  (org-agenda-block-separator?─)  (org-agenda-time-grid   '((daily today require-timed)     (800100012001400160018002000)" ┄┄┄┄┄""┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄")   org-agenda-current-time-string"◀── now ─────────────────────────────────────────────────"):hook ((org-mode. org-modern-mode)         (org-agenda-finalize. org-modern-agenda)))

org-modern-indent

(use-package org-modern-indent:ensure (:host github:repo"jdtsmith/org-modern-indent"):hook  (org-indent-mode. org-modern-indent-mode))

org-noter

(use-package org-noter:afterorg:custom;; The WM can handle splits;; org-noter-notes-window-location 'other-frame;; Please stop opening frames  (org-noter-always-create-framenil);; I want to see the whole file  (org-noter-hide-othernil);; Everything is relative to the main notes file;; org-noter-notes-search-path (list bibtex-completion-notes-path)  (org-noter-highlight-selected-textt):hook;; Org-noter’s purpose is to let you create notes that are kept in sync when;; you scroll through the [PDF etc] document  (org-noter-insert-heading. org-id-get-create))

org-pomodoro

(use-package org-pomodoro:custom  (org-pomodoro-audio-player (or (executable-find"paplay")                                 org-pomodoro-audio-player)):config  (use-package alert:config    (alert-add-rule:category"org-pomodoro":style (cond (alert-growl-command'growl)                                 (alert-notifier-command'notifier)                                 (alert-libnotify-command'libnotify)                                 (alert-default-style)))):bind  (:map org-mode-map        ("C-c p". org-pomodoro):map org-agenda-keymap        ("p". org-pomodoro)))

org-present

(use-package org-present:afterorg:preface  (defunmy/org-present-start ()    (org-present-read-only)    (org-display-inline-images);; Hide Property drawers    (org-tidy-mode1);; Tweak font sizes    (setq-local face-remapping-alist '((header-line (:height4.0)variable-pitch)                                       (org-document-title (:inheritvariable-pitch:height2.0)org-document-title)                                       (org-level-1 (:inheritvariable-pitch:height1.5)org-level-1)                                       (org-level-2 (:inheritvariable-pitch:height1.3)org-level-2)                                       (org-level-3 (:inheritvariable-pitch:height1.2)org-level-3)                                       (org-level-4 (:inheritvariable-pitch:height1.1)org-level-4)                                       (org-level-5 (:inheritvariable-pitch:height1.1)org-level-5)                                       (org-level-6 (:inheritvariable-pitch:height1.1)org-level-6)                                       (org-level-7 (:inheritvariable-pitch:height1.1)org-level-7)                                       (org-level-8 (:inheritvariable-pitch:height1.1)org-level-8)                                       (org-default (:inheritvariable-pitch)org-default)                                       (org-table (:inheritfixed-pitch)org-table)                                       (org-code (:inheritfixed-pitch)org-code)                                       (org-verbatim (:inheritfixed-pitch)org-verbatim);; (org-hide (:inherit fixed-pitch) org-hide);; (default (:inherit variable-pitch))                                       ));; Set a blank header line string to create blank space at the top    (setq-local header-line-format"");; Configure fill width    (setq-local visual-fill-column-width160                visual-fill-column-center-textt);; Remove org modern borders from blocks    (setq-local org-modern-block-fringenil);; Center the presentation and wrap lines    (visual-fill-column-mode1);; Swicth to minimal ui mode    (my/minimal-ui-mode1);; disable fringes    (set-fringe-mode0);; Increase font size;;(org-present-big)    )  (defunmy/org-present-quit ()    (org-present-read-write)    (org-remove-inline-images);; Show Property drawers    (org-tidy-untidy-buffer)    (org-tidy-mode0);; Reset font customizations    (kill-local-variable'face-remapping-alist);; Clear the header line string so that it isn't displayed    (kill-local-variable'header-line-format);; Configure fill width    (kill-local-variable'visual-fill-column-width)    (kill-local-variable'visual-fill-column-center-text);; Reset org modern borders from blocks    (kill-local-variable'org-modern-block-fringe);; Stop centering the presentation and wrap lines    (visual-fill-column-mode0);; Disable minimal ui mode    (my/minimal-ui-mode-1);; reset fringes to default style    (set-fringe-modenil);; Restore font size;;(org-present-small)    )  (defunmy/org-present-prepare-slide (buffer-nameheading);; Show only top-level headlines    (org-overview);; Unfold the current entry    (org-fold-show-entry);; Show only direct subheadings of the slide but don't expand them    (org-fold-show-children)):bind  (:map org-mode-map        ("C-c p". org-present):map org-present-mode-keymap        ("q". org-present-quit)        ("C-<left>". org-present-prev)        ("C-<right>". org-present-next)):config  (define-key org-present-mode-keymap (kbd"<left>")nilt)  (define-key org-present-mode-keymap (kbd"<right>")nilt)  (add-hook'org-present-after-navigate-functions'my/org-present-prepare-slide):hook  ((org-present-mode. my/org-present-start)   (org-present-mode-quit. my/org-present-quit)))

org-preview

(use-package org-preview:ensure (:host github:repo"karthink/org-preview"):hook  (org-mode. org-preview-mode))

org-tidy

(use-package org-tidy:afterorg)

ox-pandoc

(use-package ox-pandoc:if (executable-find"pandoc"):after ox:demandt:custom  (org-pandoc-options   '((standalone.t)     (mathjax.t)     (variable."revealjs-url=https://revealjs.com"))):config  (add-to-list'org-export-backends'pandoc))

orglink

(use-package orglink:hook  (prog-mode. orglink-mode))

toc-org

(use-package toc-org:afterorg:hook  (org-mode. toc-org-enable))

Library Footer

(provide'my-org);;; my-org.el ends here

UI

(require'my-ui)

Conventional Header

<<header(file_name="my-ui.el")>>

auto-dark

(use-package auto-dark:custom  (auto-dark-themes '((doom-one) (doom-one-light))):hook  (elpaca-after-init. auto-dark-mode))

display-line-numbers

(use-package display-line-numbers:ensurenil:custom;; Count total number of line on startup for correct width  (display-line-numbers-width-startt):hook  (((prog-mode conf-mode text-mode). display-line-numbers-mode);; disable for org mode   (org-mode. (lambda () (display-line-numbers-mode-1)))))

doom-themes

(use-package doom-themes:preface  (defunmy/patch-doom-themes (&restargs)    (ignore args)    (set-face-foreground'tab-bar (face-foreground'tab-bar-tab))):init  (advice-add'load-theme:after#'my/patch-doom-themes))

hide-mode-line

(use-package hide-mode-line:hook  (symbols-outline-mode. hide-mode-line-mode))

hl-line

(use-packagehl-line:ensurenil:hook  ((prog-mode org-mode). global-hl-line-mode))

hl-todo

(use-package hl-todo:preface  (defunmy/hl-todo-register-flymake-report-fn ()    (add-hook#'flymake-diagnostic-functions#'hl-todo-flymake)):hook  (((prog-mode conf-mode LaTeX-mode). hl-todo-mode)   (flymake-mode. my/hl-todo-register-flymake-report-fn)))

indent-bars

(use-package indent-bars:ensure (:host github:repo"jdtsmith/indent-bars"):custom  (indent-bars-treesit-supportt)  (indent-bars-treesit-ignore-blank-lines-types '("module"))  (indent-bars-treesit-wrap '((python                               argument_list parameterslist list_comprehension dictionary                               dictionary_comprehension parenthesized_expressionsubscript)))  (indent-bars-treesit-scope '((python                                function_definition class_definition for_statement                                if_statement with_statement while_statement)))  (indent-bars-color-by-depthnil)  (indent-bars-highlight-current-depth '(:facedefault:blend0.4))  (indent-bars-pad-frac0.1)  (indent-bars-pattern".")  (indent-bars-width-frac0.2):hook  ((python-base-mode yaml-ts-mode emacs-lisp-mode). indent-bars-mode))

ligature

(use-package ligature:if (display-graphic-p):config;; set Fira as default font  (set-frame-font"FiraCode Nerd Font-10"nilt):preface  (defunmy/setup-ligatures ();; Enable the "www" ligature in every possible major mode    (ligature-set-ligatures't '("www"));; Enable traditional ligature support in eww-mode, if the;;`variable-pitch' face supports it    (ligature-set-ligatures '(eww-mode org-mode) '("ff""fi""ffi"));; Enable all Cascadia and Fira Code ligatures in programming modes    (ligature-set-ligatures     '(prog-mode org-mode)     '(;; == === ==== => =| =>>=>=|=>==>> ==< =/=//=// =~;; =:= =!=       ("=" (rx (+ (or">""<""|""/""~"":""!""="))));; ;; ;;;       (";" (rx (+";")));; && &&&       ("&" (rx (+"&")));; !! !!! !. !: !!. != !== !~       ("!" (rx (+ (or"=""!""\."":""~"))));; ?? ??? ?:  ?=  ?.       ("?" (rx (or":""=""\." (+"?"))));; %% %%%       ("%" (rx (+"%")));; |> ||> |||> ||||> |] |} || ||| |-> ||-||;; |->>-||-<<-| |- |== ||=||;; |==>>==<<==<=>==//==/=!==:===>       ("|" (rx (+ (or">""<""|""/"":""!""}""\]""-""=" ))));;\\\\\ \/       ("\\" (rx (or"/" (+"\\"))));; ++ +++ ++++ +>       ("+" (rx (or">" (+"+"))));; :: ::: :::: :> :< := :// ::=       (":" (rx (or">""<""=""//"":=" (+":"))));; // /// //// /\ /* /> /===:===!=//===>>==>==/       ("/" (rx (+ (or">""<""|""/""\\""\*"":""!""="))));; .. ... .... .= .- .? ..= ..<       ("\." (rx (or"=""-""\?""\.=""\.<" (+"\."))));; -- --- ---- -~ -> ->> -| -|->-->>->--<<-|       ("-" (rx (+ (or">""<""|""~""-"))));; *> */ *)  ** *** ****       ("*" (rx (or">""/"")" (+"*"))));; www wwww       ("w" (rx (+"w")));; <> <!-- <|> <: <~ <~> <~~ <+ <* <$ </  <+> <*>;; <$> </> <|  <||  <||| <|||| <- <-| <-<<-|-> <->>;; <<-> <= <=> <<==<<==>=|=>==/==//=!==:=>;; << <<< <<<<       ("<" (rx (+ (or"\+""\*""\$""<"">"":""~""!""-""/""|""="))));; >: >- >>- >--|-> >>-|-> >= >== >>== >=|=:=>>;; >> >>> >>>>       (">" (rx (+ (or">""<""|""/"":""=""-"))));; #: #= #! #( #? #[ #{ #_ #_( ## ### #####       ("#" (rx (or":""=""!""(""\?""\[""{""_(""_"                    (+"#"))));; ~~ ~~~ ~=  ~-  ~@ ~> ~~>       ("~" (rx (or">""=""-""@""~>" (+"~"))));; __ ___ ____ _|_ __|____|_       ("_" (rx (+ (or"_""|"))));; Fira code: 0xFF 0x12       ("0" (rx (and"x" (+ (in"A-F""a-f""0-9")))));; Fira code:"Fl""Tl""fi""fj""fl""ft";; The few not covered by the regexps."{|""[|""]#""(*""}#""$>""^="));; Enables ligature checks globally in all buffers. You can also do it;; per mode with`ligature-mode'.    (global-ligature-mode)):hook  (elpaca-after-init. my/setup-ligatures))

modus-themes

(use-package modus-themes:bind  (:map my/toggle-map        ("t". modus-themes-toggle)):custom;; Add all your customizations prior to loading the themes  (modus-themes-italic-constructst)  (modus-themes-bold-constructsnil))

mood-line

(use-package mood-line:config  (setq my/modeline-height30):custom;; Use pretty Fira Code-compatible glyphs  (mood-line-glyph-alist mood-line-glyphs-fira-code)  (mood-line-format   (mood-line-defformat:left    (((my/get-bar-image my/modeline-height2nil)."")     ((mood-line-segment-modal)."")     ((mood-line-segment-anzu)."")     ((mood-line-segment-multiple-cursors)."")     ):right    (((mood-line-segment-process)."")     ((mood-line-segment-buffer-status)."");; ((mood-line-segment-misc-info)               . " ")))     ((mood-line-segment-major-mode)."")     ((mood-line-segment-vc)."")     ((mood-line-segment-checker).""))))  (mood-line-segment-modal-meow-state-alist   `((normal ,(nerd-icons-mdicon"nf-md-alpha_m_circle").font-lock-variable-name-face)     (insert ,(nerd-icons-mdicon"nf-md-alpha_i_circle").font-lock-string-face)     (keypad ,(nerd-icons-mdicon"nf-md-alpha_k_circle").font-lock-keyword-face)     (beacon ,(nerd-icons-mdicon"nf-md-alpha_b_circle").font-lock-type-face)     (motion ,(nerd-icons-mdicon"nf-md-alpha_m_circle").font-lock-constant-face))):hook  (elpaca-after-init. mood-line-mode))

nerd-icons

(use-package nerd-icons)

procress

(use-package procress:ensure (:host github:repo"haji-ali/procress"):commands procress-auctex-mode:hook  (LaTeX-mode. procress-auctex-mode):config  (procress-load-default-svg-images))

spacious-padding

(use-package spacious-padding:custom  (spacious-padding-widths '(:internal-border-width10:header-line-width0:mode-line-width4:tab-bar-width4:tab-line-width2:tab-width2:right-divider-width10;; :scroll-bar-width 2:fringe-width8                             ))  (spacious-padding-subtle-mode-linet):hook  (elpaca-after-init. spacious-padding-mode))

tab-bar

(use-package tab-bar:ensurenil:custom  (tab-bar-history-limit100):preface  (defvarmy/workspace-map (make-sparse-keymap)"key-map for workspace commands"):config;; Prevent accidental tab switches when scrolling the buffer  (define-key tab-bar-map (kbd"<wheel-down>")nilt)  (define-key tab-bar-map (kbd"<wheel-up>")nilt):config  (define-key my/leader-map (kbd"W") (cons"workspace" my/workspace-map)):bind  (([remap winner-undo]. tab-bar-history-back)   ([remap winner-undo]. tab-bar-history-forward):map my/toggle-map   ("t". tab-bar-mode):repeat-map my/window-map   ("u". tab-bar-history-back)   ("i". tab-bar-history-forward):repeat-map my/workspace-map   ("p". tab-previous)   ("n". tab-next)   ("P". tab-bar-move-tab-backward)   ("N". tab-bar-move-tab):exit   ("k". tab-close-group)):hook  ((elpaca-after-init. tab-bar-history-mode)   (elpaca-after-init. tab-bar-mode)))

tab-line

(use-package tab-line:ensurenil:custom  (tab-line-new-tab-choicenil)  (tab-line-new-button-shownil)  (tab-line-tab-name-function#'my/tab-line-tab-name-function)  (tab-line-close-tab-function#'my/tab-line-close-tab-function)  (tab-line-exclude-modes '(completion-list-mode                            imenu-list-major-mode ediff-meta-mode ediff-mode symbols-outline-mode flymake-diagnostics-buffer-mode                            dired-mode dirvish-directory-view-mode                            dape-info-scope-mode dape-info-stack-mode dape-info-watch-mode dape-info-parent-mode                            dape-info-modules-mode dape-info-sources-mode dape-info-threads-mode dape-info-breakpoints-mode))  (tab-line-close-button-show'selected):bind  (:map my/toggle-map        ("T". global-tab-line-mode)):preface  (defunmy/tab-line-tab-name-function (buffer&optional_buffers)    (let ((name (buffer-name buffer)))      (concat;;(my/get-bar-image 20 2 nil)""       (nerd-icons-icon-for-file name)       (format"%s" name))))  (defunmy/tab-line-get-buffer (tab)"Return the buffer represented by TAB."    (if (bufferp tab) tab (cdr (assq'buffer tab))))  (defunmy/tab-line-windows-with-buffer (buffer)"Return a list of windows displaying BUFFER across all frames."    (seq-filter (lambda (window)                  (eq buffer (window-buffer window)))                (window-list-1nilnilt)))  (defunmy/tab-line-close-or-bury-buffer (buffer)"Close or bury BUFFER based on its presence in other windows."    (let ((other-windows (my/tab-line-windows-with-buffer buffer)))      (if (> (length other-windows)1)          (progn            (message"Burying buffer%s" buffer)            (bury-buffer))        (progn          (message"Closing buffer%s" buffer)          (kill-buffer buffer)))))  (defunmy/multi-buffer-window-p ()"Evaluates to`t' if windows has mutible tab-line buffers, else`nil'."    (> (length (tab-line-tabs-window-buffers))1))  (defunmy/tab-line-close-tab-function (tab)"Close the selected tab.      If the tab is presented in another window, close the tab by using the `bury-buffer` function.      If the tab is unique to all existing windows, kill the buffer with the `kill-buffer` function.      Lastly, if no tabs are left in the window, it is deleted with the `delete-window` function."    (interactive (list (current-buffer)))    (let ((window (selected-window))          (kill-window-p (not (my/multi-buffer-window-p)))          (buffer (my/tab-line-get-buffer tab)))      (my/tab-line-close-or-bury-buffer buffer)      (when kill-window-p         (message"Closing window")        (ignore-errors (delete-window window)))));; (defun my/enable-tab-line-if-multiple-buffers ();;   "Enable tab line mode if there are multiple buffers in the current window.";;   (if (my/multi-buffer-window-p);;       (tab-line-mode 1);;     (tab-line-mode -1))):config  (setq tab-line-close-button        (propertize"✕"'keymap tab-line-tab-close-map'mouse-face'tab-line-close-highlight'help-echo"Click to close tab")        tab-line-separator""):hook;; (window-configuration-change . my/enable-tab-line-if-multiple-buffers)  (elpaca-after-init. global-tab-line-mode))

time

(use-package time:ensurenil:custom  (display-time-default-load-averagenil)  (display-time-24hr-formatt)  (display-time-day-and-datet):preface  (defunmy/toggle-display-time-mode (&restargs)    (ignore args)    (display-time-mode'toggle)):init  (advice-add'toggle-frame-fullscreen:after#'my/toggle-display-time-mode))

Library Footer

(provide'my-ui);;; my-ui.el ends here

UX

(require'my-ux)

Conventional Header

<<header(file_name="my-ux.el")>>

ace-window

(use-package ace-window:preface;; https://karthinks.com/software/emacs-window-management-almanac/#a-window-prefix-command-for-ace-window  (defunmy/ace-window-prefix ()"Use`ace-window' to display the buffer of the next command.The next buffer is the buffer displayed by the next command invokedimmediately after this command (ignoring reading from the minibuffer).Creates a new window before displaying the buffer.When`switch-to-buffer-obey-display-actions' is non-nil,`switch-to-buffer' commands are also supported."    (interactive)    (display-buffer-override-next-command     (lambda (buffer_)       (let (window type)         (setq          window (aw-select (propertize" ACE"'face'mode-line-highlight))          type'reuse)         (cons window type)))nil"[ace-window]")    (message"Use`ace-window' to display next command buffer...")):custom  (aw-dispatch-alwayst)  (aw-minibuffer-flagnil);; Make Emacs ask where to place a new buffer  (display-buffer-base-action '((display-buffer-reuse-window                                 display-buffer-in-previous-window                                 ace-display-buffer))):autoload ace-display-buffer:config;; Ignore the inibuffer  (add-to-list'aw-ignored-buffers'minibuffer-mode):bind  (("M-O". ace-window)   ("M-o". my/ace-window-prefix)))

auto-compile

(use-package auto-compile:custom  (auto-compile-display-buffernil)  (auto-compile-mode-line-countert):init  (auto-compile-on-load-mode):hook  (emacs-lisp-mode. auto-compile-on-save-mode))

autorevert

(use-package autorevert:ensurenil:custom;; Revert Dired and other buffers  (global-auto-revert-non-file-bufferst);; Avoid polling for changes and rathe get notified by the system  (auto-revert-use-notifyt)  (auto-revert-avoid-pollingt):hook  (elpaca-after-init. global-auto-revert-mode))

bookmark

(use-package bookmark:ensurenil:custom  (bookmark-save-flag1))

comint-mime

(use-package comint-mime:hook  (inferior-python-mode. comint-mime-setup))

delsel

(use-package delsel:ensurenil:hook  ((prog-mode conf-mode text-mode). delete-selection-mode))

elec-pair

(use-package elec-pair:ensurenil:hook  ((prog-mode conf-mode). electric-pair-mode))

face-remap

(use-package face-remap:ensurenil:preface  (defvarmy/buffer-scale-map (make-sparse-keymap)"key-map for buffer text scale commands")  (defunmy/text-scale-adjust-latex-previews ()"Adjust the size of latex preview fragments when changing thebuffer's text scale."    (pcase major-mode      ((or'latex-mode (guard'org-auctex-mode))       (dolist (ov (overlays-in (point-min) (point-max)))         (if (eq (overlay-get ov'category)'preview-overlay)             (my/zoom-latex-preview ov))))      ('org-mode       (dolist (ov (overlays-in (point-min) (point-max)))         (if (eq (overlay-get ov'org-overlay-type)'org-latex-overlay)             (my/zoom-latex-preview ov))))))  (defunmy/zoom-latex-preview (ov)    (overlay-put     ov'display     (cons'image           (plist-put            (cdr (overlay-get ov'display)):scale (+1.0 (*0.25 text-scale-mode-amount)))))):init  (define-key my/buffer-map (kbd"z") (cons"scale" my/buffer-scale-map)):bind  (:repeat-map my/buffer-scale-map               ("+". text-scale-increase)               ("-". text-scale-decrease)               ("=". text-scale-adjust)):hook  (text-scale-mode. my/text-scale-adjust-latex-previews))

golden-ratio

(use-package golden-ratio:custom  (golden-ratio-exclude-modes '(speedbar-mode vundo-mode dired-mode symbols-outline-mode))  (golden-ratio-exclude-buffer-regexp '(" ?\\*MINIMAP\\*"" ?\\*Outline\\*"));; (golden-ratio-auto-scale t):config  (add-to-list'golden-ratio-inhibit-functions               (lambda ()                 (and which-key--buffer                      (window-live-p (get-buffer-window which-key--buffer))))):bind  (:map my/toggle-map        ("g". golden-ratio-mode)))

minimap

(use-package minimap:custom  (minimap-window-location'right)  (minimap-hide-fringest)  (minimap-minimum-width25)  (minimap-width-fraction0)  (minimap-major-modes '(prog-mode conf-mode)):config  (with-eval-after-load'golden-ratio    (add-to-list'golden-ratio-inhibit-functions                 (lambda ()                   (and minimap-buffer-name                        (window-live-p (get-buffer-window minimap-buffer-name)))))    (add-to-list'golden-ratio-exclude-buffer-names `(,minimap-buffer-name))):bind  (:map my/toggle-map        ("m". minimap-mode)))

mini-ontop

(use-package mini-ontop:ensure (:host github:repo"hkjels/mini-ontop.el"):custom  (mini-ontop-lines22):config  (with-eval-after-load'embark    (add-to-list'mini-ontop-ignore-predicates (lambdanil (eq this-command#'embark-act)))):hook  (elpaca-after-init. mini-ontop-mode))

multiple-cursors

(use-package multiple-cursors:preface  (defvarmy/mc-map (make-sparse-keymap)"key-map for multiple cursor commands"):init  (define-key my/leader-map (kbd"m") (cons"mc" my/mc-map)):bind  (("C-S-<mouse-1>". mc/add-cursor-on-click):map mc/keymap   ("<escape>". mc/keyboard-quit):repeat-map my/mc-map   ("n". mc/mark-next-like-this)   ("p". mc/mark-previous-like-this):exit   ("a". mc/mark-all-like-this)   ("m". mc/edit-lines)))

outline

(use-package outline:ensurenil:preface  (defvarmy/outline-repeat-map (make-sparse-keymap)"key-map for outline-mode commands")  (defunmy/outline-mode-hooknil    (when (not (eq major-mode'org-mode))      (reveal-mode1))):init  (define-key my/leader-map (kbd"TAB") (cons"outline" my/outline-repeat-map)):config  (define-key my/outline-repeat-map (kbd"e") (cons"edit" outline-editing-repeat-map))  (define-key my/outline-repeat-map (kbd"n") (cons"navigate" outline-navigation-repeat-map)):bind  (:repeat-map my/outline-repeat-map               ("SPC". outline-mark-subtree)               ("TAB". outline-cycle)               ("S-<tab>". outline-cycle-buffer)               ("<backtab>". outline-cycle-buffer)               ("a". outline-show-all)):hook  (((text-mode prog-mode conf-mode). outline-minor-mode)   (outline-minor-mode. my/outline-mode-hook)))

paren

(use-package paren:ensurenil:custom  (show-paren-style'parenthesis)  (show-paren-when-point-in-peripheryt)  (show-paren-when-point-inside-parennil):hook  (prog-mode. show-paren-mode))

recentf

(use-package recentf:ensurenil:custom  (recentf-keep '(file-remote-p file-readable-p))  (recentf-max-menu-items10)  (recentf-max-saved-items100):config  (add-to-list'recentf-exclude               (recentf-expand-file-name no-littering-var-directory))  (add-to-list'recentf-exclude               (recentf-expand-file-name no-littering-etc-directory)):bind  (:map my/open-map        ("r". recentf-open)):hook  (elpaca-after-init. recentf-mode))

repeat

(use-package repeat:ensurenil:preface;; https://karthinks.com/software/it-bears-repeating/#adding-repeat-mode-support-to-keymaps  (defunmy/repeatize-keymap (keymap)"Add`repeat-mode' support to a KEYMAP."    (map-keymap     (lambda (_keycmd)       (when (symbolp cmd)         (put cmd'repeat-map keymap)))     (symbol-value keymap))):config  (with-eval-after-load'smerge-mode    (my/repeatize-keymap'smerge-basic-map)):hook  (elpaca-after-init. repeat-mode))

rotate

(use-package rotate:bind  (:repeat-map my/window-map               ("R". rotate-layout)               ("W". rotate-window)))

savehist

(use-package savehist:ensurenil:custom  (kill-ring-max500)  (history-length500)  (savehist-additional-variables   '(kill-ring     command-history     set-variable-value-history     custom-variable-history     query-replace-history     read-expression-history     minibuffer-history     read-char-history     face-name-history     bookmark-history     file-name-history));; No duplicates in history  (history-delete-duplicatest):config  (put'minibuffer-history'history-length500)  (put'file-name-history'history-length500)  (put'set-variable-value-history'history-length250)  (put'custom-variable-history'history-length250)  (put'query-replace-history'history-length250)  (put'read-expression-history'history-length250)  (put'read-char-history'history-length250)  (put'face-name-history'history-length250)  (put'bookmark-history'history-length250):hook;;Start history mode.  (elpaca-after-init. savehist-mode))

saveplace

(use-package saveplace:ensurenil:hook  (elpaca-after-init. save-place-mode))

time-stamp

(use-package time-stamp:ensurenil:custom  (time-stamp-activet)  (time-stamp-format"%04Y-%02m-%02d %02H:%02M:%02S (%U)"):hook  (before-save. time-stamp))

wgrep

(use-package wgrep:after grep:demandt:custom  (wgrep-auto-save-buffert))

writeroom-mode

(use-package writeroom-mode:bind (:map my/toggle-map ("z". writeroom-mode)))

window

(use-package window:ensurenil:preface  (defvarmy/window-map (make-sparse-keymap)"key-map for window commands")  (defvarmy/top-side-window-modes-list    '(flymake-diagnostics-buffer-mode      locate-mode      occur-mode      grep-mode      xref--xref-buffer-mode)"List of major-modes displayed above.")  (defvarmy/top-side-window-names-list    '("^\\*TeX Help\\*$""^\\*TeX errors\\*$""^COMMIT_EDITMSG$")"List of buffer names displayed above.")  (defvarmy/bottom-side-window-modes-list    '(eshell-mode      shell-mode      term-mode      vterm-mode      comint-mode      debugger-mode)"List of major-modes displayed below.")  (defvarmy/bottom-side-window-names-list    '("^\\*.*eshell.*\\*$""^\\*.*shell.*\\*$""^\\*.*term.*\\*$""^\\*.*vterm.*\\*$""^\\*diff-hl\\*$""^\\*Process List\\*$")"List of buffer names displayed below.")  (defvarmy/right-side-window-modes-list    '(Info-mode      TeX-output-mode      pdf-view-mode      eldoc-mode      help-mode      helpful-mode      magit-status-mode      magit-log-mode      magit-diff-mode      magit-process-mode      shortdoc-mode)"List of major-modes displayed right.")  (defvarmy/right-side-window-names-list    '("^\\*eldoc.*\\*$""^\\*info\\*$""^magit-diff:.*$")"List of buffer names displayed right.")  (defvarmy/side-window-parameters    '((no-other-window.t)      (tab-line-format. none)      (mode-line-format. none))"window parameters used for side-windows.")  (defunmy/get-buffer-match-condtion (majormodes&optionalbuffernames)"Get condition to match buffers with given MAJORMODES od BUFFERNAMES."    (let ((modes-cond `(or ,@(mapcar (lambda (mode) `(derived-mode.,mode)) majormodes))))      (if buffernames `(or,modes-cond (or,@buffernames))        modes-cond)))  (defunmy/get-next-free-slot-on-side (side)"Return the next free window slot number for windows on SIDE.If no windows are present on that side, return 0. If no free slot is found, return nil."    (let* ((max-slots (nth (cond ((eq side'left)0)                                 ((eq side'top)1)                                 ((eq side'right)2)                                 ((eq side'bottom)3))                           window-sides-slots))           used-slots next-slot);; Collect used slots      (dolist (win (window-list))        (when (equal (window-parameter win'window-side) side)          (let ((slot (window-parameter win'window-slot)))            (when slot              (setq used-slots (cons slot used-slots))))))      (unless (null used-slots);; Find the next free slot        (catch'next-slot          (dotimes (i max-slots)            (unless (member i used-slots)              (throw'next-slot i)))))))  (defunmy/display-buffer-in-side-window-next-free-slot (bufferalist)"Display BUFFER in a side window, using the next free slot if not provided in ALIST.ALIST can contain the side and optionally the slot. If the slot is not given,the function finds the next available slot for that side."    (let* ((side (cdr (assq'side alist)))           (slot (or (cdr (assq'slot alist)) (my/get-next-free-slot-on-side side))))      (message (format"displaying buffer in slot:%s" slot))      (add-to-list'alist `(slot.,slot))      (display-buffer-in-side-window buffer alist)))  (defunmy/toggle-side-windownil"Place the current buffer in the side window at the bottom."    (interactive)    (let ((window (selected-window))          (buf (current-buffer)))      (with-selected-window window        (cond         ((window-parameter window'window-side)          (progn            (setq-local was-side-windowt);; (let ((display-buffer-overriding-action;;        `(display-buffer-in-previous-window . ((previous-window . ,(previous-window window))))));;   (display-buffer buf))            (display-buffer-in-previous-window             buf             `((previous-window. ,(previous-window window))))            (delete-window window)))         ((local-variable-if-set-p'was-side-window buf)          (progn            (kill-local-variable'was-side-window)            (switch-to-prev-buffer window'bury)            (display-buffer buf)))         (t          (error"Not a side window")))))):custom  (window-resize-pixelwiset); Resize windows pixelwise  (frame-resize-pixelwiset); Resize frame pixelwise  (window-combination-resizet)  (window-sides-verticalt)  (window-sides-slots '(2124)); maximum number of side windows on the left, top, right and bottom  (window-persistent-parameters   (append window-persistent-parameters           '((tab-line-format.t)             (mode-line-format.t))))  (transient-display-buffer-action   `(display-buffer-in-side-window     (side. top)     (dedicated.t)     (inhibit-same-window.t)     (window-parameters.,my/side-window-parameters))):config  (define-key my/leader-map (kbd"w") (cons"window" my/window-map))  (with-eval-after-load'magit    (setq magit-display-buffer-function#'display-buffer          magit-commit-diff-inhibit-same-windowt))  (setq display-buffer-alist        `(;; Windows on top          (,(my/get-buffer-match-condtion my/top-side-window-modes-list my/top-side-window-names-list)           (my/display-buffer-in-side-window-next-free-slot)           (side. top)           (window-height. (lambda (win) (fit-window-to-buffer win2010)))           (dedicated.t)           (window-parameters.,my/side-window-parameters));; Windows on the right side          (,(my/get-buffer-match-condtion my/right-side-window-modes-list my/right-side-window-names-list)           (display-buffer-reuse-mode-window            my/display-buffer-in-side-window-next-free-slot)           (side. right)           (window-width.80)           (dedicated.t)           (window-parameters.,my/side-window-parameters));; Windows at the bottom          (,(my/get-buffer-match-condtion my/bottom-side-window-modes-list my/bottom-side-window-names-list)           (my/display-buffer-in-side-window-next-free-slot)           (side. bottom)           (preserve-size. (nil.t))           (window-height.20)           (dedicated.t)           (window-parameters.,my/side-window-parameters)))):bind  (("M-o". other-window-prefix)   ("M-t". other-tab-prefix)   ("M-f". other-frame-prefix):map my/toggle-map   ("w".  window-toggle-side-windows)   ("W".  my/toggle-side-window):repeat-map my/window-map   ("n". next-window-any-frame)   ("p". previous-window-any-frame)   ("k". delete-window)   ("K". kill-buffer-and-window)   ("+". enlarge-window)   ("-". shrink-window)   ("*". enlarge-window-horizontally)   ("’". shrink-window-horizontally)   ("r". split-window-right)   ("b". split-window-below)   ("v". split-window-vertically)   ("h". split-window-horizontally)   ("m". delete-other-windows)   ("m". delete-other-windows)   ("M". delete-other-windows-vertically):exit   ("=". balance-windows)))

Library Footer

(provide'my-ux);;; my-ux.el ends here

Denote

(require'my-denote)

Conventional Header

<<header(file_name="my-denote.el")>>

denote

(use-package denote:custom;; Configure the directory where your notes will be stored.  (denote-directory (expand-file-name"denote/" org-directory));; If you want a controlled vocabulary of keywords, specify them here.  (denote-known-keywords '("ENERGY""STATS""CS""AI"));; If you want Denote to infer keywords from your note titles, set this to t.  (denote-infer-keywordst);; If you want to sort keywords alphabetically, set this to t.  (denote-sort-keywordst);; Specify a regular expression to exclude directories from being searched for notes.  (denote-excluded-directories-regexpnil);; Configure the date format used in note file names.  (denote-date-formatnil);; Disable confirmation prompts when renaming files. Use with caution!  (denote-rename-confirmationsnil);; When displaying backlinks, don't show the surrounding context.  (denote-backlinks-show-contextnil);; Configure the format used for renaming Denote buffers.  (denote-rename-buffer-format"[D] %t%b");; String to indicate that a buffer has backlinks.  (denote-buffer-has-backlinks-string" (<--->)");; Define templates for notes  (denote-templates   '((minutes."minutes")     (plain.nil))):preface  (defvarmy/denote-map (make-sparse-keymap)"key-map for denote commands")  (defunmy/kill-denote-buffers ()"Kill all denote buffers."    (interactive)    (dolist (buf (buffer-list))      (when (or (string-prefix-p"[D]" (buffer-name buf))                (string-prefix-p"*Denote" (buffer-name buf)))        (kill-buffer buf)))):init  (define-key my/leader-map (kbd"n") (cons"denote" my/denote-map)):bind  (:map global-map:map my/denote-map        ("n". denote)        ("N". denote-type)        ("r". denote-rename-file)        ("R". denote-rename-file-using-front-matter)        ("i". denote-link)        ("I". denote-add-links)        ("b". denote-backlinks)        ("k". my/kill-denote-buffers):map dired-mode-map        ("i". denote-link-dired-marked-notes)        ("r". denote-dired-rename-marked-files)        ("k". denote-dired-rename-marked-files-with-keywords)        ("f". denote-dired-rename-marked-files-using-front-matter)):config  (add-hook'context-menu-functions#'denote-context-menu):hook  ((text-mode. denote-fontify-links-mode-maybe)   (dired-mode. denote-dired-mode)   (elpaca-after-init. denote-rename-buffer-mode)))

denote-menu

(use-package denote-menu:after denote:bind  (:map my/denote-map        ("m". list-denotes)))

citar-denote

(use-package citar-denote:after denote citar:custom  (citar-denote-template'biblio)  (citar-denote-subdir"bib_notes"):config  (add-to-list'denote-templates               `(biblio. ,(concat"#+cite_export: biblatex ieee\n"                            (concat"#+bibliography:" (car citar-bibliography)"\n\n")"* Notes :ignore:\n"":PROPERTIES:\n"":NOTER_DOCUMENT: ${file}\n"":END:\n\n""* Summary :childless:showchildren:export:\n""This is a summary of [cite/t:@${=key=}].\n""** Bibliography :ignore:\n"))):init  (citar-denote-mode))

consult-denote

(use-package consult-denote:after denote consult:bind  (:map my/denote-map        ("f". consult-denote-find)        ("g". consult-denote-grep)):config  (consult-denote-mode1))

Library Footer

(provide'my-denote);;; my-denote.el ends here

Tools

(require'my-tools)

Conventional Header

<<header(file_name="my-tools.el")>>

dired

(use-package dired:ensurenil:custom;; inspired by doom;; https://github.com/doomemacs/doomemacs/blob/c2818bcfaa5dc1a0139d1deff7d77bf42a08eede/modules/emacs/dired/config.el#L9C1-L25C36  (dired-dwim-targett); suggest a target for moving/copying intelligently  (dired-hide-details-hide-symlink-targetsnil);; don't prompt to revert, just do it  (dired-auto-revert-buffer#'dired-buffer-stale-p);; Always copy/delete recursively  (dired-recursive-copies'always)  (dired-recursive-deletes'top);; Ask whether destination dirs should get created when copying/removing files.  (dired-create-destination-dirs'ask);; Screens are larger nowadays, we can afford slightly larger thumbnails  (image-dired-thumb-size150)  (delete-by-moving-to-trasht)  (dired-listing-switches"-l --almost-all --human-readable --group-directories-first --no-group")  (dired-find-subdirt); Reuse dired buffers if the directory is a sub directory  (dired-isearch-filenamest); limit search to filenames;; Enable mouse drag-and-drop support  (dired-mouse-drag-filest); added in Emacs 29  (mouse-drag-and-drop-region-cross-programt); added in Emacs 29:bind  (:map my/open-map        ("d". dired)))(use-package dired-x:ensurenil:config;; Make dired-omit-mode hide all "dotfiles"  (setq dired-omit-files        (concat dired-omit-files"\\|^\\..*$")):hook  (dired-mode. dired-omit-mode))

diredfl

(use-package diredfl:hook  ((dired-mode. diredfl-mode)   (dirvish-directory-view-mode. diredfl-mode)))

dirvish

(use-package dirvish:after dired mood-line:custom  (dirvish-quick-access-entries; It's a custom option,`setq' won't work   '(("h""~/""Home")     ("d""~/Downloads/""Downloads")     ("t""~/.local/share/Trash/files/""TrashCan")))  (dirvish-mode-line-format   '(:left (sort symlink):right (vc-info yank index)))  (dirvish-attributes   '(nerd-icons file-time file-size collapse subtree-state vc-state))  (dirvish-subtree-state-style'nerd)  (dirvish-path-separators (list                            (format"%s" (nerd-icons-codicon"nf-cod-home"))                            (format"%s" (nerd-icons-codicon"nf-cod-root_folder"))                            (format"%s" (nerd-icons-faicon"nf-fa-angle_right"))));; (dirvish-use-header-line nil);; (dirvish-use-mode-line nil);; kill all session buffers on quit  (dirvish-reuse-sessionnil)  (dirvish-mode-line-height my/modeline-height)  (dirvish-header-line-height my/modeline-height):preface  (defunmy/dirvish-side-hide-buffer (&restapp)"make dirvish-side buffer`uninteresting' for buffer related commands"    (apply app)    (with-selected-window (dirvish-side--session-visible-p)      (rename-buffer (concat"" (buffer-name))))):init  (dirvish-override-dired-mode);; (dirvish-peek-mode) ; Preview files in minibuffer:config  (dirvish-side-follow-mode); similar to`treemacs-follow-mode'  (advice-add#'dirvish-side--new:around#'my/dirvish-side-hide-buffer):bind; Bind`dirvish|dirvish-side|dirvish-dwim' as you see fit  (("C-c f". dirvish-fd):map my/open-map   ("D". dirvish):map my/toggle-map   ("d". dirvish-side):map dirvish-mode-map; Dirvish inherits`dired-mode-map'   ("<mouse-1>". dirvish-subtree-toggle-or-open)   ("<mouse-2>". dired-mouse-find-file-other-window)   ("F". dirvish-toggle-fullscreen)   ("M-b". dirvish-history-go-backward)   ("M-e". dirvish-emerge-menu)   ("M-f". dirvish-history-go-forward)   ("M-j". dirvish-fd-jump)   ("M-l". dirvish-ls-switches-menu)   ("M-m". dirvish-mark-menu)   ("M-s". dirvish-setup-menu)   ("M-t". dirvish-layout-toggle)   ("N". dirvish-narrow)   ("<tab>". dirvish-subtree-toggle)   ("^". dirvish-history-last)   ("a". dirvish-quick-access)   ("b". dirvish-goto-bookmark)   ("f". dirvish-file-info-menu)   ("h". dirvish-history-jump); remapped`describe-mode'   ("s". dirvish-quicksort); remapped`dired-sort-toggle-or-edit'   ("v". dirvish-vc-menu); remapped`dired-view-file'   ("y". dirvish-yank-menu)   ("z". dirvish-show-history)))

ediff

(use-package ediff:ensurenil:preface  (defvarmy-ediff-original-windowsnil)  (defunmy/store-pre-ediff-winconfig ()"This function stores the current window configuration before opening ediff."    (setq my/ediff-original-windows (current-window-configuration)))  (defunmy/restore-pre-ediff-winconfig ()"This function resets the original window arrangement."    (set-window-configuration my/ediff-original-windows)):custom  (ediff-window-setup-function'ediff-setup-windows-plain)  (ediff-split-window-function'split-window-horizontally):hook  ((ediff-before-setup. my/store-pre-ediff-winconfig)   (ediff-quit. my/restore-pre-ediff-winconfig)))

elfeed

(use-package elfeed:bind  (:map my/open-map        ("f". elfeed)):config  (setq elfeed-feeds        (split-string (shell-command-to-string                       (concat"for d in ~/.emacs.d/elpaca/repos/*; do""  git -C $d remote get-url origin;""done | grep -P '(github)'""     | sed 's:\\.git:/releases.atom:'")))))

exec-path-from-shell

(use-package exec-path-from-shell:preface  (defunmy/copy-ssh-env ()    (exec-path-from-shell-copy-env"SSH_AGENT_PID")    (exec-path-from-shell-copy-env"SSH_AUTH_SOCK")):hook  ((elpaca-after-init. exec-path-from-shell-initialize)   (magit-credential. my/copy-ssh-env)))

flyspell

(use-package flyspell:if (not (executable-find"enchant-2")):ensurenil:custom;; Doom: https://github.com/doomemacs/doomemacs/blob/dbb48712eea6dfe16815a3e5e5746b31dab6bb2f/modules/checkers/spell/config.el#L195C11-L198C42  (flyspell-issue-welcome-flagnil);; Significantly speeds up flyspell, which would otherwise print;; messages for every word when checking the entire buffer  (flyspell-issue-message-flagnil):preface  (defunmy/restart-flyspell-mode ()    (when flyspell-mode      (flyspell-mode-off)      (flyspell-mode-on)      (flyspell-buffer))):hook  (((text-mode org-mode LaTeX-mode). flyspell-mode)   ((prog-mode conf-mode). flyspell-prog-mode)   (ispell-change-dictionary. restart-flyspell-mode)))

flyspell-correct

(use-package flyspell-correct:after flyspell:bind (:map flyspell-mode-map ("C-;". flyspell-correct-wrapper):map flyspell-mouse-map ("RET". flyspell-correct-at-point)              ([mouse-1]. flyspell-correct-at-point)))

gptel

(use-package gptel:custom  (gptel-default-mode'org-mode):bind  (:map my/open-map        ("g". gptel)):commands (gptel gptel-send):config  (gptel-make-gemini"Gemini":key#'gptel-api-key-from-auth-source:streamt))

helpful

(use-package helpful:bind  (([remap describe-function]. helpful-function)   ([remap describe-symbol]. helpful-symbol)   ([remap describe-variable]. helpful-variable)   ([remap describe-command]. helpful-command)   ([remap describe-key]. helpful-key)   ("C-h K". describe-keymap):map helpful-mode-map   ([remap revert-buffer]. helpful-update)))

ispell

(use-package ispell:ensurenil:after flyspell:if (executable-find"hunspell"):custom  (ispell-program-name"hunspell")  (ispell-dictionary"en_US,de_DE"):config  (ispell-set-spellchecker-params)  (ispell-hunspell-add-multi-dic"en_US,de_DE"))

jinx

(use-package jinx:if (executable-find"enchant-2"):custom  (jinx-languages"en_US de_DE"):hook (emacs-startup. global-jinx-mode):bind (("M-$". jinx-correct)         ("C-M-$". jinx-languages)))

pdf-tools

(use-package pdf-tools:magic ("%PDF". pdf-view-mode):functions (pdf-view-refresh-themed-buffer):preface  (defunmy/pdf-tools-themed-update-advice (&restapp)    (when pdf-view-themed-minor-mode      (pdf-view-refresh-themed-buffert))):custom  (pdf-view-use-scalingt):config  (pdf-tools-install:no-query)  (advice-add#'enable-theme:after#'my/pdf-tools-themed-update-advice):hook  ((pdf-view-mode. pdf-view-themed-minor-mode)   (pdf-view-mode. pdf-isearch-minor-mode)))

re-builder

;; https://www.masteringemacs.org/article/re-builder-interactive-regexp-builder(use-package re-builder:ensurenil:commands re-builder:custom  (reb-re-syntax'string))

server

(use-package server:ensurenil:config  (unless (server-running-p)    (server-start)))

term

(use-packageterm:ensurenil:commandsterm:unless (not (file-exists-p"/bin/zsh")); we only use it if shell exists:custom  (shell-file-name"/bin/zsh")  (explicit-shell-file-name"/bin/zsh"))

tramp

(use-package tramp:ensurenil:custom  (tramp-verbose0)  (tramp-otp-password-prompt-regexp   (rx bol (* nonl)       (group (|"Verification code""OTP"))       (* nonl) (any":：៖") (* blank)))  (tramp-histfile-overridenil)  (tramp-default-method"ssh"):config;; ;; Enable full-featured Dirvish over TRAMP on certain connections;; ;; https://www.gnu.org/software/tramp/#Improving-performance-of-async;; hronous-remote-processes-1.  (add-to-list'tramp-connection-properties               (list (regexp-quote"/ssh:")"direct-async-process"t));; (connection-local-set-profile-variables;;  'remote-direct-async-process;;  '((tramp-direct-async-process . t)));; (connection-local-set-profiles;;  '(:application tramp :protocol "ssh");;  'remote-direct-async-process)  )

vterm

;; https://www.reddit.com/r/emacs/comments/wu5rxi/comment/ilagtzv/?utm_source=share&utm_medium=web3x&utm_name=web3xcss&utm_term=1&utm_content=share_button(use-package vterm:bind  (:map my/open-map        ("v". vterm):map project-prefix-map        ("t". my/project-vterm):map vterm-mode-map        ("C-<escape>". vterm-send-escape)):preface  (defunmy/project-vterm ()    (interactive)    (defvarvterm-buffer-name)    (let* ((default-directory (project-root (project-currentt)))           (vterm-buffer-name (project-prefixed-buffer-name"vterm"))           (vterm-buffer (get-buffer vterm-buffer-name)))      (if (and vterm-buffer (not current-prefix-arg))          (pop-to-buffer vterm-buffer  (bound-and-true-p display-comint-buffer-action))        (vterm))));; https://github.com/akermu/emacs-libvterm/issues/569#issuecomment-2244574273  (defunmy/vterm--get-shell-adv (vterm-shell)"Quote VTERM-SHELL if it's a remote shell."    (if (and (ignore-errors (file-remote-p default-directory))             (not (string-match-p"'.*'" vterm-shell)))        (format"'%s'" vterm-shell)      vterm-shell)):init  (with-eval-after-load'project    (add-to-list'project-switch-commands '(my/project-vterm"Vterm")t)    (add-to-list'project-kill-buffer-conditions '(major-mode. vterm-mode)))  (advice-add#'vterm--get-shell:filter-return#'my/vterm--get-shell-adv):custom  (vterm-copy-exclude-promptt)  (vterm-max-scrollback100000)  (vterm-shell"zsh")  (vterm-tramp-shells '(("ssh""zsh")                        ("docker""sh")                        ("podman""sh"))))

vundo

(use-package vundo:bind  (:map my/open-map        ("u". vundo)):config  (when (display-graphic-p)    (setq vundo-glyph-alist vundo-unicode-symbols)))

Library Footer

(provide'my-tools);;; my-tools.el ends here

Completion

(require'my-completion)

Conventional Header

<<header(file_name="my-completion.el")>>

cape

(use-package cape:init  (define-key my/leader-map (kbd".") (cons"completion"'cape-prefix-map));; Add`completion-at-point-functions', used by`completion-at-point'.;; NOTE: The order matters!  (add-to-list'completion-at-point-functions#'cape-dabbrev)  (add-to-list'completion-at-point-functions#'cape-elisp-block)  (add-to-list'completion-at-point-functions#'cape-history)  (add-to-list'completion-at-point-functions#'cape-file);;(add-to-list 'completion-at-point-functions #'cape-keyword);;(add-to-list 'completion-at-point-functions #'cape-tex);;(add-to-list 'completion-at-point-functions #'cape-sgml);;(add-to-list 'completion-at-point-functions #'cape-rfc1345);;(add-to-list 'completion-at-point-functions #'cape-abbrev);;(add-to-list 'completion-at-point-functions #'cape-dict);;(add-to-list 'completion-at-point-functions #'cape-elisp-symbol);;(add-to-list 'completion-at-point-functions #'cape-line);; The advices are only needed on Emacs 28 and older.  (when (< emacs-major-version29);; Silence the pcomplete capf, no errors or messages!    (advice-add'pcomplete-completions-at-point:around#'cape-wrap-silent);; Ensure that pcomplete does not write to the buffer;; and behaves as a pure`completion-at-point-function'.    (advice-add'pcomplete-completions-at-point:around#'cape-wrap-purify)))

citar

(use-package citar:after nerd-icons:custom  (org-cite-insert-processor'citar)  (org-cite-follow-processor'citar)  (org-cite-activate-processor'citar)  (citar-bibliography org-cite-global-bibliography)  (citar-at-point-function'embark-act)  (citar-notes-paths (list (concat denote-directory"bib_notes/")))  (citar-templates `((main."${author editor:30}     ${date year issued:4}     ${title:48}")                     (suffix."          ${=key= id:15}    ${=type=:12}    ${tags keywords:*}")                     (preview."${author editor} (${year issued date}) ${title}, ${journal journaltitle publisher container-title collection-title}.\n")                     (note. ,(concat"${title}\n""#+AUTHOR: ${author editor}\n""#+DATE: ${date}\n""#+SOURCE: ${doi url}\n""#+CUSTOM_ID: ${=key= id}\n""#+cite_export: biblatex ieee\n"                                      (concat"#+bibliography:" (car citar-bibliography)"\n\n")"* Notes :ignore:\n"":PROPERTIES:\n"":NOTER_DOCUMENT: ${file}\n"":END:\n\n""* Summary :childless:showchildren:export:\n""This is a summary of [cite/t:@${=key=}].\n""** Bibliography :ignore:\n"                                      ))))  (citar-symbol-separator""):config  (defvarcitar-indicator-files-icons    (citar-indicator-create:symbol (nerd-icons-faicon"nf-fa-file_o":face'nerd-icons-green:v-adjust-0.1):function#'citar-has-files:padding""; need this because the default padding is too low for these icons:tag"has:files"))  (defvarcitar-indicator-links-icons    (citar-indicator-create:symbol (nerd-icons-octicon"nf-oct-link":face'nerd-icons-orange:v-adjust0.01):function#'citar-has-links:padding"":tag"has:links"))  (defvarcitar-indicator-notes-icons    (citar-indicator-create:symbol (nerd-icons-mdicon"nf-md-pencil":face'nerd-icons-blue:v-adjust0.01):function#'citar-has-notes:padding"":tag"has:notes"))  (defvarcitar-indicator-cited-icons    (citar-indicator-create:symbol (nerd-icons-faicon"nf-fa-circle_o":face'nerd-icons-green):function#'citar-is-cited:padding"":tag"is:cited"))  (setq citar-indicators        (list citar-indicator-files-icons              citar-indicator-links-icons              citar-indicator-notes-icons              citar-indicator-cited-icons));; optional: org-cite-insert is also bound to C-c C-x C-@;;:bind;;(:map org-mode-map :package org ("C-c b" . #'org-cite-insert)):hook  ((LaTeX-mode. citar-capf-setup)   (org-mode. citar-capf-setup)))(use-package citar-embark:hook  ((LaTeX-mode. citar-embark-mode)   (org-mode. citar-embark-mode)))

consult

;; Example configuration for Consult(use-package consult;; Replace bindings. Lazily loaded due by`use-package'.:bind (([remap Info-search]. consult-info)         ([remap recentf-open]. consult-recent-file)         ([remap bookmark-jump]. consult-bookmark)         ([remap goto-line]. consult-goto-line)         ([remap imenu]. consult-imenu)         ([remap locate]. consult-locate)         ([remap load-theme]. consult-theme)         ([remap man]. consult-man)         ([remap recentf-open-files]. consult-recent-file)         ([remap switch-to-buffer]. consult-buffer)         ([remap switch-to-buffer-other-window]. consult-buffer-other-window)         ([remap switch-to-buffer-other-frame]. consult-buffer-other-frame)         ([remap yank-pop]. consult-yank-pop)         ([remap project-list-buffers]. consult-project-buffer)         ("M-y". consult-yank-pop);; orig. yank-pop:map my/buffer-map         ("b". consult-buffer);; orig. switch-to-buffer         ("w". consult-buffer-other-window);; orig. switch-to-buffer-other-window         ("f". consult-buffer-other-frame);; orig. switch-to-buffer-other-frame:map goto-map;; M-g bindings in`goto-map'         ("e". consult-compile-error)         ("f". consult-flymake);; Alternative: consult-flycheck         ("g". consult-goto-line);; orig. goto-line         ("o". consult-outline);; Alternative: consult-org-heading         ("m". consult-mark)         ("k". consult-global-mark)         ("i". consult-imenu)         ("I". consult-imenu-multi):map search-map         ("d". consult-find)         ("D". consult-locate)         ("g". consult-grep)         ("G". consult-git-grep)         ("r". consult-ripgrep)         ("l". consult-line)         ("L". consult-line-multi)         ("k". consult-keep-lines)         ("u". consult-focus-lines);; Isearch integration         ("e". consult-isearch-history):map isearch-mode-map         ("M-e". consult-isearch-history);; orig. isearch-edit-string         ("M-s e". consult-isearch-history);; orig. isearch-edit-string         ("M-s l". consult-line);; needed by consult-line to detect isearch         ("M-s L". consult-line-multi);; needed by consult-line to detect isearch;; Minibuffer history:map minibuffer-local-map         ("M-s". consult-history);; orig. next-matching-history-element         ("M-r". consult-history));; orig. previous-matching-history-element:custom;; Optionally configure the register formatting. This improves the register;; preview for`consult-register',`consult-register-load',;;`consult-register-store' and the Emacs built-ins.  (register-preview-delay0.5)  (register-preview-function#'consult-register-format);; Use Consult to select xref locations with preview  (xref-show-xrefs-function#'consult-xref)  (xref-show-definitions-function#'consult-xref);; Optionally configure the narrowing key.;; Both < and C-+ work reasonably well.  (consult-narrow-key"<");; "C-+":config;; Optionally tweak the register preview window.;; This adds thin lines, sorting and hides the mode line of the window.  (advice-add#'register-preview:override#'consult-register-window);; Optionally configure preview. The default value;; is 'any, such that any key triggers the preview.;; (setq consult-preview-key 'any);; (setq consult-preview-key "M-.");; (setq consult-preview-key '("S-<down>" "S-<up>"));; For some commands and buffer sources it is useful to configure the;; :preview-key on a per-command basis using the`consult-customize' macro.  (consult-customize   consult-theme:preview-key '(:debounce0.2 any)   consult-ripgrep consult-git-grep consult-grep   consult-bookmark consult-recent-file consult-xref   consult--source-bookmark consult--source-file-register   consult--source-recent-file consult--source-project-recent-file;; :preview-key "M-.":preview-key '(:debounce0.4 any));; Configure a different project root function.  (with-eval-after-load'projectile    (autoload'projectile-project-root"projectile")    (setq consult-project-function (lambda (_) (projectile-project-root)))))

consult-todo

(use-package consult-todo:after consult hl-todo)

corfu

(use-package corfu:custom;; TAB cycle if there are only few candidates  (completion-cycle-thresholdnil);; Emacs 28: Hide commands in M-x which do not apply to the current mode.;; Corfu commands are hidden, since they are not supposed to be used via M-x.  (read-extended-command-predicate#'command-completion-default-include-p);; Enable indentation+completion using the TAB key.;;`completion-at-point' is often bound to M-TAB.  (tab-always-indent'complete);; Additional Customisations  (corfu-cyclet);; Enable cycling for`corfu-next/previous'  (corfu-autot);; Enable auto completion  (corfu-quit-no-match'separator);; Quit auto complete if there is no match  (corfu-auto-prefix2);; Complete with less prefix keys  (corfu-quit-at-boundary'separator);; Never quit at completion boundary  (corfu-preview-currentnil);; Disable current candidate preview  (corfu-preselect'directory);; Preselect the fisrt canidate exept for directories select the prompt:preface;; Completing in the minibuffer  (defunmy/corfu-enable-always-in-minibuffer ()"Enable Corfu in the minibuffer if Vertico/Mct are not active."    (unless (or (bound-and-true-p mct--active)                (bound-and-true-p vertico--input)                (eq (current-local-map) read-passwd-map));; (setq-local corfu-auto nil) ;; Enable/disable auto completion      (setq-local corfu-echo-delaynil;; Disable automatic echo and popup                  corfu-popupinfo-delaynil)      (corfu-mode1)));; https://github.com/minad/corfu/wiki#same-key-used-for-both-the-separator-and-the-insertion  (defunmy/corfu-spc-handler ()    (interactive)    (if current-prefix-arg;;we suppose that we want leave the word like that, so do a space        (progn          (corfu-quit)          (insert""))      (if (and (= (char-before) corfu-separator)               (or;; check if space, return or nothing after                (not (char-after))                (= (char-after)?\s)                (= (char-after)?\n)))          (progn            (corfu-insert)            (insert""))        (corfu-insert-separator)))):config;; Free the RET key for less intrusive behavior.  (keymap-unset corfu-map"RET")  (require'corfu-echo)  (require'corfu-history)  (require'corfu-popupinfo)  (eldoc-add-command#'corfu-insert):bind  (("C-SPC". completion-at-point):map corfu-map   ("C-SPC". corfu-insert)   ("<tab>". corfu-next)   ("TAB". corfu-next)   ("<backtab>". corfu-previous)   ("SPC". corfu-insert-separator)   ("<escape>". corfu-quit)):hook;; Recommended: Enable Corfu globally.;; This is recommended since Dabbrev can be used globally (M-/).;; See also`corfu-exclude-modes'.  ((elpaca-after-init. global-corfu-mode)   (elpaca-after-init. corfu-popupinfo-mode)   (elpaca-after-init. corfu-echo-mode)   (elpaca-after-init. corfu-history-mode);; disable auto completion for eshell, such that the completion behavior is similar to widely used shells like Bash, Zsh or Fish.   (eshell-mode-hook. (lambda ()                         (setq-local corfu-autonil)                         (corfu-mode)));; Enable minibuffer completion   (minibuffer-setup. my/corfu-enable-always-in-minibuffer)))(use-package corfu-terminal:if (not (display-graphic-p)):after corfu:hook  (global-corfu-mode. corfu-terminal-mode))

corfu-candidate-overlay

(use-package corfu-candidate-overlay:ensure (:type git:repo"https://code.bsdgeek.org/adam/corfu-candidate-overlay":files (:defaults"*.el")):after corfu:hook;; enable corfu-candidate-overlay mode globally;; this relies on having corfu-auto set to nil  (global-corfu-mode. corfu-candidate-overlay-mode))

dabbrev

(use-package dabbrev:ensurenil;; Swap M-/ and C-M-/:bind (("M-/". dabbrev-completion)         ("C-M-/". dabbrev-expand));; Other useful Dabbrev configurations.:custom  (dabbrev-ignored-buffer-regexps '("\\.\\(?:pdf\\|jpe?g\\|png\\)\\'")))

embark

(use-package embark:after which-key:bind  (("C-.". embark-act);; pick some com fortable binding   ("C-:". embark-dwim);; good alternative: M-.   ("C-h B". embark-bindings);; alternative for`describe-bindings':map vertico-map   ("C-SPC". embark-select));; good alternative: M-.:custom;; Optionally replace the key help with a completing-read interface  (prefix-help-command#'embark-prefix-help-command):preface;; The built-in embark-verbose-indicator displays actions in a buffer along with their keybindings and the first line of their docstrings.;; Users desiring a more compact display can use which-key instead with the following configuration:;; ref.: https://github.com/oantolin/embark/wiki/Additional-Configuration#use-which-key-like-a-key-menu-prompt  (defunembark-which-key-indicator ()"An embark indicator that displays keymaps using which-key.  The which-key help message will show the type and value of the  current target followed by an ellipsis if there are further  targets."    (lambda (&optionalkeymaptargetsprefix)      (if (null keymap)          (which-key--hide-popup-ignore-command)        (which-key--show-keymap         (if (eq (plist-get (car targets):type)'embark-become)"Become"           (format"Act on%s '%s'%s"                   (plist-get (car targets):type)                   (embark--truncate-target (plist-get (car targets):target))                   (if (cdr targets)"…""")))         (if prefix             (pcase (lookup-key keymap prefix'accept-default)               ((and (pred keymapp) km) km)               (_ (key-binding prefix'accept-default)))           keymap)nilnilt (lambda (binding)                     (not (string-suffix-p"-argument" (cdr binding))))))))  (defunembark-hide-which-key-indicator (fn&restargs)"Hide the which-key indicator immediately when usingthe completing-read prompter."    (which-key--hide-popup-ignore-command)    (let ((embark-indicators           (remq#'embark-which-key-indicator embark-indicators)))      (apply fn args))):config;; Show the Embark target at point via Eldoc.  You may adjust the Eldoc;; strategy, if you want to see the documentation from multiple providers.  (add-hook'eldoc-documentation-functions#'embark-eldoc-first-target)  (setq embark-indicators        '(embark-which-key-indicator          embark-highlight-indicator          embark-isearch-highlight-indicator))  (advice-add#'embark-completing-read-prompter:around#'embark-hide-which-key-indicator))

embark-consult

(use-package embark-consult:after embark:hook  (embark-collect-mode. consult-preview-at-point-mode))

lsp-snippet

(use-package lsp-snippet:ensure (:host github:repo"svaante/lsp-snippet"):demandt:after tempel eglot:config;; Initialize lsp-snippet -> tempel in eglot  (lsp-snippet-tempel-eglot-init))

marginalia

(use-package marginalia:after vertico:custom  (marginalia-annotators '(marginalia-annotators-heavy marginalia-annotators-lightnil)):hook  (vertico-mode. marginalia-mode))

nerd-icons-completion

(use-package nerd-icons-completion:after marginalia vertico:config  (nerd-icons-completion-mode):hook  (marginalia-mode. nerd-icons-completion-marginalia-setup))

nerd-icons-corfu

(use-package nerd-icons-corfu:after nerd-icons:preface  (defunmy/add-nerd-icons-formatternil    (add-to-list'corfu-margin-formatters#'nerd-icons-corfu-formatter)):hook  (corfu-mode. my/add-nerd-icons-formatter))

orderless

(use-package orderless:custom  (completion-styles '(orderless basic))  (completion-category-defaultsnil)  (completion-category-overrides '((file (styles basic partial-completion)))))

tempel

;; Configure Tempel(use-package tempel:custom;; Require trigger prefix before template name when completing.;; (tempel-trigger-prefix ">")  (tempel-path (expand-file-name"templates.eld" emacs-config-directory)):bind (("M-+". tempel-expand);; Alternative tempel-expand         ("M-*". tempel-insert):map tempel-map         ("C-SPC". tempel-next)         ("S-C-SPC". tempel-previous)):preface;; Setup completion at point  (defunmy/tempel-setup-capf ();; Add the Tempel Capf to`completion-at-point-functions'.;;`tempel-expand' only triggers on exact matches. Alternatively use;;`tempel-complete' if you want to see all matches, but then you;; should also configure`tempel-trigger-prefix', such that Tempel;; does not trigger too often when you don't expect it. NOTE: We add;;`tempel-expand' *before* the main programming mode Capf, such;; that it will be tried first.    (setq-local completion-at-point-functions                (cons#'tempel-complete                      completion-at-point-functions))):hook  ((conf-mode. my/tempel-setup-capf)   (prog-mode. my/tempel-setup-capf)   (text-mode. my/tempel-setup-capf));; Optionally make the Tempel templates available to Abbrev,;; either locally or globally.`expand-abbrev' is bound to C-x '.;; (add-hook 'prog-mode-hook #'tempel-abbrev-mode);; (global-tempel-abbrev-mode)  )