;;; $DOOMDIR/config.el -*- lexical-binding: t; -*- ;; Place your private configuration here! Remember, you do not need to run 'doom ;; sync' after modifying this file! ;; Some functionality uses this to identify you, e.g. GPG configuration, email ;; clients, file templates and snippets. It is optional. ;; (setq user-full-name "John Doe" ;; user-mail-address "john@doe.com") ;; Doom exposes five (optional) variables for controlling fonts in Doom: ;; ;; - `doom-font' -- the primary font to use ;; - `doom-variable-pitch-font' -- a non-monospace font (where applicable) ;; - `doom-big-font' -- used for `doom-big-font-mode'; use this for ;; presentations or streaming. ;; - `doom-symbol-font' -- for symbols ;; - `doom-serif-font' -- for the `fixed-pitch-serif' face ;; ;; See 'C-h v doom-font' for documentation and more examples of what they ;; accept. For example: ;; ;;(setq doom-font (font-spec :family "Fira Code" :size 12 :weight 'semi-light) ;; doom-variable-pitch-font (font-spec :family "Fira Sans" :size 13)) ;; ;; If you or Emacs can't find your font, use 'M-x describe-font' to look them ;; up, `M-x eval-region' to execute elisp code, and 'M-x doom/reload-font' to ;; refresh your font settings. If Emacs still can't find your font, it likely ;; wasn't installed correctly. Font issues are rarely Doom issues! ;; There are two ways to load a theme. Both assume the theme is installed and ;; available. You can either set `doom-theme' or manually load a theme with the ;; `load-theme' function. This is the default: (setq doom-theme 'doom-plain-dark) (custom-set-faces! '(default :background "#131313" :foreground "#FCFCFC")) (defvar my/syntax-comment "#6a6a6a") (defvar my/syntax-string "#b5bd68") (defvar my/syntax-keyword "#afd7ff") (defvar my/syntax-type "#ffd787") (defvar my/syntax-function "#d7afaf") (defun my/setup-syntax-highlighting (&rest _) "Apply a 5-color scheme to font-lock faces." (custom-set-faces! `(font-lock-comment-face :foreground ,my/syntax-comment :slant italic) `(font-lock-comment-delimiter-face :foreground ,my/syntax-comment :slant italic) `(font-lock-doc-face :foreground ,my/syntax-comment :slant italic) `(font-lock-string-face :foreground ,my/syntax-string) `(font-lock-doc-markup-face :foreground ,my/syntax-string) `(font-lock-keyword-face :foreground ,my/syntax-keyword :weight bold) `(font-lock-builtin-face :foreground ,my/syntax-keyword) `(font-lock-preprocessor-face :foreground ,my/syntax-keyword) `(font-lock-negation-char-face :foreground ,my/syntax-keyword) `(font-lock-type-face :foreground ,my/syntax-type) `(font-lock-constant-face :foreground ,my/syntax-type) `(font-lock-function-name-face :foreground ,my/syntax-function) `(font-lock-variable-name-face :foreground "#FCFCFC") `(font-lock-warning-face :foreground ,my/syntax-function :weight bold) `(font-lock-regexp-grouping-backslash :foreground ,my/syntax-function) `(font-lock-regexp-grouping-construct :foreground ,my/syntax-function))) (my/setup-syntax-highlighting) (add-hook 'doom-load-theme-hook #'my/setup-syntax-highlighting 40) ;; This determines the style of line numbers in effect. If set to `nil', line ;; numbers are disabled. For relative line numbers, set this to `relative'. (setq display-line-numbers-type 'relative) ;; If you use `org' and don't want your org files in the default location below, ;; change `org-directory'. It must be set before org loads! (setq org-directory "~/org/") ;; Keep terminal and editor typography aligned and ensure Nerd Font glyphs render. (setq doom-font (font-spec :family "FiraCode Nerd Font Mono" :size 15) doom-variable-pitch-font (font-spec :family "FiraCode Nerd Font" :size 15) doom-symbol-font (font-spec :family "FiraCode Nerd Font Mono" :size 15)) (defun my/setup-icon-font-fallback (&optional frame) "Ensure Nerd Font glyphs are available in FRAME." (with-selected-frame (or frame (selected-frame)) (when (display-graphic-p) (set-fontset-font t 'unicode "FiraCode Nerd Font Mono" nil 'append)))) (add-hook 'after-make-frame-functions #'my/setup-icon-font-fallback) (my/setup-icon-font-fallback) ;; Whenever you reconfigure a package, make sure to wrap your config in an ;; `after!' block, otherwise Doom's defaults may override your settings. E.g. ;; ;; (after! PACKAGE ;; (setq x y)) ;; ;; The exceptions to this rule: ;; ;; - Setting file/directory variables (like `org-directory') ;; - Setting variables which explicitly tell you to set them before their ;; package is loaded (see 'C-h v VARIABLE' to look up their documentation). ;; - Setting doom variables (which start with 'doom-' or '+'). ;; ;; Here are some additional functions/macros that will help you configure Doom. ;; ;; - `load!' for loading external *.el files relative to this one ;; - `use-package!' for configuring packages ;; - `after!' for running code after a package has loaded ;; - `add-load-path!' for adding directories to the `load-path', relative to ;; this file. Emacs searches the `load-path' when you load packages with ;; `require' or `use-package'. ;; - `map!' for binding new keys ;; ;; To get information about any of these functions/macros, move the cursor over ;; the highlighted symbol at press 'K' (non-evil users must press 'C-c c k'). ;; This will open documentation for it, including demos of how they are used. ;; Alternatively, use `C-h o' to look up a symbol (functions, variables, faces, ;; etc). ;; ;; You can also try 'gd' (or 'C-c c d') to jump to their definition and see how ;; they are implemented. (after! evil (require 'evil-collection)) (after! solaire-mode (solaire-global-mode -1) (defun my/neutralize-solaire-faces (&optional _frame) "Force solaire's lighter backgrounds to match the default background." (dolist (face '(solaire-default-face solaire-hl-line-face solaire-org-hide-face solaire-mode-line-face solaire-mode-line-inactive-face solaire-header-line-face solaire-header-line-inactive-face solaire-line-number-face solaire-fringe-face)) (when (facep face) (set-face-attribute face nil :background 'unspecified :inherit 'default)))) (my/neutralize-solaire-faces) (add-hook 'doom-load-theme-hook #'my/neutralize-solaire-faces 30) (add-hook 'after-make-frame-functions #'my/neutralize-solaire-faces)) (defvar my/gui-transparency 99 "Alpha background value for GUI frames (0-100).") (defun my/make-all-faces-transparent (&optional frame) "Make face backgrounds transparent in both terminal and GUI Emacs." (or frame (setq frame (selected-frame))) (if (display-graphic-p frame) ;; GUI: prefer alpha-background; keep alpha as macOS-compatible fallback. (progn (set-frame-parameter frame 'alpha-background my/gui-transparency) (set-frame-parameter frame 'alpha (cons my/gui-transparency my/gui-transparency))) ;; TTY: use terminal background (lets terminal emulator transparency show through). (progn (set-face-background 'default "unspecified-bg" frame) (mapc (lambda (face) (when (facep face) (let ((bg (face-background face nil nil))) (when (and bg (not (equal bg "unspecified-bg"))) (set-face-background face "unspecified-bg" frame))))) (face-list))))) (add-hook 'doom-load-theme-hook #'my/make-all-faces-transparent) (add-hook 'after-make-frame-functions #'my/make-all-faces-transparent) (add-hook 'window-setup-hook #'my/make-all-faces-transparent) (add-hook 'server-after-make-frame-hook #'my/make-all-faces-transparent) (add-to-list 'default-frame-alist `(alpha-background . ,my/gui-transparency)) (add-to-list 'default-frame-alist `(alpha . (,my/gui-transparency . ,my/gui-transparency))) (my/make-all-faces-transparent) (after! diff-hl (defun my/setup-diff-hl-faces () (set-face-attribute 'diff-hl-insert nil :foreground "green" :background 'unspecified) (set-face-attribute 'diff-hl-delete nil :foreground "red" :background 'unspecified) (set-face-attribute 'diff-hl-change nil :foreground "yellow" :background 'unspecified)) (my/setup-diff-hl-faces) (add-hook 'doom-load-theme-hook #'my/setup-diff-hl-faces 20) (defun my/diff-hl-hunk-text (ov) "Return the diff hunk text for overlay OV." (save-excursion (goto-char (overlay-start ov)) (let* ((line (line-number-at-pos)) (file (buffer-file-name)) (diff (when file (shell-command-to-string (format "git diff -U0 -- %s" (shell-quote-argument file)))))) (when (and diff (string-match (format "@@ [^ ]+ \\+\\([0-9]+\\)[, ].*@@\\([^@]*\\)" ) diff)) (let ((result nil)) (with-temp-buffer (insert diff) (goto-char (point-min)) (while (re-search-forward "^@@ -\\([0-9]+\\)\\(?:,\\([0-9]+\\)\\)? \\+\\([0-9]+\\)\\(?:,\\([0-9]+\\)\\)? @@.*$" nil t) (let* ((new-start (string-to-number (match-string 3))) (new-count (if (match-string 4) (string-to-number (match-string 4)) 1)) (hunk-start (match-beginning 0)) (hunk-end (or (save-excursion (when (re-search-forward "^@@ " nil t) (match-beginning 0))) (point-max)))) (when (and (>= line new-start) (< line (+ new-start (max new-count 1)))) (setq result (buffer-substring-no-properties hunk-start hunk-end)))))) result))))) (defun my/diff-hl-add-tooltips (&rest _) "Add help-echo tooltips to diff-hl overlays." (dolist (ov (overlays-in (point-min) (point-max))) (when (overlay-get ov 'diff-hl) (overlay-put ov 'help-echo (lambda (_win ov _pos) (my/diff-hl-hunk-text ov)))))) (advice-add 'diff-hl-update :after #'my/diff-hl-add-tooltips)) (after! (diff-hl magit) (add-hook 'magit-pre-refresh-hook #'diff-hl-magit-pre-refresh) (add-hook 'magit-post-refresh-hook #'diff-hl-magit-post-refresh)) (defun my/diff-hl-margin-setup (frame) (with-selected-frame frame (if (display-graphic-p) (diff-hl-margin-mode -1) (diff-hl-margin-mode +1)))) (add-hook 'after-make-frame-functions #'my/diff-hl-margin-setup) (when (daemonp) (add-hook 'server-after-make-frame-hook (lambda () (my/diff-hl-margin-setup (selected-frame))))) (defun my/yank-to-clipboard () "Yank to system clipboard via Evil's + register." (interactive) (let ((evil-this-register ?+)) (call-interactively #'evil-yank))) (defun my/yank-line-to-clipboard () "Yank current line to system clipboard via Evil's + register." (interactive) (let ((evil-this-register ?+)) (call-interactively #'evil-yank-line))) (map! :leader :desc "Yank to system clipboard" "y" #'my/yank-to-clipboard :desc "Yank line to system clipboard" "Y" #'my/yank-line-to-clipboard) (defun my/setup-selection-face () (unless (display-graphic-p) (set-face-attribute 'region nil :background "brightblack" :foreground "white" :extend t))) (add-hook 'doom-load-theme-hook #'my/setup-selection-face 10) (after! evil-goggles (set-face-attribute 'evil-goggles-default-face nil :background "brightblack" :foreground "white")) (setq scroll-margin 8) (remove-hook 'after-change-major-mode-hook #'doom-highlight-non-default-indentation-h) (after! which-key (setq which-key-idle-delay 0.5)) (add-function :after after-focus-change-function (lambda () (unless (frame-focus-state) (save-some-buffers t)))) (defun my/dashboard-widget-loaded-centered () (when doom-init-time (let* ((msg (doom-display-benchmark-h 'return)) (width (with-current-buffer (doom-fallback-buffer) (window-width (get-buffer-window (current-buffer))))) (pad (max 0 (/ (- width (length msg)) 2)))) (insert "\n" (make-string pad ?\s) (propertize msg 'face '+dashboard-loaded) "\n")))) (setq +dashboard-functions '(+dashboard-widget-banner my/dashboard-widget-loaded-centered)) (setq org-startup-with-inline-images t)