[Spacemacs, index] Whitespace
This commit is contained in:
parent
dd22ca398c
commit
5144dcb279
GPG Key ID:
BD7789E705CB8DCA
|
|
@ -4,7 +4,7 @@
|
||||||
;; Maintainer: Lucien Cartier-Tilet
|
;; Maintainer: Lucien Cartier-Tilet
|
||||||
;; Version: 0.1.0
|
;; Version: 0.1.0
|
||||||
;; Package-Requires: ((emacs "27.1"))
|
;; Package-Requires: ((emacs "27.1"))
|
||||||
;; Homepage: https://labs.phundrak.com/emacs
|
;; Homepage: https://labs.phundrak.com/phundrak/dotfiles
|
||||||
|
|
||||||
|
|
||||||
;; This file is not part of GNU Emacs
|
;; This file is not part of GNU Emacs
|
||||||
|
|
@ -34,7 +34,7 @@
|
||||||
user-login-name "phundrak"
|
user-login-name "phundrak"
|
||||||
user-mail-address "lucien@phundrak.com")
|
user-mail-address "lucien@phundrak.com")
|
||||||
|
|
||||||
(setq epa-pinentry-mode 'loopback)
|
(setq indent-tabs-mode nil)
|
||||||
|
|
||||||
(defvar phundrak/default-font-size 90
|
(defvar phundrak/default-font-size 90
|
||||||
"Default font size.")
|
"Default font size.")
|
||||||
|
|
@ -50,7 +50,7 @@
|
||||||
|
|
||||||
;; Display battery in modeline when using a laptop
|
;; Display battery in modeline when using a laptop
|
||||||
(unless (equal "Battery status not available"
|
(unless (equal "Battery status not available"
|
||||||
(battery))
|
(battery))
|
||||||
(display-battery-mode 1))
|
(display-battery-mode 1))
|
||||||
|
|
||||||
(set-face-attribute 'default nil :font "Cascadia Code" :height phundrak/default-font-size)
|
(set-face-attribute 'default nil :font "Cascadia Code" :height phundrak/default-font-size)
|
||||||
|
|
@ -58,11 +58,11 @@
|
||||||
|
|
||||||
(setq frame-title-format
|
(setq frame-title-format
|
||||||
'(""
|
'(""
|
||||||
"%b"
|
"%b"
|
||||||
(:eval
|
(:eval
|
||||||
(let ((project-name (projectile-project-name)))
|
(let ((project-name (projectile-project-name)))
|
||||||
(unless (string= "-" project-name)
|
(unless (string= "-" project-name)
|
||||||
(format (if (buffer-modified-p) " ◉ %s" " ● %s") project-name))))))
|
(format (if (buffer-modified-p) " ◉ %s" " ● %s") project-name))))))
|
||||||
|
|
||||||
;; Make ESC quit prompts
|
;; Make ESC quit prompts
|
||||||
(global-set-key (kbd "<escape>") 'keyboard-escape-quit)
|
(global-set-key (kbd "<escape>") 'keyboard-escape-quit)
|
||||||
|
|
@ -74,13 +74,13 @@
|
||||||
(global-display-line-numbers-mode t)
|
(global-display-line-numbers-mode t)
|
||||||
;; Disable line numbers for some modes
|
;; Disable line numbers for some modes
|
||||||
(dolist (mode '(org-mode-hook
|
(dolist (mode '(org-mode-hook
|
||||||
term-mode-hook
|
term-mode-hook
|
||||||
shell-mode-hook
|
shell-mode-hook
|
||||||
eshell-mode-hook
|
eshell-mode-hook
|
||||||
vterm-mode-hook
|
vterm-mode-hook
|
||||||
special-mode-hook
|
special-mode-hook
|
||||||
helpful-mode-hook
|
helpful-mode-hook
|
||||||
woman-mode-hook))
|
woman-mode-hook))
|
||||||
(add-hook mode (lambda () (display-line-numbers-mode 0))))
|
(add-hook mode (lambda () (display-line-numbers-mode 0))))
|
||||||
|
|
||||||
(setq x-stretch-cursor t ; stretch cursor to the glyph’s width
|
(setq x-stretch-cursor t ; stretch cursor to the glyph’s width
|
||||||
|
|
@ -115,8 +115,8 @@ the user."
|
||||||
;; Initialize package sources
|
;; Initialize package sources
|
||||||
;; (require 'package)
|
;; (require 'package)
|
||||||
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
|
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
|
||||||
("org" . "https://orgmode.org/elpa/")
|
("org" . "https://orgmode.org/elpa/")
|
||||||
("elpa" . "https://elpa.gnu.org/packages/")))
|
("elpa" . "https://elpa.gnu.org/packages/")))
|
||||||
|
|
||||||
(defvar bootstrap-version)
|
(defvar bootstrap-version)
|
||||||
(let ((bootstrap-file
|
(let ((bootstrap-file
|
||||||
|
|
@ -147,11 +147,11 @@ the user."
|
||||||
:defer t
|
:defer t
|
||||||
:after bind-map
|
:after bind-map
|
||||||
:straight (spaceleader :type git
|
:straight (spaceleader :type git
|
||||||
:host github
|
:host github
|
||||||
:repo "mohkale/spaceleader")
|
:repo "mohkale/spaceleader")
|
||||||
:config
|
:config
|
||||||
(setq leader-key "SPC"
|
(setq leader-key "SPC"
|
||||||
leader-major-mode-prefix ","))
|
leader-major-mode-prefix ","))
|
||||||
|
|
||||||
(use-package evil
|
(use-package evil
|
||||||
:straight (:build t)
|
:straight (:build t)
|
||||||
|
|
@ -238,30 +238,30 @@ the user."
|
||||||
:defer t
|
:defer t
|
||||||
:diminish
|
:diminish
|
||||||
:bind (("C-s" . swiper)
|
:bind (("C-s" . swiper)
|
||||||
:map ivy-minibuffer-map
|
:map ivy-minibuffer-map
|
||||||
("TAB" . ivy-alt-done)
|
("TAB" . ivy-alt-done)
|
||||||
("C-l" . ivy-alt-done)
|
("C-l" . ivy-alt-done)
|
||||||
("C-t" . ivy-next-line)
|
("C-t" . ivy-next-line)
|
||||||
("C-s" . ivy-previous-line)
|
("C-s" . ivy-previous-line)
|
||||||
:map ivy-switch-buffer-map
|
:map ivy-switch-buffer-map
|
||||||
("C-t" . ivy-next-line)
|
("C-t" . ivy-next-line)
|
||||||
("C-s" . ivy-previous-line)
|
("C-s" . ivy-previous-line)
|
||||||
("C-l" . ivy-done)
|
("C-l" . ivy-done)
|
||||||
("C-d" . ivy-switch-buffer-kill)
|
("C-d" . ivy-switch-buffer-kill)
|
||||||
:map ivy-reverse-i-search-map
|
:map ivy-reverse-i-search-map
|
||||||
("C-t" . ivy-next-line)
|
("C-t" . ivy-next-line)
|
||||||
("C-s" . ivy-previous-line)
|
("C-s" . ivy-previous-line)
|
||||||
("C-d" . ivy-reverse-i-search-kill))
|
("C-d" . ivy-reverse-i-search-kill))
|
||||||
:config
|
:config
|
||||||
(ivy-mode 1)
|
(ivy-mode 1)
|
||||||
(setq ivy-wrap t
|
(setq ivy-wrap t
|
||||||
ivy-height 17
|
ivy-height 17
|
||||||
ivy-fixed-height-minibuffer t
|
ivy-fixed-height-minibuffer t
|
||||||
ivy-read-action-functions #'ivy-hydra-read-action
|
ivy-read-action-functions #'ivy-hydra-read-action
|
||||||
ivy-read-action-format-function #'ivy-read-action-format-columns
|
ivy-read-action-format-function #'ivy-read-action-format-columns
|
||||||
projectile-completion-system 'ivy
|
projectile-completion-system 'ivy
|
||||||
ivy-on-del-error-function #'ignore
|
ivy-on-del-error-function #'ignore
|
||||||
ivy-use-selectable-prompt t))
|
ivy-use-selectable-prompt t))
|
||||||
|
|
||||||
(use-package ivy-prescient
|
(use-package ivy-prescient
|
||||||
:defer t
|
:defer t
|
||||||
|
|
@ -275,14 +275,14 @@ the user."
|
||||||
(use-package ivy-posframe
|
(use-package ivy-posframe
|
||||||
:hook (ivy-mode . ivy-posframe-mode)
|
:hook (ivy-mode . ivy-posframe-mode)
|
||||||
:straight (ivy-posframe :type git
|
:straight (ivy-posframe :type git
|
||||||
:host github
|
:host github
|
||||||
:repo "tumashu/ivy-posframe")
|
:repo "tumashu/ivy-posframe")
|
||||||
:config
|
:config
|
||||||
(setq ivy-fixed-height-minibuffer nil
|
(setq ivy-fixed-height-minibuffer nil
|
||||||
ivy-posframe-border-width 10
|
ivy-posframe-border-width 10
|
||||||
ivy-posframe-parameters
|
ivy-posframe-parameters
|
||||||
`((min-width . 90)
|
`((min-width . 90)
|
||||||
(min-height . ,ivy-height))))
|
(min-height . ,ivy-height))))
|
||||||
|
|
||||||
(use-package ivy-rich
|
(use-package ivy-rich
|
||||||
:straight (:build t)
|
:straight (:build t)
|
||||||
|
|
@ -296,37 +296,38 @@ the user."
|
||||||
:straight (:build t)
|
:straight (:build t)
|
||||||
:defer t
|
:defer t
|
||||||
:hook (company-mode . evil-normalize-keymaps)
|
:hook (company-mode . evil-normalize-keymaps)
|
||||||
:init
|
:init (global-company-mode)
|
||||||
|
:config
|
||||||
(setq company-minimum-prefix-length 2
|
(setq company-minimum-prefix-length 2
|
||||||
company-toolsip-limit 14
|
company-toolsip-limit 14
|
||||||
company-tooltip-align-annotations t
|
company-tooltip-align-annotations t
|
||||||
company-require-match 'never
|
company-require-match 'never
|
||||||
company-global-modes '(not erc-mode message-mode help-mode gud-mode)
|
company-global-modes '(not erc-mode message-mode help-mode gud-mode)
|
||||||
company-frontends
|
company-frontends
|
||||||
'(company-pseudo-tooltip-frontend ; always show candidates in overlay tooltip
|
'(company-pseudo-tooltip-frontend ; always show candidates in overlay tooltip
|
||||||
company-echo-metadata-frontend) ; show selected candidate docs in echo area
|
company-echo-metadata-frontend) ; show selected candidate docs in echo area
|
||||||
|
|
||||||
;; Buffer-local backends will be computed when loading a major
|
;; Buffer-local backends will be computed when loading a major
|
||||||
;; mode, so only specify a global default here.
|
;; mode, so only specify a global default here.
|
||||||
company-backends '(company-capf)
|
company-backends '(company-capf)
|
||||||
|
|
||||||
;; These auto-complete the current selection when
|
;; These auto-complete the current selection when
|
||||||
;; `company-auto-complete-chars' is typed. This is too
|
;; `company-auto-complete-chars' is typed. This is too
|
||||||
;; magical. We already have the much more explicit RET and
|
;; magical. We already have the much more explicit RET and
|
||||||
;; TAB.
|
;; TAB.
|
||||||
company-auto-complete nil
|
company-auto-complete nil
|
||||||
company-auto-complete-chars nil
|
company-auto-complete-chars nil
|
||||||
|
|
||||||
;; Only search the current buffer for `company-dabbrev' (a
|
;; Only search the current buffer for `company-dabbrev' (a
|
||||||
;; backend that suggests text you open buffers). This prevents
|
;; backend that suggests text you open buffers). This prevents
|
||||||
;; Company from causing lag once you have a lot of buffers
|
;; Company from causing lag once you have a lot of buffers
|
||||||
;; open.
|
;; open.
|
||||||
company-dabbrev-other-buffers nil
|
company-dabbrev-other-buffers nil
|
||||||
|
|
||||||
;; Make `company-dabbrev' fully case-sensitive, to improve UX
|
;; Make `company-dabbrev' fully case-sensitive, to improve UX
|
||||||
;; with domai-specific words with particular casing.
|
;; with domai-specific words with particular casing.
|
||||||
company-dabbrev-ignore-case nil
|
company-dabbrev-ignore-case nil
|
||||||
company-dabbrev-downcase nil))
|
company-dabbrev-downcase nil))
|
||||||
|
|
||||||
(use-package company-dict
|
(use-package company-dict
|
||||||
:defer t
|
:defer t
|
||||||
|
|
@ -339,11 +340,11 @@ the user."
|
||||||
:defer t
|
:defer t
|
||||||
:config
|
:config
|
||||||
(setq company-box-show-single-candidate t
|
(setq company-box-show-single-candidate t
|
||||||
company-box-backends-colors nil
|
company-box-backends-colors nil
|
||||||
company-box-max-candidates 50
|
company-box-max-candidates 50
|
||||||
company-box-icons-alist 'company-box-icons-all-the-icons
|
company-box-icons-alist 'company-box-icons-all-the-icons
|
||||||
company-box-icons-all-the-icons
|
company-box-icons-all-the-icons
|
||||||
(let ((all-the-icons-scale-factor 0.8))
|
(let ((all-the-icons-scale-factor 0.8))
|
||||||
`((Unknown . ,(all-the-icons-material "find_in_page" :face 'all-the-icons-purple))
|
`((Unknown . ,(all-the-icons-material "find_in_page" :face 'all-the-icons-purple))
|
||||||
(Text . ,(all-the-icons-material "text_fields" :face 'all-the-icons-green))
|
(Text . ,(all-the-icons-material "text_fields" :face 'all-the-icons-green))
|
||||||
(Method . ,(all-the-icons-material "functions" :face 'all-the-icons-red))
|
(Method . ,(all-the-icons-material "functions" :face 'all-the-icons-red))
|
||||||
|
|
@ -386,9 +387,9 @@ the user."
|
||||||
:after company
|
:after company
|
||||||
:init
|
:init
|
||||||
(eldoc-add-command 'company-complete-selection
|
(eldoc-add-command 'company-complete-selection
|
||||||
'company-complete-common
|
'company-complete-common
|
||||||
'company-capf
|
'company-capf
|
||||||
'company-abort))
|
'company-abort))
|
||||||
|
|
||||||
(leader/set-keys-for-major-mode 'emacs-lisp-mode
|
(leader/set-keys-for-major-mode 'emacs-lisp-mode
|
||||||
"e" '("eval" . "evaluate expression")
|
"e" '("eval" . "evaluate expression")
|
||||||
|
|
@ -429,10 +430,10 @@ the user."
|
||||||
:straight (:build t)
|
:straight (:build t)
|
||||||
:defer t
|
:defer t
|
||||||
:bind (("M-x" . counsel-M-x)
|
:bind (("M-x" . counsel-M-x)
|
||||||
("C-x b" . counsel-ibuffer)
|
("C-x b" . counsel-ibuffer)
|
||||||
("C-x C-f" . counsel-find-file)
|
("C-x C-f" . counsel-find-file)
|
||||||
:map minibuffer-local-map
|
:map minibuffer-local-map
|
||||||
("C-r" . 'counsel-minibuffer-history)))
|
("C-r" . 'counsel-minibuffer-history)))
|
||||||
|
|
||||||
(use-package helpful
|
(use-package helpful
|
||||||
:straight (:build t)
|
:straight (:build t)
|
||||||
|
|
@ -448,8 +449,7 @@ the user."
|
||||||
|
|
||||||
(use-package bind-map
|
(use-package bind-map
|
||||||
:straight (:build t)
|
:straight (:build t)
|
||||||
:ensure t
|
:defer t)
|
||||||
:defer )
|
|
||||||
|
|
||||||
(use-package hydra
|
(use-package hydra
|
||||||
:straight (:build t)
|
:straight (:build t)
|
||||||
|
|
@ -471,7 +471,6 @@ the user."
|
||||||
("C-c p" . projectile-command-map)
|
("C-c p" . projectile-command-map)
|
||||||
:init
|
:init
|
||||||
;; NOTE: Set this to the folder where you keep your Git repos!
|
;; NOTE: Set this to the folder where you keep your Git repos!
|
||||||
|
|
||||||
(setq projectile-switch-project-action #'projectile-dired))
|
(setq projectile-switch-project-action #'projectile-dired))
|
||||||
|
|
||||||
(use-package counsel-projectile
|
(use-package counsel-projectile
|
||||||
|
|
@ -518,10 +517,11 @@ the user can match one and open it."
|
||||||
|
|
||||||
(use-package pdf-tools
|
(use-package pdf-tools
|
||||||
:defer t
|
:defer t
|
||||||
|
:magic ("%PDF" . pdf-view-mode)
|
||||||
:straight (pdf-tools :build t
|
:straight (pdf-tools :build t
|
||||||
:type git
|
:type git
|
||||||
:host github
|
:host github
|
||||||
:repo "vedang/pdf-tools")
|
:repo "vedang/pdf-tools")
|
||||||
:mode (("\\.pdf\\'" . pdf-view-mode))
|
:mode (("\\.pdf\\'" . pdf-view-mode))
|
||||||
:config
|
:config
|
||||||
(progn
|
(progn
|
||||||
|
|
@ -570,42 +570,41 @@ the user can match one and open it."
|
||||||
:ensure t
|
:ensure t
|
||||||
:config
|
:config
|
||||||
(setq dashboard-banner-logo-title "Phundrak’s Vanilla Emacs"
|
(setq dashboard-banner-logo-title "Phundrak’s Vanilla Emacs"
|
||||||
dashboard-startup-banner 'logo
|
dashboard-startup-banner 'logo
|
||||||
dashboard-center-content t
|
dashboard-center-content t
|
||||||
dashboard-show-shortcuts t
|
dashboard-show-shortcuts t
|
||||||
dashboard-set-navigator t
|
dashboard-set-navigator t
|
||||||
dashboard-set-heading-icons t
|
dashboard-set-heading-icons t
|
||||||
dashboard-set-file-icons t
|
dashboard-set-file-icons t
|
||||||
initial-buffer-choice (lambda () (get-buffer "*dashboard*"))
|
initial-buffer-choice (lambda () (get-buffer "*dashboard*"))
|
||||||
dashboard-projects-switch-function 'counsel-projectile-switch-project-by-name)
|
dashboard-projects-switch-function 'counsel-projectile-switch-project-by-name)
|
||||||
(setq dashboard-navigator-buttons
|
(setq dashboard-navigator-buttons
|
||||||
`(
|
`(((,(all-the-icons-faicon "language" :height 1.1 :v-adjust 0.0)
|
||||||
((,(all-the-icons-faicon "language" :height 1.1 :v-adjust 0.0)
|
"Linguistics website"
|
||||||
"Linguistics website"
|
""
|
||||||
""
|
(lambda (&rest _) (browse-url "https://langue.phundrak.com")))
|
||||||
(lambda (&rest _) (browse-url "https://langue.phundrak.com")))
|
|
||||||
|
|
||||||
(,(all-the-icons-faicon "firefox" :height 1.1 :v-adjust 0.0)
|
(,(all-the-icons-faicon "firefox" :height 1.1 :v-adjust 0.0)
|
||||||
"Config Website"
|
"Config Website"
|
||||||
""
|
""
|
||||||
(lambda (&rest _) (browse-url "https://config.phundrak.com"))))
|
(lambda (&rest _) (browse-url "https://config.phundrak.com"))))
|
||||||
|
|
||||||
((,(all-the-icons-octicon "git-branch" :height 1.1 :v-adjust 0.0)
|
((,(all-the-icons-octicon "git-branch" :height 1.1 :v-adjust 0.0)
|
||||||
"Dotfiles sources"
|
"Dotfiles sources"
|
||||||
""
|
""
|
||||||
(lambda (&rest _) (browse-url "https://labs.phundrak.com/phundrak/dotfiles")))
|
(lambda (&rest _) (browse-url "https://labs.phundrak.com/phundrak/dotfiles")))
|
||||||
("!" "Issues" "Show issues" (lambda (&rest _)
|
("!" "Issues" "Show issues" (lambda (&rest _)
|
||||||
(browse-url "https://labs.phundrak.com/phundrak/dotfiles/issues"))
|
(browse-url "https://labs.phundrak.com/phundrak/dotfiles/issues"))
|
||||||
warning))
|
warning))
|
||||||
((,(all-the-icons-faicon "level-up" :height 1.1 :v-adjust 0.0)
|
((,(all-the-icons-faicon "level-up" :height 1.1 :v-adjust 0.0)
|
||||||
"Update packages"
|
"Update packages"
|
||||||
""
|
""
|
||||||
(lambda (&rest _) (progn
|
(lambda (&rest _) (progn
|
||||||
(require 'straight)
|
(require 'straight)
|
||||||
(straight-pull-all)))))))
|
(straight-pull-all)))))))
|
||||||
|
|
||||||
(setq dashboard-items '((recents . 15)
|
(setq dashboard-items '((recents . 15)
|
||||||
(projects . 10)))
|
(projects . 10)))
|
||||||
(dashboard-setup-startup-hook)
|
(dashboard-setup-startup-hook)
|
||||||
:init
|
:init
|
||||||
(add-hook 'after-init-hook 'dashboard-refresh-buffer))
|
(add-hook 'after-init-hook 'dashboard-refresh-buffer))
|
||||||
|
|
@ -623,59 +622,59 @@ the user can match one and open it."
|
||||||
:init
|
:init
|
||||||
(provide 'html2text)
|
(provide 'html2text)
|
||||||
(when (or (not (require 'mu4e-meta nil t))
|
(when (or (not (require 'mu4e-meta nil t))
|
||||||
(version< mu4e-mu-version "1.4"))
|
(version< mu4e-mu-version "1.4"))
|
||||||
(setq mu4e-maidir "~/.mail"
|
(setq mu4e-maidir "~/.mail"
|
||||||
mu4e-trash-folder "/Trash"
|
mu4e-trash-folder "/Trash"
|
||||||
mu4e-refile-folder "/Archive"
|
mu4e-refile-folder "/Archive"
|
||||||
mu4e-sent-folder "/Sent"
|
mu4e-sent-folder "/Sent"
|
||||||
mu4e-drafts-folder "/Drafts"
|
mu4e-drafts-folder "/Drafts"
|
||||||
mu4e-user-mail-address-list nil))
|
mu4e-user-mail-address-list nil))
|
||||||
(setq mu4e-attachment-dir
|
(setq mu4e-attachment-dir
|
||||||
(lambda (&rest _)
|
(lambda (&rest _)
|
||||||
(expand-file-name ".attachments" (mu4e-roo-maildir))))
|
(expand-file-name ".attachments" (mu4e-roo-maildir))))
|
||||||
:config
|
:config
|
||||||
(setq mu4e-get-mail-command "mbsync -a"
|
(setq mu4e-get-mail-command "mbsync -a"
|
||||||
mu4e-update-interval 60
|
mu4e-update-interval 60
|
||||||
mu4e-compose-format-flowed t
|
mu4e-compose-format-flowed t
|
||||||
mu4e-view-show-addresses t
|
mu4e-view-show-addresses t
|
||||||
mu4e-sent-messages-behaviour 'sent
|
mu4e-sent-messages-behaviour 'sent
|
||||||
mu4e-hide-index-messages t
|
mu4e-hide-index-messages t
|
||||||
;; try to show images
|
;; try to show images
|
||||||
mu4e-view-show-images t
|
mu4e-view-show-images t
|
||||||
mu4e-view-image-max-width 600
|
mu4e-view-image-max-width 600
|
||||||
;; configuration for sending mail
|
;; configuration for sending mail
|
||||||
message-send-mail-function #'smtpmail-send-it
|
message-send-mail-function #'smtpmail-send-it
|
||||||
smtpmail-stream-type 'starttls
|
smtpmail-stream-type 'starttls
|
||||||
message-kill-buffer-on-exit t ; close after sending
|
message-kill-buffer-on-exit t ; close after sending
|
||||||
;; start with the first (default) context
|
;; start with the first (default) context
|
||||||
mu4e-context-policy 'pick-first
|
mu4e-context-policy 'pick-first
|
||||||
;; compose with the current context, or ask
|
;; compose with the current context, or ask
|
||||||
mu4e-compose-context-policy 'ask-if-none
|
mu4e-compose-context-policy 'ask-if-none
|
||||||
;; use ivy
|
;; use ivy
|
||||||
mu4e-completing-read-function #'ivy-completing-read
|
mu4e-completing-read-function #'ivy-completing-read
|
||||||
;; no need to ask
|
;; no need to ask
|
||||||
mu4e-confirm-quit t
|
mu4e-confirm-quit t
|
||||||
mu4e-header-fields
|
mu4e-header-fields
|
||||||
'((:account . 12)
|
'((:account . 12)
|
||||||
(:human-date . 12)
|
(:human-date . 12)
|
||||||
(:flags . 4)
|
(:flags . 4)
|
||||||
(:from . 25)
|
(:from . 25)
|
||||||
(:subject)))
|
(:subject)))
|
||||||
|
|
||||||
;; set mail user agent
|
;; set mail user agent
|
||||||
(setq mail-user-agent 'mu4e-user-agent)
|
(setq mail-user-agent 'mu4e-user-agent)
|
||||||
|
|
||||||
;; Use fancy icons
|
;; Use fancy icons
|
||||||
(setq mu4e-use-fancy-chars t
|
(setq mu4e-use-fancy-chars t
|
||||||
mu4e-headers-draft-mark `("D" . ,(all-the-icons-faicon "pencil":height 0.8))
|
mu4e-headers-draft-mark `("D" . ,(all-the-icons-faicon "pencil":height 0.8))
|
||||||
mu4e-headers-flagged-mark `("F" . ,(all-the-icons-faicon "flag":height 0.8))
|
mu4e-headers-flagged-mark `("F" . ,(all-the-icons-faicon "flag":height 0.8))
|
||||||
mu4e-headers-new-mark `("N" . ,(all-the-icons-faicon "rss":height 0.8))
|
mu4e-headers-new-mark `("N" . ,(all-the-icons-faicon "rss":height 0.8))
|
||||||
mu4e-headers-passed-mark `("P" . ,(all-the-icons-faicon "check":height 0.8))
|
mu4e-headers-passed-mark `("P" . ,(all-the-icons-faicon "check":height 0.8))
|
||||||
mu4e-headers-replied-mark `("R" . ,(all-the-icons-faicon "reply":height 0.8))
|
mu4e-headers-replied-mark `("R" . ,(all-the-icons-faicon "reply":height 0.8))
|
||||||
mu4e-headers-seen-mark `("S" . ,(all-the-icons-faicon "eye":height 0.8))
|
mu4e-headers-seen-mark `("S" . ,(all-the-icons-faicon "eye":height 0.8))
|
||||||
mu4e-headers-unread-mark `("u" . ,(all-the-icons-faicon "eye-slash":height 0.8))
|
mu4e-headers-unread-mark `("u" . ,(all-the-icons-faicon "eye-slash":height 0.8))
|
||||||
mu4e-headers-trashed-mark `("T" . ,(all-the-icons-faicon "trash":height 0.8))
|
mu4e-headers-trashed-mark `("T" . ,(all-the-icons-faicon "trash":height 0.8))
|
||||||
mu4e-headers-attach-mark `("a" . ,(all-the-icons-faicon "paperclip":height 0.8))
|
mu4e-headers-attach-mark `("a" . ,(all-the-icons-faicon "paperclip":height 0.8))
|
||||||
mu4e-headers-encrypted-mark `("x" . ,(all-the-icons-faicon "lock":height 0.8))
|
mu4e-headers-encrypted-mark `("x" . ,(all-the-icons-faicon "lock":height 0.8))
|
||||||
mu4e-headers-signed-mark `("s" . ,(all-the-icons-faicon "certificate":height 0.8)))
|
mu4e-headers-signed-mark `("s" . ,(all-the-icons-faicon "certificate":height 0.8)))
|
||||||
|
|
||||||
|
|
@ -736,8 +735,8 @@ the user can match one and open it."
|
||||||
:hook (mu4e-compose-pre . org-msg-mode)
|
:hook (mu4e-compose-pre . org-msg-mode)
|
||||||
:config
|
:config
|
||||||
(setq org-msg-startup "inlineimages"
|
(setq org-msg-startup "inlineimages"
|
||||||
org-msg-greeting-name-limit 3
|
org-msg-greeting-name-limit 3
|
||||||
org-msg-default-alternatives '(html text)))
|
org-msg-default-alternatives '(html text)))
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;; Org
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;; Org
|
||||||
|
|
||||||
|
|
@ -747,8 +746,8 @@ the user can match one and open it."
|
||||||
:hook (org-mode . org-appear-mode)
|
:hook (org-mode . org-appear-mode)
|
||||||
:config
|
:config
|
||||||
(setq org-appear-autoemphasis t
|
(setq org-appear-autoemphasis t
|
||||||
org-appear-autolinks t
|
org-appear-autolinks t
|
||||||
org-appear-autosubmarkers t)
|
org-appear-autosubmarkers t)
|
||||||
(run-at-time nil nil #'org-appear--set-elements)
|
(run-at-time nil nil #'org-appear--set-elements)
|
||||||
:defer t)
|
:defer t)
|
||||||
|
|
||||||
|
|
@ -758,14 +757,13 @@ the user can match one and open it."
|
||||||
:hook (org-mode . org-superstar-mode)
|
:hook (org-mode . org-superstar-mode)
|
||||||
:config
|
:config
|
||||||
(setq org-superstar-leading-bullet ?\s
|
(setq org-superstar-leading-bullet ?\s
|
||||||
org-superstar-leading-fallback ?\s
|
org-superstar-leading-fallback ?\s
|
||||||
org-hide-leading-stars nil
|
org-hide-leading-stars nil
|
||||||
org-superstar-todo-bullet-alist
|
org-superstar-todo-bullet-alist
|
||||||
'(("TODO" . 9744)
|
'(("TODO" . 9744)
|
||||||
("[ ]" . 9744)
|
("[ ]" . 9744)
|
||||||
("DONE" . 9745)
|
("DONE" . 9745)
|
||||||
("[X]" . 9745))))
|
("[X]" . 9745))))
|
||||||
|
|
||||||
|
|
||||||
(use-package org-fancy-priorities
|
(use-package org-fancy-priorities
|
||||||
:straight (:build t)
|
:straight (:build t)
|
||||||
|
|
@ -773,8 +771,8 @@ the user can match one and open it."
|
||||||
:hook (org-agenda-mode . org-fancy-priorities-mode)
|
:hook (org-agenda-mode . org-fancy-priorities-mode)
|
||||||
:config
|
:config
|
||||||
(setq org-fancy-priorities-list `(,(all-the-icons-faicon "flag" :height 1.1 :v-adjust 0.0)
|
(setq org-fancy-priorities-list `(,(all-the-icons-faicon "flag" :height 1.1 :v-adjust 0.0)
|
||||||
,(all-the-icons-faicon "arrow-up" :height 1.1 :v-adjust 0.0)
|
,(all-the-icons-faicon "arrow-up" :height 1.1 :v-adjust 0.0)
|
||||||
,(all-the-icons-faicon "square" :height 1.1 :v-adjust 0.0))))
|
,(all-the-icons-faicon "square" :height 1.1 :v-adjust 0.0))))
|
||||||
|
|
||||||
(use-package evil-nerd-commenter
|
(use-package evil-nerd-commenter
|
||||||
:straight (:build t)
|
:straight (:build t)
|
||||||
|
|
@ -794,7 +792,7 @@ the user can match one and open it."
|
||||||
(split-window-right)
|
(split-window-right)
|
||||||
(windmove-right)
|
(windmove-right)
|
||||||
(when (and (boundp 'golden-ratio-mode)
|
(when (and (boundp 'golden-ratio-mode)
|
||||||
(symbol-value golden-ratio-mode))
|
(symbol-value golden-ratio-mode))
|
||||||
(golden-ratio)))
|
(golden-ratio)))
|
||||||
|
|
||||||
(defun split-window-below-and-focus ()
|
(defun split-window-below-and-focus ()
|
||||||
|
|
@ -802,7 +800,7 @@ the user can match one and open it."
|
||||||
(split-window-below)
|
(split-window-below)
|
||||||
(windmove-down)
|
(windmove-down)
|
||||||
(when (and (boundp 'golden-ratio-mode)
|
(when (and (boundp 'golden-ratio-mode)
|
||||||
(symbol-value golden-ratio-mode))
|
(symbol-value golden-ratio-mode))
|
||||||
(golden-ratio)))
|
(golden-ratio)))
|
||||||
|
|
||||||
(defun ibuffer-list-buffers-and-focus ()
|
(defun ibuffer-list-buffers-and-focus ()
|
||||||
|
|
@ -810,7 +808,7 @@ the user can match one and open it."
|
||||||
(ibuffer-list-buffers)
|
(ibuffer-list-buffers)
|
||||||
(windmove-down)
|
(windmove-down)
|
||||||
(when (and (boundp 'golden-ratio-mode)
|
(when (and (boundp 'golden-ratio-mode)
|
||||||
(symbol-value golden-ratio-mode))
|
(symbol-value golden-ratio-mode))
|
||||||
(golden-ratio)))
|
(golden-ratio)))
|
||||||
|
|
||||||
(defun eshell-new ()
|
(defun eshell-new ()
|
||||||
|
|
@ -835,8 +833,8 @@ the user can match one and open it."
|
||||||
"bD" #'kill-buffer
|
"bD" #'kill-buffer
|
||||||
"bh" #'dashboard-refresh-buffer
|
"bh" #'dashboard-refresh-buffer
|
||||||
"bs" (lambda ()
|
"bs" (lambda ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(switch-to-buffer "*scratch*"))
|
(switch-to-buffer "*scratch*"))
|
||||||
|
|
||||||
"c" "code"
|
"c" "code"
|
||||||
"cl" #'evilnc-comment-or-uncomment-lines
|
"cl" #'evilnc-comment-or-uncomment-lines
|
||||||
|
|
@ -872,10 +870,10 @@ the user can match one and open it."
|
||||||
"w-" #'split-window-below-and-focus
|
"w-" #'split-window-below-and-focus
|
||||||
"w/" #'split-window-right-and-focus
|
"w/" #'split-window-right-and-focus
|
||||||
"wb" (lambda ()
|
"wb" (lambda ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(progn
|
(progn
|
||||||
(kill-this-buffer)
|
(kill-this-buffer)
|
||||||
(delete-window)))
|
(delete-window)))
|
||||||
"wd" #'delete-window
|
"wd" #'delete-window
|
||||||
"wD" #'delete-other-windows
|
"wD" #'delete-other-windows
|
||||||
"wo" #'other-window
|
"wo" #'other-window
|
||||||
|
|
|
||||||
|
|
@ -30,8 +30,8 @@ find interesting. I’ll describe them in more details below.
|
||||||
- [[file:tmux.org][Tmux configuration]]
|
- [[file:tmux.org][Tmux configuration]]
|
||||||
|
|
||||||
As you can see, I personally use [[https://fishshell.com/][fish]] as my shell of choice, and [[https://www.gnu.org/software/emacs/][Emacs]] 28.0
|
As you can see, I personally use [[https://fishshell.com/][fish]] as my shell of choice, and [[https://www.gnu.org/software/emacs/][Emacs]] 28.0
|
||||||
using [[http://spacemacs.org][Spacemacs]] (still with Emacs keybinding in insert mode but with Evil in
|
using [[http://spacemacs.org][Spacemacs]] (still with Emacs keybinding in insert mode but with Evil in
|
||||||
normal mode) as my main text editor.
|
normal mode) as my main text editor.
|
||||||
|
|
||||||
When it comes to my graphical UI, I do not have any desktop environment.
|
When it comes to my graphical UI, I do not have any desktop environment.
|
||||||
Instead, I have a tiling window manager, [[https://awesomewm.org/][Awesome]]. I used to use [[https://github.com/Airblader/i3][i3-gaps]], an [[https://i3wm.org/][i3]]
|
Instead, I have a tiling window manager, [[https://awesomewm.org/][Awesome]]. I used to use [[https://github.com/Airblader/i3][i3-gaps]], an [[https://i3wm.org/][i3]]
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue