diff options
Diffstat (limited to '')
| -rw-r--r-- | emacs | 7 | ||||
| -rw-r--r-- | emacs.d/custom.el | 14 |
2 files changed, 17 insertions, 4 deletions
@@ -313,7 +313,7 @@ (lambda () (add-hook 'before-save-hook 'eglot-format nil t))) -(add-hook 'typescript-ts-mode-hook 'eglot-ensure) +(add-hook 'typescript-mode-hook 'eglot-ensure) (setq-default indent-tabs-mode nil tab-stop-list () tab-width 2) @@ -356,6 +356,7 @@ (add-to-list 'auto-mode-alist '("\\.json\\'" . json-mode)) (add-to-list 'auto-mode-alist '("\\.ml\\'" . tuareg-mode)) (add-to-list 'auto-mode-alist '("\\.mli\\'" . tuareg-mode)) +(add-to-list 'auto-mode-alist '("emacs" . emacs-lisp-mode)) '(eglot-extend-to-xref t) '(eglot-autoreconnect t) @@ -554,6 +555,8 @@ (require 'org) (transient-mark-mode 1) (add-hook 'org-mode-hook 'variable-pitch-mode) +;; Use with aspell +(setq ispell-list-command "--list") (add-hook 'org-mode-hook 'flyspell-mode) (add-hook 'org-mode-hook 'visual-line-mode) @@ -576,7 +579,7 @@ (expand-file-name fpath))) (setq org-capture-templates - `(("t" "Todo" entry (file+headline "~/marcvault/todo.org" "Tasks") + `(("t" "Todo" entry (file "~/marcvault/todo.org" ) "* TODO %?\n %i\n %a") ("u" "Usage" entry (file "~/marcvault/usage-tips.org") "* %?\n" diff --git a/emacs.d/custom.el b/emacs.d/custom.el index 53651ca..0cc0520 100644 --- a/emacs.d/custom.el +++ b/emacs.d/custom.el @@ -56,13 +56,21 @@ '(meow-esc-mode t) '(meow-global-mode t) '(mode-line-compact 'long) + '(mode-line-format + '("%e" mode-line-front-space + (:propertize + ("" mode-line-modified) + (min-width + (5.0))) + (vc-mode vc-mode) + mode-line-frame-identification mode-line-buffer-identification)) '(mode-line-percent-position nil) '(mode-line-position-line-format '(" ")) '(mu4e-modeline-mode nil) '(org-babel-load-languages '((emacs-lisp . t) (lisp . t) (shell . t))) '(org-fold-core-style 'overlays) '(package-selected-packages - '(typescript-mode slime eat avy monotropic-theme tempel vundo add-node-modules-path prettier password-store vc-fossil eldoc-box mu4e direnv elpher w3m elfeed-protocol elfeed ligature copilot f editorconfig s quelpa-use-package quelpa org-mime org-journal which-key consult orderless vertico markdown-mode smartparens tree-sitter-langs diff-hl magit corfu rg almost-mono-themes git-ps1-mode meow)) + '(slime eat avy monotropic-theme tempel vundo add-node-modules-path prettier password-store vc-fossil eldoc-box mu4e direnv elpher w3m elfeed-protocol elfeed ligature copilot f editorconfig s quelpa-use-package quelpa org-mime org-journal which-key consult orderless vertico markdown-mode smartparens tree-sitter-langs diff-hl magit corfu rg almost-mono-themes git-ps1-mode meow)) '(project-switch-commands '((project-find-file "Find file" nil) (project-find-regexp "Find regexp" nil) @@ -175,8 +183,9 @@ '(gnus-header-from ((t (:inherit gnus-header)))) '(gnus-header-name ((t (:inherit gnus-header)))) '(gnus-header-subject ((t (:inherit gnus-header)))) + '(gnus-summary-cancelled ((t (:extend t :strike-through t)))) '(god-mode-lighter ((t (:inherit error)))) - '(header-line ((t (:inherit mode-line :background "#FFFFFF" :foreground "grey20" :box (:line-width (4 . 4) :color "#FFFFFF" :style flat-button) :underline (:color "grey" :style line :position t) :family "Iosevka Aile")))) + '(header-line ((t (:inherit mode-line :background "#FFFFFF" :foreground "grey20" :box (:line-width (4 . 4) :color "#FFFFFF" :style flat-button) :overline nil :underline (:color "grey" :style line :position t) :family "Iosevka Aile")))) '(highlight ((t (:background "azure2")))) '(line-number ((t (:foreground "#999999")))) '(markdown-code-face ((t nil))) @@ -185,6 +194,7 @@ '(meow-position-highlight-number ((t (:inherit default :background "grey80" :foreground "white")))) '(mode-line ((t (:background "#FFFFFF" :foreground "#000000" :box (:line-width (4 . 4) :color "#FFFFFF" :style flat-button) :overline "grey" :height 0.8 :family "Iosevka Aile")))) '(mode-line-inactive ((t (:background "#ffffff" :foreground "#dddddd" :box (:line-width (4 . 4) :color "#ffffff") :overline "grey" :height 0.8 :family "Iosevka Aile")))) + '(org-imminent-deadline ((t nil))) '(show-paren-match ((t (:background "gainsboro" :foreground "green" :slant oblique :weight bold)))) '(tab-bar ((t (:family "Iosevka Aile" :background "#FFF" :foreground "black" :box (:line-width (4 . 4) :color "#FFF") :height 0.9)))) '(tab-bar-tab ((t (:inherit tab-bar :box nil)))) |