346 lines
12 KiB
Org Mode
346 lines
12 KiB
Org Mode
* Benchmark
|
|
#+begin_src emacs-lisp :tangle packages.el
|
|
(package! benchmark-init)
|
|
#+end_src
|
|
#+begin_src emacs-lisp
|
|
(use-package! benchmark-init
|
|
:ensure t
|
|
:config
|
|
;; To disable collection of benchmark data after init is done.
|
|
(add-hook 'after-init-hook 'benchmark-init/deactivate))
|
|
#+end_src
|
|
* My doom config
|
|
** Meow
|
|
#+begin_src emacs-lisp
|
|
(setf meow-expand-hint-remove-delay 0)
|
|
#+end_src
|
|
** Keybindings
|
|
#+begin_src emacs-lisp
|
|
(setq duplicate-line-final-position 1)
|
|
(map! :map meow-normal-state-keymap
|
|
"M-p" 'duplicate-dwim
|
|
:desc "Duplicate line/region")
|
|
|
|
(map! :map meow-normal-state-keymap
|
|
:leader "y" 'copy-from-above-command
|
|
:desc "Copy from above")
|
|
|
|
(map! :map meow-normal-state-keymap
|
|
"s-k" 'kill-current-buffer
|
|
:desc "Kill current buffer")
|
|
#+end_src
|
|
** Appearance settings
|
|
#+begin_src emacs-lisp
|
|
(pcase system-type
|
|
('darwin ; macOS
|
|
(setq doom-font (font-spec :family "Maple Mono" :size 20))
|
|
(add-to-list 'default-frame-alist '(height . 53))
|
|
(add-to-list 'default-frame-alist '(width . 120)))
|
|
|
|
('gnu/linux ; Linux (including Debian)
|
|
(setq doom-font (font-spec :family "Maple Mono" :size 24)) ; 20 * 1.5
|
|
(add-to-list 'default-frame-alist '(height . 40))
|
|
(add-to-list 'default-frame-alist '(width . 100))))
|
|
|
|
(setq catppuccin-flavor 'catppuccin)
|
|
(setq doom-theme 'doom-material-dark)
|
|
(setq display-line-numbers-type 'relative)
|
|
(setq org-directory "~/org/")
|
|
#+end_src
|
|
*** Themes
|
|
**** ef-themes
|
|
#+begin_src emacs-lisp :tangle packages.el
|
|
(package! ef-themes)
|
|
#+end_src
|
|
#+begin_src emacs-lisp
|
|
;; (use-package! ef-themes
|
|
;; :ensure t
|
|
;; :init
|
|
;; ;; This makes the Modus commands listed below consider only the Ef
|
|
;; ;; themes. For an alternative that includes Modus and all
|
|
;; ;; derivative themes (like Ef), enable the
|
|
;; ;; `modus-themes-include-derivatives-mode' instead. The manual of
|
|
;; ;; the Ef themes has a section that explains all the possibilities:
|
|
;; ;;
|
|
;; ;; - Evaluate `(info "(ef-themes) Working with other Modus themes or taking over Modus")'
|
|
;; ;; - Visit <https://protesilaos.com/emacs/ef-themes#h:6585235a-5219-4f78-9dd5-6a64d87d1b6e>
|
|
;; (ef-themes-take-over-modus-themes-mode 1)
|
|
;; :bind
|
|
;; (("<f5>" . modus-themes-rotate)
|
|
;; ("C-<f5>" . modus-themes-select)
|
|
;; ("M-<f5>" . modus-themes-load-random))
|
|
;; :config
|
|
;; ;; All customisations here.
|
|
;; (setq modus-themes-mixed-fonts t)
|
|
;; (setq modus-themes-italic-constructs t)
|
|
|
|
;; ;; ;; Finally, load your theme of choice (or a random one with
|
|
;; ;; ;; `modus-themes-load-random', `modus-themes-load-random-dark',
|
|
;; ;; ;; `modus-themes-load-random-light').
|
|
;; ;; (modus-themes-load-theme 'ef-light)
|
|
;; )
|
|
#+end_src
|
|
|
|
**** catppuccin
|
|
#+begin_src emacs-lisp :tangle packages.el
|
|
(package! catppuccin-theme)
|
|
#+end_src
|
|
|
|
*** Nano modeline
|
|
#+begin_src emacs-lisp :tangle no
|
|
(package! nano-modeline)
|
|
#+end_src
|
|
#+begin_src emacs-lisp :tangle no
|
|
(use-package! nano-modeline
|
|
:config
|
|
(add-hook 'prog-mode-hook #'nano-modeline-prog-mode)
|
|
(add-hook 'text-mode-hook #'nano-modeline-text-mode)
|
|
(add-hook 'org-mode-hook #'nano-modeline-org-mode)
|
|
(add-hook 'pdf-view-mode-hook #'nano-modeline-pdf-mode)
|
|
(add-hook 'mu4e-headers-mode-hook #'nano-modeline-mu4e-headers-mode)
|
|
(add-hook 'mu4e-view-mode-hook #'nano-modeline-mu4e-message-mode)
|
|
(add-hook 'elfeed-show-mode-hook #'nano-modeline-elfeed-entry-mode)
|
|
(add-hook 'elfeed-search-mode-hook #'nano-modeline-elfeed-search-mode)
|
|
(add-hook 'term-mode-hook #'nano-modeline-term-mode)
|
|
(add-hook 'xwidget-webkit-mode-hook #'nano-modeline-xwidget-mode)
|
|
(add-hook 'messages-buffer-mode-hook #'nano-modeline-message-mode)
|
|
(add-hook 'org-capture-mode-hook #'nano-modeline-org-capture-mode)
|
|
(add-hook 'org-agenda-mode-hook #'nano-modeline-org-agenda-mode)
|
|
(global-hide-mode-line-mode t))
|
|
#+end_src
|
|
** Plugins
|
|
*** Yasnippet
|
|
This enables the feature of auto-expanding snippets when matching the pattern
|
|
|
|
#+begin_src emacs-lisp
|
|
(use-package! yasnippet
|
|
:config
|
|
(defun my-yas-try-expanding-auto-snippets ()
|
|
(when yas-minor-mode
|
|
(let ((yas-buffer-local-condition ''(require-snippet-condition . auto)))
|
|
(yas-expand))))
|
|
(add-hook 'post-command-hook #'my-yas-try-expanding-auto-snippets)
|
|
)
|
|
#+end_src
|
|
|
|
*** Rainbow delimiters
|
|
#+begin_src emacs-lisp :tangle packages.el
|
|
(package! rainbow-delimiters)
|
|
#+end_src
|
|
#+begin_src emacs-lisp
|
|
(use-package! rainbow-delimiters
|
|
:hook ((prog-mode . rainbow-delimiters-mode)
|
|
(typst-ts-mode . rainbow-delimiters-mode)
|
|
(foo-mode . rainbow-delimiters-mode)))
|
|
#+end_src
|
|
*** Leetcode
|
|
#+begin_src emacs-lisp :tangle packages.el
|
|
(package! leetcode)
|
|
#+end_src
|
|
*** gptel
|
|
|
|
#+begin_src emacs-lisp
|
|
(use-package! gptel
|
|
:config
|
|
(setq! gptel-api-key "e994f45f9b46cc8608bd2e9cd508417255514e96913b1764aab612512aa66449")
|
|
(setq gptel-model 'claude-sonnet-4.5)
|
|
(setq gptel-backend (gptel-make-gh-copilot "Copilot"))
|
|
)
|
|
#+end_src
|
|
*** Centaur tabs
|
|
#+begin_src emacs-lisp
|
|
(map! :map meow-normal-state-keymap
|
|
:leader "w l" 'centaur-tabs-forward)
|
|
(map! :map meow-normal-state-keymap
|
|
:leader "w h" 'centaur-tabs-backward)
|
|
|
|
#+end_src
|
|
|
|
** Lang
|
|
*** Typst
|
|
**** Tree-sitter
|
|
#+begin_src emacs-lisp :tangle packages.el
|
|
(package! typst-ts-mode :recipe (:host codeberg :repo "meow_king/typst-ts-mode"))
|
|
#+end_src
|
|
|
|
#+begin_src emacs-lisp
|
|
(use-package! typst-ts-mode
|
|
:init
|
|
(add-hook 'typst-ts-mode-hook #'eglot-ensure)
|
|
:custom
|
|
;; (typst-ts-watch-options "--open")
|
|
(typst-ts-mode-grammar-location (expand-file-name "tree-sitter/libtree-sitter-typst.so" user-emacs-directory))
|
|
(typst-ts-mode-enable-raw-blocks-highlight t)
|
|
:config
|
|
(keymap-set typst-ts-mode-map "C-c C-c" #'typst-ts-tmenu))
|
|
#+end_src
|
|
|
|
**** Tinymist (lsp)
|
|
#+begin_src emacs-lisp
|
|
(with-eval-after-load 'eglot
|
|
(with-eval-after-load 'typst-ts-mode
|
|
(add-to-list 'eglot-server-programs
|
|
`((typst-ts-mode) .
|
|
,(eglot-alternatives `(,"tinymist"
|
|
"typst-lsp"))))))
|
|
#+end_src
|
|
|
|
**** Live-preview
|
|
#+begin_src emacs-lisp :tangle packages.el
|
|
(package! typst-preview
|
|
:recipe (:host github :repo "havarddj/typst-preview.el"))
|
|
#+end_src
|
|
|
|
***** Config
|
|
#+begin_src emacs-lisp
|
|
(use-package! websocket)
|
|
(use-package! typst-preview
|
|
;; :load-path "path/to/typst-preview.el" ;; if installed manually
|
|
:init
|
|
(setq typst-preview-autostart t) ; start preview automatically when typst-preview-mode is activated
|
|
(setq typst-preview-open-browser-automatically t) ; open browser automatically when typst-preview-start is run
|
|
|
|
:custom
|
|
(typst-preview-browser "default") ; this is the default option; other options are `eaf-browser' or `xwidget'.
|
|
(typst-preview-invert-colors "auto") ; invert colors depending on system theme
|
|
(typst-preview-executable "tinymist") ; path to tinymist binary (relative or absolute)
|
|
(typst-preview-partial-rendering t) ; enable partial rendering
|
|
|
|
:config
|
|
(define-key typst-preview-mode-map (kbd "C-c C-j") 'typst-preview-send-position)
|
|
(define-key typst-ts-mode-map (kbd "C-c C-l") #'typst-preview-mode)
|
|
)
|
|
#+end_src
|
|
|
|
*** Latex
|
|
**** TeXpresso
|
|
#+begin_src emacs-lisp :tangle no
|
|
(load-file "lisp/texpresso/texpresso.el")
|
|
#+end_src
|
|
*** Org
|
|
#+begin_src emacs-lisp :tangle packages.el
|
|
(package! org :recipe
|
|
(:host nil :repo "https://code.tecosaur.net/mirrors/org-mode.git" :remote "mirror" :fork
|
|
(:host nil :repo "https://code.tecosaur.net/tec/org-mode.git" :branch "dev" :remote "tecosaur")
|
|
:files
|
|
(:defaults "etc")
|
|
:build t :pre-build
|
|
(with-temp-file "org-version.el"
|
|
(require 'lisp-mnt)
|
|
(let
|
|
((version
|
|
(with-temp-buffer
|
|
(insert-file-contents "lisp/org.el")
|
|
(lm-header "version")))
|
|
(git-version
|
|
(string-trim
|
|
(with-temp-buffer
|
|
(call-process "git" nil t nil "rev-parse" "--short" "HEAD")
|
|
(buffer-string)))))
|
|
(insert
|
|
(format "(defun org-release () \"The release version of Org.\" %S)\n" version)
|
|
(format "(defun org-git-version () \"The truncate git commit hash of Org mode.\" %S)\n" git-version)
|
|
"(provide 'org-version)\n"))))
|
|
:pin nil)
|
|
|
|
(unpin! org)
|
|
#+end_src
|
|
**** Latex live-preview (fast)
|
|
1. delete all org-* packages from emacs (can be done by deleting folders in .local/straight)
|
|
2. delete eln-cache
|
|
3. doom sync -u
|
|
|
|
#+begin_src emacs-lisp
|
|
(use-package org-latex-preview
|
|
:hook ((org-mode . org-latex-preview-mode)
|
|
(org-latex-preview-mode . org-latex-preview-center-mode))
|
|
:config
|
|
;; Increase preview width
|
|
;; (plist-put org-latex-preview-appearance-options
|
|
;; :page-width 0.8)
|
|
|
|
;; ;; Enable consistent equation numbering
|
|
(setq org-latex-preview-numbered t)
|
|
|
|
;; Bonus: Turn on live previews. This shows you a live preview of a LaTeX
|
|
;; fragment and updates the preview in real-time as you edit it.
|
|
;; To preview only environments, set it to '(block edit-special) instead
|
|
(setq org-latex-preview-mode-display-live t)
|
|
|
|
;; More immediate live-previews -- the default delay is 1 second
|
|
(setq org-latex-preview-mode-update-delay 0)
|
|
|
|
;; code for centering LaTeX previews -- a terrible idea
|
|
(defun my/org-latex-preview-uncenter (ov)
|
|
(overlay-put ov 'before-string nil))
|
|
(defun my/org-latex-preview-recenter (ov)
|
|
(overlay-put ov 'before-string (overlay-get ov 'justify)))
|
|
(defun my/org-latex-preview-center (ov)
|
|
(save-excursion
|
|
(goto-char (overlay-start ov))
|
|
(when-let* ((elem (org-element-context))
|
|
((or (eq (org-element-type elem) 'latex-environment)
|
|
(string-match-p "^\\\\\\[" (org-element-property :value elem))))
|
|
(img (overlay-get ov 'display))
|
|
(prop `(space :align-to (- center (0.55 . ,img))))
|
|
(justify (propertize " " 'display prop 'face 'default)))
|
|
(overlay-put ov 'justify justify)
|
|
(overlay-put ov 'before-string (overlay-get ov 'justify)))))
|
|
(define-minor-mode org-latex-preview-center-mode
|
|
"Center equations previewed with `org-latex-preview'."
|
|
:global nil
|
|
(if org-latex-preview-center-mode
|
|
(progn
|
|
(add-hook 'org-latex-preview-overlay-open-functions
|
|
#'my/org-latex-preview-uncenter nil :local)
|
|
(add-hook 'org-latex-preview-overlay-close-functions
|
|
#'my/org-latex-preview-recenter nil :local)
|
|
(add-hook 'org-latex-preview-overlay-update-functions
|
|
#'my/org-latex-preview-center nil :local))
|
|
(remove-hook 'org-latex-preview-overlay-close-functions
|
|
#'my/org-latex-preview-recenter)
|
|
(remove-hook 'org-latex-preview-overlay-update-functions
|
|
#'my/org-latex-preview-center)
|
|
(remove-hook 'org-latex-preview-overlay-open-functions
|
|
#'my/org-latex-preview-uncenter)))
|
|
)
|
|
#+end_src
|
|
**** org habit
|
|
#+begin_src emacs-lisp
|
|
(add-to-list 'org-modules 'org-habit)
|
|
#+end_src
|
|
**** Org modern
|
|
#+begin_src emacs-lisp
|
|
(use-package! org-modern
|
|
:config
|
|
(setq org-modern-table nil))
|
|
#+end_src
|
|
**** Org capture template
|
|
#+begin_src emacs-lisp
|
|
(setq org-capture-templates
|
|
'(("t" "Personal todo" entry (file+headline +org-capture-todo-file "Inbox")
|
|
"* TODO %?\n%i\n%a" :prepend t)
|
|
("n" "Personal notes" entry (file+headline +org-capture-notes-file "Inbox")
|
|
"* %u %?\n%i\n%a" :prepend t)
|
|
("j" "Journal" entry (file+olp+datetree +org-capture-journal-file)
|
|
"* %U %?\n%i\n%a" :prepend t)
|
|
("p" "Templates for projects")
|
|
("pt" "Project-local todo" entry
|
|
(file+headline +org-capture-project-todo-file "Inbox") "* TODO %?\n%i\n%a"
|
|
:prepend t)
|
|
("pn" "Project-local notes" entry
|
|
(file+headline +org-capture-project-notes-file "Inbox") "* %U %?\n%i\n%a"
|
|
:prepend t)
|
|
("pc" "Project-local changelog" entry
|
|
(file+headline +org-capture-project-changelog-file "Unreleased")
|
|
"* %U %?\n%i\n%a" :prepend t)
|
|
("o" "Centralized templates for projects")
|
|
("ot" "Project todo" entry #'+org-capture-central-project-todo-file
|
|
"* TODO %?\n %i\n %a" :heading "Tasks" :prepend nil)
|
|
("on" "Project notes" entry #'+org-capture-central-project-notes-file
|
|
"* %U %?\n %i\n %a" :heading "Notes" :prepend t)
|
|
("oc" "Project changelog" entry #'+org-capture-central-project-changelog-file
|
|
"* %U %?\n %i\n %a" :heading "Changelog" :prepend t))
|
|
)
|
|
#+end_src
|