361 lines
12 KiB
EmacsLisp
361 lines
12 KiB
EmacsLisp
;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-
|
|
|
|
;; Some functionality uses this to identify you
|
|
(setq user-full-name "FollieHiyuki"
|
|
user-mail-address "folliekazetani@protonmail.com")
|
|
|
|
;; Set qutebrowser as the default browser
|
|
(setq browse-url-browser-function 'browse-url-generic
|
|
browse-url-generic-program "qutebrowser")
|
|
|
|
;; Secrets
|
|
(setq auth-sources '("~/.config/doom/.authinfo.gpg"))
|
|
|
|
;; Better default settings
|
|
(setq-default
|
|
;; Tab vs space
|
|
indent-tabs-mode nil
|
|
tab-width 2
|
|
evil-shift-width 2
|
|
standard-indent 2
|
|
line-spacing 2
|
|
;; From @tecosaur
|
|
delete-by-moving-to-trash t
|
|
window-combination-resize t
|
|
x-stretch-cursor t)
|
|
(setq undo-limit 80000000
|
|
evil-want-fine-undo t
|
|
auto-save-default t
|
|
truncate-string-ellipsis "…")
|
|
(global-subword-mode 1) ;; Use CamelCase words
|
|
|
|
;; Font settings
|
|
(setq doom-font (font-spec :family "Iosevka" :size 16)
|
|
doom-serif-font (font-spec :family "Iosevka Slab" :size 16 :weight 'light)
|
|
doom-variable-pitch-font (font-spec :family "Iosevka Aile" :size 16)
|
|
doom-big-font (font-spec :family "Iosevka" :size 24))
|
|
(after! unicode-fonts
|
|
(setq doom-unicode-font doom-font)
|
|
(dolist (unicode-block '("CJK Compatibility"
|
|
"CJK Compatibility Forms"
|
|
"CJK Compatibility Ideographs"
|
|
"CJK Compatibility Ideographs Supplement"
|
|
"CJK Radicals Supplement"
|
|
"CJK Strokes"
|
|
"CJK Symbols and Punctuation"
|
|
"CJK Unified Ideographs"
|
|
"CJK Unified Ideographs Extension A"
|
|
"CJK Unified Ideographs Extension B"
|
|
"CJK Unified Ideographs Extension C"
|
|
"CJK Unified Ideographs Extension D"
|
|
"CJK Unified Ideographs Extension E"))
|
|
(push "Sarasa Mono J" (cadr (assoc unicode-block unicode-fonts-block-font-mapping)))))
|
|
;;(setq inhibit-compacting-font-caches t)
|
|
(custom-set-faces!
|
|
'(font-lock-comment-face :slant italic)
|
|
'(font-lock-keyword-face :weight bold))
|
|
|
|
;; Japanese input method
|
|
(use-package! mozc
|
|
:config
|
|
(setq default-input-method "japanese-mozc"))
|
|
;; (use-package! mozc-cand-posframe
|
|
;; :after mozc
|
|
;; :config
|
|
;; (setq mozc-candidate-style 'posframe)
|
|
;; (custom-set-faces!
|
|
;; '(mozc-cand-posframe-normal-face :inherit tooltip)
|
|
;; '(mozc-cand-posframe-focused-face :inherit highlight)
|
|
;; '(mozc-cand-posframe-footer-face :inherit default)))
|
|
|
|
;; Work around modeline cut off. See hlissner/doom-emacs#2967
|
|
(setq all-the-icons-scale-factor 1.0)
|
|
(after! doom-modeline
|
|
(custom-set-faces!
|
|
'(mode-line :height 0.98)
|
|
'(mode-line-inactive :height 0.98))
|
|
(setq doom-modeline-major-mode-icon t
|
|
doom-modeline-major-mode-color-icon t
|
|
doom-modeline-unicode-fallback t))
|
|
(custom-set-faces!
|
|
'(doom-modeline-buffer-modified :foreground "orange"))
|
|
|
|
;; Window split position
|
|
(setq evil-vsplit-window-right t
|
|
evil-split-window-below t)
|
|
|
|
;; Emoji
|
|
(after! emojify
|
|
(setq emojify-display-style 'unicode))
|
|
|
|
;; Theme
|
|
(setq doom-theme 'doom-nord)
|
|
(setq doom-themes-enable-bold t
|
|
doom-themes-enable-italic t)
|
|
(after! treemacs
|
|
(setq doom-themes-treemacs-theme 'doom-colors
|
|
doom-themes-treemacs-enable-variable-pitch nil))
|
|
|
|
;; Pick an image for dashboard
|
|
;;(defun random-choice (items)
|
|
;; (let* ((size (length items))
|
|
;; (index (random size)))
|
|
;; (nth index items)))
|
|
;;(defvar *kawaii* (random-choice (delete "."
|
|
;; (delete ".." (directory-files (expand-file-name "images" doom-private-dir))))))
|
|
(setq +doom-dashboard-banner-file "yukino.png"
|
|
+doom-dashboard-banner-dir (expand-file-name "images" doom-private-dir)
|
|
+doom-dashboard-banner-padding '(0 . 2)
|
|
+doom-dashboard-functions '(doom-dashboard-widget-banner
|
|
doom-dashboard-widget-shortmenu
|
|
doom-dashboard-widget-loaded))
|
|
|
|
;; Line number
|
|
(setq display-line-numbers-type 'relative)
|
|
(setq global-hl-line-modes nil)
|
|
|
|
;; Git-gutter
|
|
(after! git-gutter
|
|
(setq +vc-gutter-default-style nil))
|
|
|
|
;; Indent
|
|
(after! highlight-indent-guides
|
|
(setq highlight-indent-guides-method 'character
|
|
highlight-indent-guides-responsive t))
|
|
|
|
;; Use ranger.el instead of default dired
|
|
(after! ranger
|
|
(setq ranger-parent-depth 0
|
|
ranger-cleanup-eagerly t
|
|
ranger-show-hidden t
|
|
ranger-max-preview-size 20
|
|
ranger-dont-show-binary t))
|
|
|
|
;; Projectile
|
|
(after! projectile
|
|
(setq projectile-project-search-path '("~/Code/")
|
|
projectile-auto-discover nil))
|
|
|
|
;; Ivy / Counsel
|
|
(setq +ivy-buffer-preview t)
|
|
(after! counsel
|
|
(setq counsel-linux-app-format-function #'counsel-linux-app-format-function-name-only))
|
|
(map! "C-M-j" 'counsel-switch-buffer)
|
|
(map! :map minibuffer-local-map
|
|
"C-r" 'counsel-minibuffer-history)
|
|
(use-package! all-the-icons-ivy-rich
|
|
:defer-incrementally counsel-projectile
|
|
:init (all-the-icons-ivy-rich-mode 1)
|
|
:config
|
|
(setq all-the-icons-ivy-rich-icon-size 1.0))
|
|
(use-package! ivy-rich
|
|
:after all-the-icons-ivy-rich)
|
|
|
|
;; Company
|
|
(after! company
|
|
;;(add-hook 'evil-normal-state-entry-hook #'company-abort)
|
|
(setq company-idle-delay 0.5
|
|
company-minimum-prefix-length 2
|
|
company-show-numbers nil))
|
|
|
|
;; lsp
|
|
(use-package! lsp-treemacs
|
|
:after (treemacs lsp)
|
|
:config
|
|
(lsp-treemacs-sync-mode 1))
|
|
(setq lsp-clients-clangd-args '("-j=2"
|
|
"--background-index"
|
|
"--clang-tidy"
|
|
"--completion-style=detailed"
|
|
"--pch-storage=memory"
|
|
"--header-insertion=iwyu"
|
|
"--header-insertion-decorators"))
|
|
(after! lsp-clangd (set-lsp-priority! 'clangd 2)) ;; Prefer clangd instead of default ccls
|
|
(after! lsp-lua
|
|
(setq lsp-clients-lua-language-server-bin (expand-file-name "lsp/lua-language-server/bin/Linux/lua-language-server" doom-etc-dir)
|
|
lsp-clients-lua-language-server-main-location (expand-file-name "lsp/lua-language-server/main.lua" doom-etc-dir)
|
|
lsp-lua-completion-call-snippet "Replace"
|
|
lsp-lua-telemetry-enable nil
|
|
lsp-lua-hint-enable t))
|
|
|
|
;; Quicker which-key
|
|
(after! which-key
|
|
(setq which-key-idle-delay 0.5))
|
|
|
|
;; Org
|
|
(setq org-directory "~/Documents/Org/")
|
|
(after! org
|
|
(setq org-default-notes-file "~/Documents/Org/notes.org"
|
|
org-agenda-files '("~/Documents/Org/agenda/agenda.org" "~/Documents/Org/agenda/archive.org")
|
|
org-confirm-babel-evaluate nil
|
|
org-ellipsis "▾"
|
|
org-log-done t
|
|
org-log-into-drawser t
|
|
org-insert-heading-respect-content nil
|
|
org-hide-emphasis-markers t)
|
|
(add-to-list 'org-modules 'ol-info)
|
|
;; Org-noter
|
|
(setq org-noter-notes-search-path '("~/Documents/Org/noter/"))
|
|
;; Org-journal
|
|
(setq org-journal-dir "~/Documents/Org/journal/"))
|
|
(defun follie/comfy-org-editing ()
|
|
(setq visual-fill-column-width 100
|
|
visual-fill-column-center-text t)
|
|
(visual-fill-column-mode 1)
|
|
(display-line-numbers-mode -1))
|
|
(add-hook 'org-mode-hook 'follie/comfy-org-editing)
|
|
(add-hook! org-mode (electric-indent-local-mode -1))
|
|
(defun follie/org-toggle-emphasis-markers ()
|
|
"Toggle emphasis markers in an Org buffer"
|
|
(interactive)
|
|
(if org-hide-emphasis-markers
|
|
(setq org-hide-emphasis-markers nil)
|
|
(setq org-hide-emphasis-markers t))
|
|
(org-mode-restart))
|
|
(map! :map org-mode-map
|
|
:localleader :desc "org-toggle-emphasis-markers"
|
|
"z" #'follie/org-toggle-emphasis-markers)
|
|
;; Org-tree-slide
|
|
(use-package! org-tree-slide
|
|
:commands org-tree-slide-mode
|
|
:config
|
|
(advice-remove 'org-tree-slide--display-tree-with-narrow #'+org-present--narrow-to-subtree-a)
|
|
(setq +org-present-text-scale 2
|
|
org-tree-slide-skip-outline-level 0
|
|
org-tree-slide-modeline-display nil
|
|
org-tree-slide-header nil
|
|
org-tree-slide-slide-in-effect t
|
|
org-tree-slide-breadcrumbs " ▶ "
|
|
org-tree-slide-activate-message "Presentation starto..."
|
|
org-tree-slide-deactivate-message "Thanks for listening!"))
|
|
|
|
;; Latex
|
|
(setq +latex-viewers '(pdf-tools))
|
|
|
|
;; Spell checker
|
|
(after! flyspell
|
|
(setq flyspell-lazy-idle-seconds 2))
|
|
|
|
;; Magit
|
|
(after! magit
|
|
(setq magit-diff-refine-hunk 'all))
|
|
;;(add-hook 'magit-mode-hook (lambda () (magit-delta-mode +1)))
|
|
|
|
;; Elfeed
|
|
(setq rmh-elfeed-org-files (list (expand-file-name "elfeed.org" doom-private-dir)))
|
|
;;(add-hook! 'elfeed-search-mode-hook 'elfeed-update)
|
|
(use-package! elfeed-goodies
|
|
:after elfeed
|
|
:config
|
|
(elfeed-goodies/setup)
|
|
(setq elfeed-goodies/entry-pane-size 0.5))
|
|
|
|
;; Elpher
|
|
(defun elpher--init-hook ()
|
|
(setq visual-fill-column-center-text t)
|
|
(visual-fill-column-mode 1))
|
|
(use-package! elpher
|
|
:defer t
|
|
:config
|
|
(setq elpher-use-tls t
|
|
elpher-auto-disengage-TLS t
|
|
elpher-connection-timeout 10
|
|
elpher-gemini-max-fill-width 80
|
|
elpher-gemini-TLS-cert-checks nil)
|
|
(add-hook 'elpher-mode-hook 'elpher--init-hook))
|
|
|
|
;; mu4e
|
|
(setq +mu4e-alert-bell-cmd nil)
|
|
(use-package! mu4e
|
|
:commands mu4e mu4e-compose-new
|
|
:config
|
|
(setq mu4e-update-interval (* 10 60)
|
|
mu4e-view-image-max-width 600
|
|
mu4e-context-policy 'always-ask
|
|
mu4e-compose-context-policy 'always-ask
|
|
mu4e-index-cleanup nil
|
|
mu4e-index-lazy-check t))
|
|
(set-email-account! "Gmail"
|
|
'((mu4e-sent-folder . "/[Gmail]/Sent Mail")
|
|
(mu4e-drafts-folder . "/[Gmail]/Drafts")
|
|
(mu4e-trash-folder . "/[Gmail]/Trash")
|
|
(mu4e-refile-folder . "/[Gmail]/All Mail")
|
|
(smtpmail-smtp-user . "example@gmail.com")
|
|
(smtpmail-smtp-server . "smtp.gmail.com")
|
|
(smtpmail-smtp-service . 465)
|
|
(smtpmail-stream-type . ssl)
|
|
(user-full-name . "FGoogle")
|
|
(user-mail-address . "example@gmail.com")
|
|
(mu4e-compose-signature . "---\nfgoogle"))
|
|
t)
|
|
|
|
;; circe
|
|
(defun my-fetch-password (&rest params)
|
|
(require 'auth-source)
|
|
(let ((match (car (apply #'auth-source-search params))))
|
|
(if match
|
|
(let ((secret (plist-get match :secret)))
|
|
(if (functionp secret)
|
|
(funcall secret)
|
|
secret))
|
|
(error "Password not found for %S" params))))
|
|
(set-irc-server! "chat.freenode.net"
|
|
'(:tls t
|
|
:port 6697
|
|
:nick "FollieHiyuki"
|
|
:sasl-password (my-fetch-password :user "FollieHiyuki" :host "irc.freenode.net")
|
|
:channels ("#voidlinux" "#river" "#archlinux" "#nixos")))
|
|
|
|
;; Cheatsheet
|
|
(use-package! tldr
|
|
:commands tldr tldr-mode
|
|
:config
|
|
(setq tldr-directory-path "~/.local/share/tldr"))
|
|
|
|
;; Keycast
|
|
(use-package! keycast
|
|
:commands keycast-mode
|
|
:config
|
|
(define-minor-mode keycast-mode
|
|
"Show current command and its key binding in the mode line."
|
|
:global t
|
|
(if keycast-mode
|
|
(progn
|
|
(add-hook 'pre-command-hook 'keycast--update t)
|
|
(add-to-list 'global-mode-string '("" mode-line-keycast " ")))
|
|
(remove-hook 'pre-command-hook 'keycast--update)
|
|
(setq global-mode-string (remove '("" mode-line-keycast " ") global-mode-string))))
|
|
(custom-set-faces!
|
|
'(keycast-command :inherit doom-modeline-debug
|
|
:height 0.9)
|
|
'(keycast-key :inherit custom-modified
|
|
:height 1.1
|
|
:weight bold)))
|
|
|
|
;; To read big files
|
|
(use-package! vlf-setup
|
|
:defer-incrementally vlf-tune vlf-base vlf-write vlf-search vlf-occur vlf-follow vlf-ediff vlf)
|
|
|
|
;; Nicer page break
|
|
(use-package! page-break-lines
|
|
:commands page-break-lines-mode
|
|
:init
|
|
(autoload 'turn-on-page-break-lines-mode "page-break-lines"))
|
|
|
|
;; Here are some additional functions/macros that could 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.
|
|
;;
|
|
;; You can also try 'gd' (or 'C-c c d') to jump to their definition and see how
|
|
;; they are implemented.
|