overhaul of emacs config with only use-package
This commit is contained in:
Emmet
@@ -4,7 +4,7 @@
|
|||||||
(pkgs.emacsWithPackagesFromUsePackage {
|
(pkgs.emacsWithPackagesFromUsePackage {
|
||||||
config = ./init.el;
|
config = ./init.el;
|
||||||
package = pkgs.emacs-pgtk;
|
package = pkgs.emacs-pgtk;
|
||||||
alwaysEnsure = true;
|
alwaysEnsure = false;
|
||||||
extraEmacsPackages = epkgs: with epkgs; [
|
extraEmacsPackages = epkgs: with epkgs; [
|
||||||
org-modern olivetti
|
org-modern olivetti
|
||||||
command-log-mode
|
command-log-mode
|
||||||
@@ -17,6 +17,7 @@
|
|||||||
projectile treemacs treemacs-projectile
|
projectile treemacs treemacs-projectile
|
||||||
treemacs-evil treemacs-nerd-icons
|
treemacs-evil treemacs-nerd-icons
|
||||||
treesit-grammars.with-all-grammars
|
treesit-grammars.with-all-grammars
|
||||||
|
git-timemachine wgrep
|
||||||
magit magit-file-icons magit-todos
|
magit magit-file-icons magit-todos
|
||||||
undo-fu undo-fu-session
|
undo-fu undo-fu-session
|
||||||
org-roam org-node org-node-fakeroam
|
org-roam org-node org-node-fakeroam
|
||||||
|
|||||||
@@ -2,7 +2,9 @@
|
|||||||
;;
|
;;
|
||||||
;; Author: Emmet K <https://gitlab.com/librephoenix>
|
;; Author: Emmet K <https://gitlab.com/librephoenix>
|
||||||
;; Maintainer: Emmet K <https://gitlab.com/librephoenix>
|
;; Maintainer: Emmet K <https://gitlab.com/librephoenix>
|
||||||
;; Source: https://github.com/doomemacs/themes
|
;; Source: https://github.com/librephoenix/nixos-config
|
||||||
|
;; Source: https://gitlab.com/librephoenix/nixos-config
|
||||||
|
;; Source: https://codeberg.org/librephoenix/nixos-config
|
||||||
;;
|
;;
|
||||||
;;; Commentary:
|
;;; Commentary:
|
||||||
;;
|
;;
|
||||||
@@ -10,130 +12,146 @@
|
|||||||
;;
|
;;
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
;; Startup hook for mainly gui related things
|
;; organize everything with use-package
|
||||||
(add-hook 'emacs-startup-hook #'(lambda ()
|
(require 'use-package)
|
||||||
;; No startup screen
|
|
||||||
(setq inhibit-startup-message t)
|
|
||||||
|
|
||||||
;; Transparent background
|
;; use-package-ception
|
||||||
(set-frame-parameter nil 'alpha-background 85)
|
(use-package use-package
|
||||||
(add-to-list 'default-frame-alist '(alpha-background . 85))
|
:demand t
|
||||||
(add-to-list 'default-frame-alist '(inhibit-double-buffering . t))
|
:custom
|
||||||
|
(use-package-always-ensure nil)
|
||||||
|
(usepackage-always-defer t))
|
||||||
|
|
||||||
;; I want declarative config, no custom
|
(use-package emacs
|
||||||
(setq custom-file "/dev/null")
|
:config
|
||||||
|
;; No startup screen
|
||||||
|
(setq inhibit-startup-message t)
|
||||||
|
|
||||||
|
;; Transparent background
|
||||||
|
(set-frame-parameter nil 'alpha-background 85)
|
||||||
|
(add-to-list 'default-frame-alist '(alpha-background . 85))
|
||||||
|
(add-to-list 'default-frame-alist '(inhibit-double-buffering . t))
|
||||||
|
|
||||||
|
;; I want declarative config, no custom
|
||||||
|
(setq custom-file "/dev/null")
|
||||||
|
|
||||||
|
;; Disable the menu bar
|
||||||
|
(menu-bar-mode -1)
|
||||||
|
|
||||||
|
;; Disable visible scrollbar
|
||||||
|
(scroll-bar-mode -1)
|
||||||
|
|
||||||
|
;; Disable the toolbar
|
||||||
|
(tool-bar-mode -1)
|
||||||
|
|
||||||
|
;; Disable tooltips
|
||||||
|
(tooltip-mode -1)
|
||||||
|
|
||||||
|
;; Breathing room
|
||||||
|
(set-fringe-mode 10)
|
||||||
|
|
||||||
|
;; No blinking
|
||||||
|
(blink-cursor-mode 0)
|
||||||
|
|
||||||
|
;; Highlight current line
|
||||||
|
(global-hl-line-mode)
|
||||||
|
|
||||||
|
;; Bigger text
|
||||||
|
(set-face-attribute 'default nil :height 150)
|
||||||
|
|
||||||
;; Disable the menu bar
|
;; Add frame borders and window dividers
|
||||||
(menu-bar-mode -1)
|
(modify-all-frames-parameters
|
||||||
|
'((right-divider-width . 20)
|
||||||
|
(left-divider-width . 20)
|
||||||
|
(internal-border-width . 20)))
|
||||||
|
(set-face-background 'fringe (face-attribute 'default :background))
|
||||||
|
|
||||||
|
;; Fira and glyphs
|
||||||
|
(when (window-system)
|
||||||
|
(set-frame-font "FiraCode Nerd Font"))
|
||||||
|
(let ((alist '((33 . ".\\(?:\\(?:==\\|!!\\)\\|[!=]\\)")
|
||||||
|
(35 . ".\\(?:###\\|##\\|_(\\|[#(?[_{]\\)")
|
||||||
|
(36 . ".\\(?:>\\)")
|
||||||
|
(37 . ".\\(?:\\(?:%%\\)\\|%\\)")
|
||||||
|
(38 . ".\\(?:\\(?:&&\\)\\|&\\)")
|
||||||
|
(42 . ".\\(?:\\(?:\\*\\*/\\)\\|\\(?:\\*[*/]\\)\\|[*/>]\\)")
|
||||||
|
(43 . ".\\(?:\\(?:\\+\\+\\)\\|[+>]\\)")
|
||||||
|
(45 . ".\\(?:\\(?:-[>-]\\|<<\\|>>\\)\\|[<>}~-]\\)")
|
||||||
|
(46 . ".\\(?:\\(?:\\.[.<]\\)\\|[.=-]\\)")
|
||||||
|
(47 . ".\\(?:\\(?:\\*\\*\\|//\\|==\\)\\|[*/=>]\\)")
|
||||||
|
(48 . ".\\(?:x[a-zA-Z]\\)")
|
||||||
|
(58 . ".\\(?:::\\|[:=]\\)")
|
||||||
|
(59 . ".\\(?:;;\\|;\\)")
|
||||||
|
(60 . ".\\(?:\\(?:!--\\)\\|\\(?:~~\\|->\\|\\$>\\|\\*>\\|\\+>\\|--\\|<[<=-]\\|=[<=>]\\||>\\)\\|[*$+~/<=>|-]\\)")
|
||||||
|
(61 . ".\\(?:\\(?:/=\\|:=\\|<<\\|=[=>]\\|>>\\)\\|[<=>~]\\)")
|
||||||
|
(62 . ".\\(?:\\(?:=>\\|>[=>-]\\)\\|[=>-]\\)")
|
||||||
|
(63 . ".\\(?:\\(\\?\\?\\)\\|[:=?]\\)")
|
||||||
|
(91 . ".\\(?:]\\)")
|
||||||
|
(92 . ".\\(?:\\(?:\\\\\\\\\\)\\|\\\\\\)")
|
||||||
|
(94 . ".\\(?:=\\)")
|
||||||
|
(119 . ".\\(?:ww\\)")
|
||||||
|
(123 . ".\\(?:-\\)")
|
||||||
|
(124 . ".\\(?:\\(?:|[=|]\\)\\|[=>|]\\)")
|
||||||
|
(126 . ".\\(?:~>\\|~~\\|[>=@~-]\\)")
|
||||||
|
)))
|
||||||
|
(dolist (char-regexp alist)
|
||||||
|
(set-char-table-range composition-function-table (car char-regexp)
|
||||||
|
`([,(cdr char-regexp) 0 font-shape-gstring]))))
|
||||||
|
|
||||||
;; Disable visible scrollbar
|
(dashboard-setup-startup-hook)
|
||||||
(scroll-bar-mode -1)
|
|
||||||
|
|
||||||
;; Disable the toolbar
|
;; Garbage collection threshold
|
||||||
(tool-bar-mode -1)
|
(setq gc-cons-threshold 120000)
|
||||||
|
(add-hook 'focus-out-hook 'garbage-collect)
|
||||||
;; Disable tooltips
|
|
||||||
(tooltip-mode -1)
|
;; Auto revert
|
||||||
|
(global-auto-revert-mode 1)
|
||||||
;; Breathing room
|
(setq auto-revert-use-notify t
|
||||||
(set-fringe-mode 10)
|
revert-without-query t)
|
||||||
|
|
||||||
;; No blinking
|
;; camelCase and PascalCase
|
||||||
(blink-cursor-mode 0)
|
(global-subword-mode 1)
|
||||||
|
|
||||||
;; Highlight current line
|
;; ripgrep as grep
|
||||||
(global-hl-line-mode)
|
(setq grep-command "rg -nS --no-heading "
|
||||||
|
grep-use-null-device nil)
|
||||||
;; Bigger text
|
|
||||||
(set-face-attribute 'default nil :height 150)
|
;; "y" or "n" instead of "yes" or "no"
|
||||||
|
(setq use-short-answers t)
|
||||||
;; Fira and glyphs
|
|
||||||
(when (window-system)
|
;; Enable indentation+completion using TAB
|
||||||
(set-frame-font "FiraCode Nerd Font"))
|
(setq tab-always-indent 'complete)
|
||||||
(let ((alist '((33 . ".\\(?:\\(?:==\\|!!\\)\\|[!=]\\)")
|
|
||||||
(35 . ".\\(?:###\\|##\\|_(\\|[#(?[_{]\\)")
|
;; Make ESC quit prompts
|
||||||
(36 . ".\\(?:>\\)")
|
(global-set-key (kbd "<escape>") 'keyboard-escape-quit)
|
||||||
(37 . ".\\(?:\\(?:%%\\)\\|%\\)")
|
|
||||||
(38 . ".\\(?:\\(?:&&\\)\\|&\\)")
|
;; Line numbers
|
||||||
(42 . ".\\(?:\\(?:\\*\\*/\\)\\|\\(?:\\*[*/]\\)\\|[*/>]\\)")
|
(setq display-line-numbers-type t
|
||||||
(43 . ".\\(?:\\(?:\\+\\+\\)\\|[+>]\\)")
|
line-move-visual t)
|
||||||
(45 . ".\\(?:\\(?:-[>-]\\|<<\\|>>\\)\\|[<>}~-]\\)")
|
(add-hook 'prog-mode-hook 'display-line-numbers-mode)
|
||||||
(46 . ".\\(?:\\(?:\\.[.<]\\)\\|[.=-]\\)")
|
|
||||||
(47 . ".\\(?:\\(?:\\*\\*\\|//\\|==\\)\\|[*/=>]\\)")
|
;; Fix stupid backup confirmations
|
||||||
(48 . ".\\(?:x[a-zA-Z]\\)")
|
(setq backup-directory-alist '("." "~/.emacs.d/cache/backups"))
|
||||||
(58 . ".\\(?:::\\|[:=]\\)")
|
(setq tramp-auto-save-directory "/dev/null"))
|
||||||
(59 . ".\\(?:;;\\|;\\)")
|
|
||||||
(60 . ".\\(?:\\(?:!--\\)\\|\\(?:~~\\|->\\|\\$>\\|\\*>\\|\\+>\\|--\\|<[<=-]\\|=[<=>]\\||>\\)\\|[*$+~/<=>|-]\\)")
|
|
||||||
(61 . ".\\(?:\\(?:/=\\|:=\\|<<\\|=[=>]\\|>>\\)\\|[<=>~]\\)")
|
|
||||||
(62 . ".\\(?:\\(?:=>\\|>[=>-]\\)\\|[=>-]\\)")
|
|
||||||
(63 . ".\\(?:\\(\\?\\?\\)\\|[:=?]\\)")
|
|
||||||
(91 . ".\\(?:]\\)")
|
|
||||||
(92 . ".\\(?:\\(?:\\\\\\\\\\)\\|\\\\\\)")
|
|
||||||
(94 . ".\\(?:=\\)")
|
|
||||||
(119 . ".\\(?:ww\\)")
|
|
||||||
(123 . ".\\(?:-\\)")
|
|
||||||
(124 . ".\\(?:\\(?:|[=|]\\)\\|[=>|]\\)")
|
|
||||||
(126 . ".\\(?:~>\\|~~\\|[>=@~-]\\)")
|
|
||||||
)))
|
|
||||||
(dolist (char-regexp alist)
|
|
||||||
(set-char-table-range composition-function-table (car char-regexp)
|
|
||||||
`([,(cdr char-regexp) 0 font-shape-gstring])))
|
|
||||||
|
|
||||||
(dashboard-setup-startup-hook))
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
))
|
|
||||||
|
|
||||||
|
|
||||||
(add-hook 'after-init-hook #'(lambda ()
|
|
||||||
;; Garbage collection threshold
|
|
||||||
(setq gc-cons-threshold 120000)
|
|
||||||
(add-hook 'focus-out-hook 'garbage-collect)
|
|
||||||
|
|
||||||
;; Auto revert
|
|
||||||
(global-auto-revert-mode 1)
|
|
||||||
(setq auto-revert-use-notify t
|
|
||||||
revert-without-query t)
|
|
||||||
|
|
||||||
;; camelCase and PascalCase
|
|
||||||
(global-subword-mode 1)
|
|
||||||
|
|
||||||
;; ripgrep as grep
|
|
||||||
(setq grep-command "rg -nS --no-heading "
|
|
||||||
grep-use-null-device nil)
|
|
||||||
|
|
||||||
;; "y" or "n" instead of "yes" or "no"
|
|
||||||
(setq use-short-answers t)
|
|
||||||
|
|
||||||
;; Enable indentation+completion using TAB
|
|
||||||
(setq tab-always-indent 'complete)
|
|
||||||
|
|
||||||
;; Make ESC quit prompts
|
|
||||||
(global-set-key (kbd "<escape>") 'keyboard-escape-quit)
|
|
||||||
|
|
||||||
;; Mouse & Smooth Scroll
|
|
||||||
(setq scroll-step 1
|
|
||||||
scroll-margin 0
|
|
||||||
scroll-conservatively 101
|
|
||||||
scroll-preserve-screen-position nil
|
|
||||||
redisplay-skip-fontification-on-input t)
|
|
||||||
(pixel-scroll-precision-mode 1)
|
|
||||||
|
|
||||||
(require 'ultra-scroll)
|
|
||||||
(ultra-scroll-mode 1)
|
|
||||||
|
|
||||||
;; Line numbers
|
|
||||||
(setq display-line-numbers-type t
|
|
||||||
line-move-visual t)
|
|
||||||
(add-hook 'prog-mode-hook 'display-line-numbers-mode)
|
|
||||||
|
|
||||||
;; Fix stupid backup confirmations
|
|
||||||
(setq backup-directory-alist '("." "~/.emacs.d/cache/backups"))
|
|
||||||
(setq tramp-auto-save-directory "/dev/null")))
|
|
||||||
|
|
||||||
;; Packages
|
;; Packages
|
||||||
|
|
||||||
|
(use-package line-wrapping-and-numbers
|
||||||
|
:load-path "./lib"
|
||||||
|
:after (org markdown git-timemachine))
|
||||||
|
|
||||||
|
(use-package ultra-scroll
|
||||||
|
:init
|
||||||
|
;; Mouse & Smooth Scroll
|
||||||
|
(setq scroll-step 1
|
||||||
|
scroll-margin 0
|
||||||
|
scroll-conservatively 101
|
||||||
|
scroll-preserve-screen-position nil
|
||||||
|
redisplay-skip-fontification-on-input t)
|
||||||
|
(pixel-scroll-precision-mode 1)
|
||||||
|
:config
|
||||||
|
(ultra-scroll-mode 1))
|
||||||
|
|
||||||
;; Magit
|
;; Magit
|
||||||
(use-package magit
|
(use-package magit
|
||||||
:config
|
:config
|
||||||
@@ -141,25 +159,44 @@
|
|||||||
(setq magit-bury-buffer-function 'magit-restore-window-configuration)
|
(setq magit-bury-buffer-function 'magit-restore-window-configuration)
|
||||||
(add-hook 'git-commit-mode-hook 'evil-insert-state))
|
(add-hook 'git-commit-mode-hook 'evil-insert-state))
|
||||||
|
|
||||||
|
(use-package git-timemachine)
|
||||||
|
|
||||||
|
(use-package magit-file-icons
|
||||||
|
:after (magit nerd-icons)
|
||||||
|
:init
|
||||||
|
(magit-file-icons-mode 1)
|
||||||
|
:custom
|
||||||
|
(magit-file-icons-enable-diff-file-section-icons t)
|
||||||
|
(magit-file-icons-enable-untracked-icons t)
|
||||||
|
(magit-file-icons-enable-diffstat-icons t))
|
||||||
|
|
||||||
|
(use-package magit-todos
|
||||||
|
:after (magit)
|
||||||
|
:config
|
||||||
|
(setq magit-todos-keywords-list '("TODO" "FIXME" "HACK" "REVIEW" "DEPRECATED" "BUG"))
|
||||||
|
(setq magit-todos-keyword-suffix "\\(?:[([][^])]+[])]\\)?.")
|
||||||
|
(magit-todos-mode 1))
|
||||||
|
|
||||||
;; Projectile
|
;; Projectile
|
||||||
(use-package projectile
|
(use-package projectile
|
||||||
:init
|
:init
|
||||||
(projectile-mode +1))
|
(projectile-mode +1))
|
||||||
|
|
||||||
;; Enable vim
|
;; Being able to undo is nice...
|
||||||
(setq evil-want-keybinding nil)
|
(use-package undo-fu)
|
||||||
|
|
||||||
(use-package undo-fu
|
|
||||||
:ensure t)
|
|
||||||
|
|
||||||
(use-package undo-fu-session
|
(use-package undo-fu-session
|
||||||
:ensure t
|
:after undo-fu
|
||||||
:config
|
:config
|
||||||
(global-undo-fu-session-mode))
|
(global-undo-fu-session-mode))
|
||||||
|
|
||||||
|
;; Muahahahahaha..
|
||||||
(use-package evil
|
(use-package evil
|
||||||
:init
|
:after (undo-fu undo-fu-session)
|
||||||
(setq evil-want-keybinding nil)
|
:custom
|
||||||
|
(evil-want-keybinding nil)
|
||||||
|
(evil-respect-visual-line-mode t)
|
||||||
|
(evil-undo-system 'undo-fu)
|
||||||
:config
|
:config
|
||||||
(evil-set-leader nil (kbd "C-SPC"))
|
(evil-set-leader nil (kbd "C-SPC"))
|
||||||
(evil-set-leader 'normal (kbd "SPC"))
|
(evil-set-leader 'normal (kbd "SPC"))
|
||||||
@@ -167,31 +204,27 @@
|
|||||||
(setq evil-respect-visual-line-mode t)
|
(setq evil-respect-visual-line-mode t)
|
||||||
(setq evil-undo-system 'undo-fu)
|
(setq evil-undo-system 'undo-fu)
|
||||||
(setq evil-redo-function 'undo-fu-only-redo)
|
(setq evil-redo-function 'undo-fu-only-redo)
|
||||||
|
(define-key evil-motion-state-map (kbd "RET") nil)
|
||||||
(evil-mode 1))
|
(evil-mode 1))
|
||||||
|
|
||||||
(with-eval-after-load 'evil-maps
|
|
||||||
(define-key evil-motion-state-map (kbd "RET") nil))
|
|
||||||
|
|
||||||
(with-eval-after-load 'org
|
|
||||||
(setq org-return-follows-link t)
|
|
||||||
(setf (cdr (assoc 'file org-link-frame-setup)) 'find-file))
|
|
||||||
|
|
||||||
(use-package evil-collection
|
(use-package evil-collection
|
||||||
:init
|
:after (evil)
|
||||||
(setq evil-want-keybinding nil)
|
:custom
|
||||||
|
(evil-want-keybinding nil)
|
||||||
:config
|
:config
|
||||||
(evil-collection-init)
|
(evil-collection-init)
|
||||||
|
|
||||||
;; Visual mode keybinds
|
;; Visual mode keybinds
|
||||||
(evil-define-key 'motion 'global (kbd "j") 'evil-next-visual-line)
|
(evil-define-key 'motion 'global (kbd "j") 'evil-next-visual-line)
|
||||||
(evil-define-key 'motion 'global (kbd "k") 'evil-previous-visual-line)
|
(evil-define-key 'motion 'global (kbd "k") 'evil-previous-visual-line)
|
||||||
|
|
||||||
;; File and buffer keybinds
|
;; File and buffer keybinds
|
||||||
(evil-define-key 'motion 'global (kbd "<leader>.") 'find-file)
|
(evil-define-key 'motion 'global (kbd "<leader>.") 'find-file)
|
||||||
(evil-define-key 'motion 'global (kbd "<leader>bi") 'ibuffer)
|
(evil-define-key 'motion 'global (kbd "<leader>bi") 'ibuffer)
|
||||||
(evil-define-key 'motion 'global (kbd "<leader>bd") 'evil-delete-buffer)
|
(evil-define-key 'motion 'global (kbd "<leader>bd") 'evil-delete-buffer)
|
||||||
(evil-define-key 'motion 'global (kbd "<leader>bn") 'next-buffer)
|
(evil-define-key 'motion 'global (kbd "<leader>bn") 'next-buffer)
|
||||||
(evil-define-key 'motion 'global (kbd "<leader>bp") 'previous-buffer)
|
(evil-define-key 'motion 'global (kbd "<leader>bp") 'previous-buffer)
|
||||||
|
|
||||||
;; based on http://emacsredux.com/blog/2013/04/03/delete-file-and-buffer/
|
;; based on http://emacsredux.com/blog/2013/04/03/delete-file-and-buffer/
|
||||||
(defun delete-file-and-buffer ()
|
(defun delete-file-and-buffer ()
|
||||||
"Kill the current buffer and deletes the file it is visiting."
|
"Kill the current buffer and deletes the file it is visiting."
|
||||||
@@ -206,20 +239,21 @@
|
|||||||
(message "Not a file visiting buffer!"))))
|
(message "Not a file visiting buffer!"))))
|
||||||
(evil-define-key 'motion 'global (kbd "<leader>fd") 'delete-file-and-buffer)
|
(evil-define-key 'motion 'global (kbd "<leader>fd") 'delete-file-and-buffer)
|
||||||
|
|
||||||
;; Project keybinds
|
;; Project keybinds
|
||||||
(evil-define-key 'motion 'global (kbd "<leader>pp") 'projectile-switch-project)
|
(evil-define-key 'motion 'global (kbd "<leader>pp") 'projectile-switch-project)
|
||||||
(evil-define-key 'motion 'global (kbd "<leader>pf") 'projectile-find-file)
|
(evil-define-key 'motion 'global (kbd "<leader>pf") 'projectile-find-file)
|
||||||
(evil-define-key 'motion 'global (kbd "<leader>pa") 'projectile-add-known-project)
|
(evil-define-key 'motion 'global (kbd "<leader>pa") 'projectile-add-known-project)
|
||||||
(evil-define-key 'motion 'global (kbd "<leader>/") 'projectile-grep)
|
(evil-define-key 'motion 'global (kbd "<leader>/") 'projectile-grep)
|
||||||
(evil-define-key 'motion 'global (kbd "<leader>gg") 'magit-status)
|
(evil-define-key 'motion 'global (kbd "<leader>gg") 'magit-status)
|
||||||
|
(evil-define-key 'motion 'global (kbd "<leader>gt") 'git-timemachine-toggle)
|
||||||
|
|
||||||
;; Describe keybinds
|
;; Describe keybinds
|
||||||
(evil-define-key 'motion 'global (kbd "<leader>hv") 'describe-variable)
|
(evil-define-key 'motion 'global (kbd "<leader>hv") 'describe-variable)
|
||||||
(evil-define-key 'motion 'global (kbd "<leader>hf") 'describe-function)
|
(evil-define-key 'motion 'global (kbd "<leader>hf") 'describe-function)
|
||||||
(evil-define-key 'motion 'global (kbd "<leader>hk") 'describe-key)
|
(evil-define-key 'motion 'global (kbd "<leader>hk") 'describe-key)
|
||||||
(evil-define-key 'motion 'global (kbd "<leader>hF") 'describe-face)
|
(evil-define-key 'motion 'global (kbd "<leader>hF") 'describe-face)
|
||||||
|
|
||||||
;; Window keybinds
|
;; Window keybinds
|
||||||
(evil-define-key 'motion 'global (kbd "<leader>ws") 'evil-window-split)
|
(evil-define-key 'motion 'global (kbd "<leader>ws") 'evil-window-split)
|
||||||
(evil-define-key 'motion 'global (kbd "<leader>wv") 'evil-window-vsplit)
|
(evil-define-key 'motion 'global (kbd "<leader>wv") 'evil-window-vsplit)
|
||||||
(defun evil-window-split-follow ()
|
(defun evil-window-split-follow ()
|
||||||
@@ -239,7 +273,8 @@
|
|||||||
(evil-define-key 'motion 'global (kbd "<leader>wh") 'evil-window-left)
|
(evil-define-key 'motion 'global (kbd "<leader>wh") 'evil-window-left)
|
||||||
(evil-define-key 'motion 'global (kbd "<leader>wl") 'evil-window-right)
|
(evil-define-key 'motion 'global (kbd "<leader>wl") 'evil-window-right)
|
||||||
|
|
||||||
|
(evil-define-key 'insert org-mode-map (kbd "<tab>") 'org-demote-subtree)
|
||||||
|
(evil-define-key 'insert org-mode-map (kbd "<backtab>") 'org-promote-subtree)
|
||||||
(evil-define-key 'motion org-mode-map (kbd "<leader>mll") 'org-insert-link)
|
(evil-define-key 'motion org-mode-map (kbd "<leader>mll") 'org-insert-link)
|
||||||
(define-key magit-mode-map (kbd "SPC") nil)
|
(define-key magit-mode-map (kbd "SPC") nil)
|
||||||
|
|
||||||
@@ -248,17 +283,16 @@
|
|||||||
(global-set-key (kbd "C-h") 'evil-window-left)
|
(global-set-key (kbd "C-h") 'evil-window-left)
|
||||||
(global-set-key (kbd "C-l") 'evil-window-right))
|
(global-set-key (kbd "C-l") 'evil-window-right))
|
||||||
|
|
||||||
(require 'sudo-edit)
|
(use-package sudo-edit
|
||||||
(setq sudo-edit-local-method "doas")
|
:after (evil)
|
||||||
(setq auth-sources '("~/.authinfo.gpg"))
|
:custom
|
||||||
(setq auth-source-save-behavior "ask")
|
(sudo-edit-local-method "doas")
|
||||||
(sudo-edit-indicator-mode)
|
(auth-sources '("~/.authinfo.gpg"))
|
||||||
(evil-define-key 'normal 'global (kbd "<leader>fU") 'sudo-edit)
|
(auth-source-save-behavior "ask")
|
||||||
(evil-define-key 'normal 'global (kbd "<leader>fu") 'sudo-edit-find-file)
|
:config
|
||||||
|
(sudo-edit-indicator-mode)
|
||||||
(require 'lsp-mode)
|
(evil-define-key 'normal 'global (kbd "<leader>fU") 'sudo-edit)
|
||||||
(add-hook 'gdscript-ts-mode-hook #'lsp-deferred)
|
(evil-define-key 'normal 'global (kbd "<leader>fu") 'sudo-edit-find-file))
|
||||||
(setq lsp-completion-provider :none)
|
|
||||||
|
|
||||||
(use-package flycheck
|
(use-package flycheck
|
||||||
:init
|
:init
|
||||||
@@ -266,22 +300,40 @@
|
|||||||
|
|
||||||
(use-package treemacs
|
(use-package treemacs
|
||||||
:config
|
:config
|
||||||
(add-hook 'projectile-after-switch-project-hook 'treemacs-add-and-display-current-project-exclusively))
|
(defun treemacs-display-current-project-exclusively-silently ()
|
||||||
|
"Display current project exclusively in treemacs without switching to treemacs buffer."
|
||||||
|
(let ((buffer (current-buffer)))
|
||||||
|
(treemacs-add-and-display-current-project-exclusively)
|
||||||
|
(switch-to-buffer buffer)))
|
||||||
|
(add-hook 'projectile-after-switch-project-hook 'treemacs-display-current-project-exclusively-silently))
|
||||||
|
|
||||||
(use-package treemacs-evil)
|
(use-package treemacs-evil
|
||||||
|
:after (treemacs))
|
||||||
|
|
||||||
(use-package lsp-mode
|
(use-package lsp-mode
|
||||||
:init
|
:custom
|
||||||
;; set prefix for lsp-command-keymap (few alternatives - "C-l", "C-c l")
|
(lsp-keymap-prefix (kbd "SPC l"))
|
||||||
(setq lsp-keymap-prefix (kbd "SPC l"))
|
(setq lsp-completion-provider :none)
|
||||||
:hook (;; replace XXX-mode with concrete major-mode(e. g. python-mode)
|
:hook ((gdscript-mode . lsp-deferred)
|
||||||
(gdscript-mode . lsp)
|
(gdscript-ts-mode . lsp-deferred))
|
||||||
(gdscript-ts-mode . lsp))
|
|
||||||
:commands lsp-deferred)
|
:commands lsp-deferred)
|
||||||
|
|
||||||
(use-package lsp-ui :commands lsp-ui-mode)
|
(use-package lsp-ui :commands lsp-ui-mode)
|
||||||
(use-package lsp-treemacs :commands lsp-treemacs-errors-list)
|
(use-package lsp-treemacs :commands lsp-treemacs-errors-list)
|
||||||
|
|
||||||
|
(use-package treesit
|
||||||
|
:config
|
||||||
|
(treesit-major-mode-setup))
|
||||||
|
|
||||||
|
;; direnv
|
||||||
|
(use-package direnv
|
||||||
|
:init
|
||||||
|
(direnv-mode))
|
||||||
|
|
||||||
|
;; command-log-mode
|
||||||
|
(use-package command-log-mode)
|
||||||
|
|
||||||
|
;; Enable corfu
|
||||||
(use-package corfu
|
(use-package corfu
|
||||||
:custom
|
:custom
|
||||||
(corfu-cycle t) ;; Enable cycling for `corfu-next/previous'
|
(corfu-cycle t) ;; Enable cycling for `corfu-next/previous'
|
||||||
@@ -299,54 +351,63 @@
|
|||||||
:init
|
:init
|
||||||
(global-corfu-mode 1))
|
(global-corfu-mode 1))
|
||||||
|
|
||||||
;; I am a nerd
|
;; Enable vertico
|
||||||
(use-package nerd-icons
|
(use-package vertico
|
||||||
:ensure t
|
|
||||||
:config
|
|
||||||
(require 'treemacs-nerd-icons)
|
|
||||||
(treemacs-load-theme "nerd-icons")
|
|
||||||
(require 'nerd-icons-dired)
|
|
||||||
(add-hook 'dired-mode-hook #'nerd-icons-dired-mode)
|
|
||||||
(require 'nerd-icons-completion)
|
|
||||||
(nerd-icons-completion-mode)
|
|
||||||
(require 'nerd-icons-corfu)
|
|
||||||
(add-to-list 'corfu-margin-formatters #'nerd-icons-corfu-formatter))
|
|
||||||
|
|
||||||
(use-package magit-file-icons
|
|
||||||
:ensure t
|
|
||||||
:after magit
|
|
||||||
:init
|
|
||||||
(magit-file-icons-mode 1)
|
|
||||||
:custom
|
:custom
|
||||||
;; These are the default values:
|
(vertico-scroll-margin 0) ;; Different scroll margin
|
||||||
(magit-file-icons-enable-diff-file-section-icons t)
|
(vertico-count 20) ;; Show more candidates
|
||||||
(magit-file-icons-enable-untracked-icons t)
|
(vertico-resize nil) ;; Grow and shrink the Vertico minibuffer
|
||||||
(magit-file-icons-enable-diffstat-icons t))
|
(vertico-cycle t) ;; Enable cycling for `vertico-next/previous'
|
||||||
|
:init
|
||||||
|
(vertico-mode))
|
||||||
|
|
||||||
(use-package magit-todos
|
;; I am a nerd
|
||||||
:ensure t
|
(use-package nerd-icons)
|
||||||
|
|
||||||
|
(use-package treemacs-nerd-icons
|
||||||
|
:after (nerd-icons treemacs)
|
||||||
:config
|
:config
|
||||||
(setq magit-todos-keywords-list '("TODO" "FIXME" "HACK" "REVIEW" "DEPRECATED" "BUG"))
|
(treemacs-load-theme "nerd-icons"))
|
||||||
(setq magit-todos-keyword-suffix "\\(?:[([][^])]+[])]\\)?.")
|
|
||||||
(magit-todos-mode 1))
|
(use-package nerd-icons-dired
|
||||||
|
:after (nerd-icons dired)
|
||||||
|
:config
|
||||||
|
(add-hook 'dired-mode-hook #'nerd-icons-dired-mode))
|
||||||
|
|
||||||
|
(use-package nerd-icons-completion
|
||||||
|
:after (nerd-icons)
|
||||||
|
:config
|
||||||
|
(nerd-icons-completion-mode))
|
||||||
|
|
||||||
|
(use-package nerd-icons-corfu
|
||||||
|
:after (nerd-icons corfu)
|
||||||
|
:config
|
||||||
|
(add-to-list 'corfu-margin-formatters #'nerd-icons-corfu-formatter))
|
||||||
|
|
||||||
;; Theme and modeline
|
;; Theme and modeline
|
||||||
(use-package doom-themes
|
(use-package doom-themes
|
||||||
:ensure t
|
|
||||||
:config
|
:config
|
||||||
(setq doom-themes-enable-bold t
|
(setq doom-themes-enable-bold t
|
||||||
doom-themes-enable-italic t
|
doom-themes-enable-italic t
|
||||||
custom-theme-directory "~/.config/emacs/themes")
|
custom-theme-directory "~/.config/emacs/themes")
|
||||||
(load-theme 'doom-stylix t))
|
(load-theme 'doom-stylix t)
|
||||||
|
;; Heading styles
|
||||||
|
(set-face-attribute 'outline-1 nil :height 195 :foreground (nth 1 (nth 14 doom-themes--colors)))
|
||||||
|
(set-face-attribute 'outline-2 nil :height 188 :foreground (nth 1 (nth 15 doom-themes--colors)))
|
||||||
|
(set-face-attribute 'outline-3 nil :height 180 :foreground (nth 1 (nth 19 doom-themes--colors)))
|
||||||
|
(set-face-attribute 'outline-4 nil :height 173 :foreground (nth 1 (nth 23 doom-themes--colors)))
|
||||||
|
(set-face-attribute 'outline-5 nil :height 173 :foreground (nth 1 (nth 24 doom-themes--colors)))
|
||||||
|
(set-face-attribute 'outline-6 nil :height 165 :foreground (nth 1 (nth 16 doom-themes--colors)))
|
||||||
|
(set-face-attribute 'outline-7 nil :height 160 :foreground (nth 1 (nth 18 doom-themes--colors)))
|
||||||
|
(set-face-attribute 'outline-8 nil :height 155 :foreground (nth 1 (nth 11 doom-themes--colors))))
|
||||||
|
|
||||||
(use-package doom-modeline
|
(use-package doom-modeline
|
||||||
:ensure t
|
|
||||||
:init (doom-modeline-mode 1)
|
:init (doom-modeline-mode 1)
|
||||||
:custom ((doom-modeline-height 15)))
|
:custom ((doom-modeline-height 15)))
|
||||||
|
|
||||||
;; Dashboard
|
;; Dashboard
|
||||||
(use-package dashboard
|
(use-package dashboard
|
||||||
:ensure t
|
:after (nerd-icons)
|
||||||
:config
|
:config
|
||||||
(setq dashboard-banner-logo-title "Welcome to Nix Emacs")
|
(setq dashboard-banner-logo-title "Welcome to Nix Emacs")
|
||||||
(setq dashboard-startup-banner 2)
|
(setq dashboard-startup-banner 2)
|
||||||
@@ -373,33 +434,7 @@
|
|||||||
:face 'font-lock-keyword-face))
|
:face 'font-lock-keyword-face))
|
||||||
(setq initial-buffer-choice (lambda () (get-buffer-create dashboard-buffer-name))))
|
(setq initial-buffer-choice (lambda () (get-buffer-create dashboard-buffer-name))))
|
||||||
|
|
||||||
;; Setup treesitter
|
;; Window management with shackle
|
||||||
(require 'treesit)
|
|
||||||
(treesit-major-mode-setup)
|
|
||||||
|
|
||||||
;; use-package
|
|
||||||
(require 'use-package)
|
|
||||||
(setq use-package-always-ensure t)
|
|
||||||
|
|
||||||
;; direnv
|
|
||||||
(use-package direnv
|
|
||||||
:config
|
|
||||||
(direnv-mode))
|
|
||||||
|
|
||||||
;; command-log-mode
|
|
||||||
(use-package command-log-mode)
|
|
||||||
|
|
||||||
;; Enable vertico
|
|
||||||
(use-package vertico
|
|
||||||
:custom
|
|
||||||
(vertico-scroll-margin 0) ;; Different scroll margin
|
|
||||||
(vertico-count 20) ;; Show more candidates
|
|
||||||
(vertico-resize nil) ;; Grow and shrink the Vertico minibuffer
|
|
||||||
(vertico-cycle t) ;; Enable cycling for `vertico-next/previous'
|
|
||||||
:init
|
|
||||||
(vertico-mode))
|
|
||||||
|
|
||||||
;; Shackle
|
|
||||||
;; https://github.com/wasamasa/shackle
|
;; https://github.com/wasamasa/shackle
|
||||||
(use-package shackle
|
(use-package shackle
|
||||||
:config
|
:config
|
||||||
@@ -417,7 +452,7 @@
|
|||||||
("*Shell Command Output*" :select nil )
|
("*Shell Command Output*" :select nil )
|
||||||
("\\*Async Shell.*\\*" :regexp t :ignore t )
|
("\\*Async Shell.*\\*" :regexp t :ignore t )
|
||||||
(occur-mode :select nil :align t )
|
(occur-mode :select nil :align t )
|
||||||
("*Help*" :select t :inhibit-window-quit t :size 0.3 :align below )
|
("*Help*" :select t :inhibit-window-quit nil :size 0.3 :align below )
|
||||||
("*Completions*" :size 0.3 :align t )
|
("*Completions*" :size 0.3 :align t )
|
||||||
("*Messages*" :select nil :inhibit-window-quit t :other t )
|
("*Messages*" :select nil :inhibit-window-quit t :other t )
|
||||||
("\\*[Wo]*Man.*\\*" :regexp t :select t :inhibit-window-quit t :other t )
|
("\\*[Wo]*Man.*\\*" :regexp t :select t :inhibit-window-quit t :other t )
|
||||||
@@ -435,50 +470,50 @@
|
|||||||
(use-package orderless)
|
(use-package orderless)
|
||||||
(setq completion-styles '(orderless flex hotfuzz))
|
(setq completion-styles '(orderless flex hotfuzz))
|
||||||
|
|
||||||
;; Org mode config
|
(use-package org
|
||||||
(require 'org)
|
:config
|
||||||
|
;; Better cycling
|
||||||
;; Better cycling
|
;; https://github.com/doomemacs/doomemacs/blob/master/modules/lang/org/autoload/org.el
|
||||||
;; https://github.com/doomemacs/doomemacs/blob/master/modules/lang/org/autoload/org.el
|
(defun +org-cycle-only-current-subtree-h (&optional arg)
|
||||||
(defun +org-cycle-only-current-subtree-h (&optional arg)
|
"Toggle the local fold at the point, and no deeper.
|
||||||
"Toggle the local fold at the point, and no deeper.
|
`org-cycle's standard behavior is to cycle between three levels: collapsed,
|
||||||
`org-cycle's standard behavior is to cycle between three levels: collapsed,
|
subtree and whole document. This is slow, especially in larger org buffer. Most
|
||||||
subtree and whole document. This is slow, especially in larger org buffer. Most
|
of the time I just want to peek into the current subtree -- at most, expand
|
||||||
of the time I just want to peek into the current subtree -- at most, expand
|
*only* the current subtree.
|
||||||
*only* the current subtree.
|
|
||||||
|
All my (performant) foldings needs are met between this and `org-show-subtree'
|
||||||
All my (performant) foldings needs are met between this and `org-show-subtree'
|
(on zO for evil users), and `org-cycle' on shift-TAB if I need it."
|
||||||
(on zO for evil users), and `org-cycle' on shift-TAB if I need it."
|
(interactive "P")
|
||||||
(interactive "P")
|
(unless (or (eq this-command 'org-shifttab)
|
||||||
(unless (or (eq this-command 'org-shifttab)
|
(and (bound-and-true-p org-cdlatex-mode)
|
||||||
(and (bound-and-true-p org-cdlatex-mode)
|
(or (org-inside-LaTeX-fragment-p)
|
||||||
(or (org-inside-LaTeX-fragment-p)
|
(org-inside-latex-macro-p))))
|
||||||
(org-inside-latex-macro-p))))
|
(save-excursion
|
||||||
(save-excursion
|
(org-beginning-of-line)
|
||||||
(org-beginning-of-line)
|
(let (invisible-p)
|
||||||
(let (invisible-p)
|
(when (and (org-at-heading-p)
|
||||||
(when (and (org-at-heading-p)
|
(or org-cycle-open-archived-trees
|
||||||
(or org-cycle-open-archived-trees
|
(not (member org-archive-tag (org-get-tags))))
|
||||||
(not (member org-archive-tag (org-get-tags))))
|
(or (not arg)
|
||||||
(or (not arg)
|
(setq invisible-p
|
||||||
(setq invisible-p
|
(memq (get-char-property (line-end-position)
|
||||||
(memq (get-char-property (line-end-position)
|
'invisible)
|
||||||
'invisible)
|
'(outline org-fold-outline)))))
|
||||||
'(outline org-fold-outline)))))
|
(unless invisible-p
|
||||||
(unless invisible-p
|
(setq org-cycle-subtree-status 'subtree))
|
||||||
(setq org-cycle-subtree-status 'subtree))
|
(org-cycle-internal-local)
|
||||||
(org-cycle-internal-local)
|
t)))))
|
||||||
t)))))
|
(defalias #'+org/toggle-fold #'+org-cycle-only-current-subtree-h)
|
||||||
(defalias #'+org/toggle-fold #'+org-cycle-only-current-subtree-h)
|
(add-hook 'org-mode-hook 'org-indent-mode)
|
||||||
(add-hook 'org-tab-first-hook
|
(add-hook 'org-tab-first-hook
|
||||||
;; Only fold the current tree, rather than recursively
|
;; Only fold the current tree, rather than recursively
|
||||||
#'+org-cycle-only-current-subtree-h)
|
#'+org-cycle-only-current-subtree-h)
|
||||||
|
|
||||||
(evil-define-key 'insert 'org-mode-map (kbd "<tab>") 'org-demote-subtree)
|
(setq org-return-follows-link t)
|
||||||
(evil-define-key 'insert 'org-mode-map (kbd "<backtab>") 'org-promote-subtree)
|
(setf (cdr (assoc 'file org-link-frame-setup)) 'find-file)))
|
||||||
|
|
||||||
(use-package org-roam
|
(use-package org-roam
|
||||||
:ensure t
|
:after (org)
|
||||||
:config
|
:config
|
||||||
(setq org-roam-directory (file-truename "~/Notes"))
|
(setq org-roam-directory (file-truename "~/Notes"))
|
||||||
(setq org-roam-node-display-template (concat "${title:*} " (propertize "${tags:10}" 'face 'org-tag)))
|
(setq org-roam-node-display-template (concat "${title:*} " (propertize "${tags:10}" 'face 'org-tag)))
|
||||||
@@ -495,9 +530,8 @@ All my (performant) foldings needs are met between this and `org-show-subtree'
|
|||||||
)
|
)
|
||||||
|
|
||||||
(use-package org-node
|
(use-package org-node
|
||||||
:ensure t
|
:after (org org-roam)
|
||||||
:after org
|
:config
|
||||||
:config
|
|
||||||
(setq org-node-extra-id-dirs '("~/Notes/"))
|
(setq org-node-extra-id-dirs '("~/Notes/"))
|
||||||
(setq org-id-locations-file "~/Notes/.org-id-locations")
|
(setq org-id-locations-file "~/Notes/.org-id-locations")
|
||||||
(org-node-cache-mode)
|
(org-node-cache-mode)
|
||||||
@@ -508,7 +542,7 @@ All my (performant) foldings needs are met between this and `org-show-subtree'
|
|||||||
)
|
)
|
||||||
|
|
||||||
(use-package org-node-fakeroam
|
(use-package org-node-fakeroam
|
||||||
:ensure t
|
:after (org org-node org-roam)
|
||||||
:defer
|
:defer
|
||||||
:config
|
:config
|
||||||
(setq org-node-creation-fn #'org-node-fakeroam-new-via-roam-capture)
|
(setq org-node-creation-fn #'org-node-fakeroam-new-via-roam-capture)
|
||||||
@@ -524,72 +558,32 @@ All my (performant) foldings needs are met between this and `org-show-subtree'
|
|||||||
)
|
)
|
||||||
|
|
||||||
(use-package wgrep
|
(use-package wgrep
|
||||||
:ensure t
|
:after (org-node))
|
||||||
:after org-node)
|
|
||||||
|
|
||||||
;; Line wrapping management
|
(use-package org-modern
|
||||||
(defun truncate-lines-off ()
|
:mode ("\\.org\\'" . org-mode)
|
||||||
(interactive)
|
:custom
|
||||||
(toggle-truncate-lines 0))
|
(org-auto-align-tags nil)
|
||||||
(defun truncate-lines-on ()
|
(org-tags-column 0)
|
||||||
(interactive)
|
(org-catch-invisible-edits 'show-and-error)
|
||||||
(toggle-truncate-lines 1))
|
(org-special-ctrl-a/e t)
|
||||||
(defun visual-line-mode-off ()
|
(org-insert-heading-respect-content t)
|
||||||
(interactive)
|
(org-hide-emphasis-markers t)
|
||||||
(visual-line-mode 0))
|
(org-pretty-entities t)
|
||||||
(add-hook 'org-mode-hook 'org-indent-mode)
|
(org-ellipsis "...")
|
||||||
(add-hook 'org-mode-hook 'truncate-lines-off)
|
(org-modern-star 'replace)
|
||||||
(add-hook 'markdown-mode-hook 'truncate-lines-off)
|
:config
|
||||||
(add-hook 'org-mode-hook 'visual-line-mode)
|
(set-face-attribute 'org-ellipsis nil :inherit 'default :box nil)
|
||||||
(add-hook 'markdown-mode-hook 'visual-line-mode)
|
:init
|
||||||
(add-hook 'prog-mode-hook 'truncate-lines-on)
|
(global-org-modern-mode))
|
||||||
(add-hook 'prog-mode-hook 'visual-line-mode-off)
|
|
||||||
|
|
||||||
;; Heading styles
|
|
||||||
(set-face-attribute 'outline-1 nil :height 195 :foreground (nth 1 (nth 14 doom-themes--colors)))
|
|
||||||
(set-face-attribute 'outline-2 nil :height 188 :foreground (nth 1 (nth 15 doom-themes--colors)))
|
|
||||||
(set-face-attribute 'outline-3 nil :height 180 :foreground (nth 1 (nth 19 doom-themes--colors)))
|
|
||||||
(set-face-attribute 'outline-4 nil :height 173 :foreground (nth 1 (nth 23 doom-themes--colors)))
|
|
||||||
(set-face-attribute 'outline-5 nil :height 173 :foreground (nth 1 (nth 24 doom-themes--colors)))
|
|
||||||
(set-face-attribute 'outline-6 nil :height 165 :foreground (nth 1 (nth 16 doom-themes--colors)))
|
|
||||||
(set-face-attribute 'outline-7 nil :height 160 :foreground (nth 1 (nth 18 doom-themes--colors)))
|
|
||||||
(set-face-attribute 'outline-8 nil :height 155 :foreground (nth 1 (nth 11 doom-themes--colors)))
|
|
||||||
|
|
||||||
(require 'org-modern)
|
|
||||||
|
|
||||||
;; Add frame borders and window dividers
|
|
||||||
(modify-all-frames-parameters
|
|
||||||
'((right-divider-width . 20)
|
|
||||||
(left-divider-width . 20)
|
|
||||||
(internal-border-width . 20)))
|
|
||||||
(set-face-background 'fringe (face-attribute 'default :background))
|
|
||||||
|
|
||||||
(setq
|
|
||||||
;; Edit settings
|
|
||||||
org-auto-align-tags nil
|
|
||||||
org-tags-column 0
|
|
||||||
org-catch-invisible-edits 'show-and-error
|
|
||||||
org-special-ctrl-a/e t
|
|
||||||
org-insert-heading-respect-content t
|
|
||||||
|
|
||||||
;; Org styling, hide markup etc.
|
|
||||||
org-hide-emphasis-markers t
|
|
||||||
org-pretty-entities t)
|
|
||||||
|
|
||||||
;; Ellipsis styling
|
|
||||||
(setq org-ellipsis "…")
|
|
||||||
(set-face-attribute 'org-ellipsis nil :inherit 'default :box nil)
|
|
||||||
|
|
||||||
;; Star styling
|
|
||||||
(setq org-modern-star 'replace)
|
|
||||||
|
|
||||||
(global-org-modern-mode)
|
|
||||||
|
|
||||||
;; Olivetti
|
;; Olivetti
|
||||||
(use-package olivetti
|
(use-package olivetti
|
||||||
|
:commands (org-mode markdown-mode)
|
||||||
|
:custom
|
||||||
|
(olivetti-style 'fancy)
|
||||||
|
(olivetti-margin-width 100)
|
||||||
:config
|
:config
|
||||||
(setq olivetti-style 'fancy
|
|
||||||
olivetti-margin-width 100)
|
|
||||||
(setq-default olivetti-body-width 100)
|
(setq-default olivetti-body-width 100)
|
||||||
(add-hook 'org-mode-hook 'olivetti-mode))
|
(add-hook 'org-mode-hook 'olivetti-mode))
|
||||||
|
|
||||||
|
|||||||
55
user/app/emacs/lib/line-wrapping-and-numbers.el
Normal file
55
user/app/emacs/lib/line-wrapping-and-numbers.el
Normal file
@@ -0,0 +1,55 @@
|
|||||||
|
;;; line-wrapping-and-numbers.el --- basic line wrapping management library -*- lexical-binding: t; no-byte-compile: t; -*-
|
||||||
|
;;
|
||||||
|
;; Author: Emmet K <https://gitlab.com/librephoenix>
|
||||||
|
;; Maintainer: Emmet K <https://gitlab.com/librephoenix>
|
||||||
|
;; Source: https://github.com/librephoenix/nixos-config
|
||||||
|
;; Source: https://gitlab.com/librephoenix/nixos-config
|
||||||
|
;; Source: https://codeberg.org/librephoenix/nixos-config
|
||||||
|
;;
|
||||||
|
;;; Commentary:
|
||||||
|
;;
|
||||||
|
;; A basic line wrapping management library.
|
||||||
|
;; Turns on line wrapping for programming modes,
|
||||||
|
;; and turns it off for thinks like markdown and org.
|
||||||
|
;;
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
;; Line wrapping management
|
||||||
|
(defun truncate-lines-off ()
|
||||||
|
"Stop truncating lines in current buffer."
|
||||||
|
(interactive)
|
||||||
|
(toggle-truncate-lines 0))
|
||||||
|
(defun truncate-lines-on ()
|
||||||
|
"Truncate lines in current buffer."
|
||||||
|
(interactive)
|
||||||
|
(toggle-truncate-lines 1))
|
||||||
|
(defun visual-line-mode-off ()
|
||||||
|
"Disable `visual-line-mode` in current buffer."
|
||||||
|
(interactive)
|
||||||
|
(visual-line-mode 0))
|
||||||
|
(add-hook 'org-mode-hook 'truncate-lines-off)
|
||||||
|
(add-hook 'markdown-mode-hook 'truncate-lines-off)
|
||||||
|
(add-hook 'org-mode-hook 'visual-line-mode)
|
||||||
|
(add-hook 'markdown-mode-hook 'visual-line-mode)
|
||||||
|
(add-hook 'prog-mode-hook 'truncate-lines-on)
|
||||||
|
(add-hook 'prog-mode-hook 'visual-line-mode-off)
|
||||||
|
(defun apply-proper-line-wrapping ()
|
||||||
|
"Apply proper line wrapping and visual line mode settings according to whether or not the current mode derives from `prog-mode`."
|
||||||
|
(if (derived-mode-p 'prog-mode)
|
||||||
|
(progn
|
||||||
|
(display-line-numbers-mode)
|
||||||
|
(truncate-lines-on)
|
||||||
|
(visual-line-mode-off)
|
||||||
|
(display-line-numbers-mode 1))
|
||||||
|
(progn
|
||||||
|
(truncate-lines-off)
|
||||||
|
(visual-line-mode)
|
||||||
|
(display-line-numbers-mode 0))))
|
||||||
|
(add-hook 'prog-mode-hook 'apply-proper-line-wrapping)
|
||||||
|
(add-hook 'org-mode-hook 'apply-proper-line-wrapping)
|
||||||
|
(if (featurep 'markdown-mode)
|
||||||
|
(add-hook 'markdown-mode-hook 'apply-proper-line-wrapping))
|
||||||
|
(if (featurep 'git-timemachine)
|
||||||
|
(add-hook 'git-timemachine-mode-hook 'apply-proper-line-wrapping))
|
||||||
|
|
||||||
|
;;; line-wrapping.el ends here
|
||||||
Reference in New Issue
Block a user