594 lines
15 KiB
Org Mode
594 lines
15 KiB
Org Mode
#+options: ':nil *:t -:t ::t <:t H:3 \n:nil ^:t arch:headline
|
|
#+options: author:t broken-links:nil c:nil creator:nil
|
|
#+options: d:(not "LOGBOOK") date:t e:t email:nil f:t inline:t num:t
|
|
#+options: p:nil pri:nil prop:nil stat:t tags:t tasks:t tex:t
|
|
#+options: timestamp:t title:t toc:t todo:t |:t
|
|
#+title: Universe Emacs Config
|
|
#+author:
|
|
#+language: en
|
|
|
|
* Initialization
|
|
|
|
** Leaf.el
|
|
|
|
We must initialize =leaf.el=, which we use as a use-package
|
|
replacement for defining configs and relations between packages etc.
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(eval-and-compile
|
|
(customize-set-variable
|
|
'package-archives '(("org" . "https://orgmode.org/elpa/")
|
|
("melpa" . "https://melpa.org/packages/")
|
|
("gnu" . "https://elpa.gnu.org/packages/")))
|
|
(package-initialize)
|
|
(unless (package-installed-p 'leaf)
|
|
(package-refresh-contents)
|
|
(package-install 'leaf))
|
|
|
|
(leaf leaf-keywords
|
|
:ensure t
|
|
:init
|
|
(leaf el-get :ensure t)
|
|
(leaf hydra :ensure t)
|
|
(leaf blackout :ensure t)
|
|
|
|
:config
|
|
;; initialize leaf-keywords.el
|
|
(leaf-keywords-init)))
|
|
|
|
(leaf leaf-tree :ensure t)
|
|
(leaf leaf-convert :ensure t)
|
|
(leaf transient-dwim :ensure t
|
|
:bind (("M-=" . transient-dwim-dispatch)))
|
|
#+end_src
|
|
|
|
** MacOS Specific
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf macos
|
|
:hook (after-init hook)
|
|
:when (eq system-type 'darwin)
|
|
:init
|
|
(setq mac-option-modifier 'meta))
|
|
#+end_src
|
|
|
|
** Performance
|
|
|
|
*** Garbage Collection
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf gcmh :ensure t
|
|
:hook (after-init-hook))
|
|
#+end_src
|
|
|
|
*** Profiling
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf esup :disabled nil :ensure t)
|
|
#+end_src
|
|
|
|
** Emacs Paths
|
|
|
|
*** Custom.el
|
|
|
|
Ensure that the =custom.el= resides in the users' emacs directory.
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf custom-el
|
|
:config
|
|
;; Ensure custom writes to specific file
|
|
(setq custom-file (expand-file-name "custom.el" user-emacs-directory))
|
|
(load custom-file 'noerror 'nomessage))
|
|
#+end_src
|
|
|
|
*** Backups
|
|
|
|
Set the backups directory to reside in the users' emacs directory.
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf backup
|
|
:config
|
|
;; Change the location of file backups/locks into the emacs.d/backups/
|
|
(setq backup-directory-alist
|
|
`(("." . ,(concat user-emacs-directory "backups")))))
|
|
#+end_src
|
|
|
|
** Shell Path Preservation
|
|
|
|
Exec-path-from-shell ensures that path variable is preserved from
|
|
shell.
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf exec-path-from-shell :ensure t
|
|
:config
|
|
(exec-path-from-shell-initialize))
|
|
#+end_src
|
|
|
|
* Visual Customization
|
|
|
|
Visual Theme of Emacs config: defined in the =themes= directory.
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf visual
|
|
:doc "Visual Changes to Emacs"
|
|
:tag "builtin" "internal"
|
|
:custom ((menu-bar-mode . nil)
|
|
(tool-bar-mode . nil)
|
|
(scroll-bar-mode . nil))
|
|
:custom-face ((default . '((t (:family "JuliaMono"
|
|
:height 150
|
|
:weight normal)))))
|
|
:config
|
|
;; Set location of custom theme dir
|
|
(setq custom-theme-directory (concat user-emacs-directory "themes"))
|
|
(load-theme 'UniverseHighContrast))
|
|
#+end_src
|
|
|
|
* Version Control
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf magit :ensure t :require t)
|
|
#+end_src
|
|
|
|
* Nix Related
|
|
|
|
** Direnv
|
|
|
|
In order to support direnv (loading =nix-shell= / =nix develop=)
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf direnv
|
|
:ensure t
|
|
:config
|
|
(direnv-mode))
|
|
#+end_src
|
|
|
|
** Nix-mode
|
|
|
|
=.nix= file mode
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf nix-mode :ensure t)
|
|
#+end_src
|
|
|
|
* IDE Like Things
|
|
|
|
** Which Key Again?
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf which-key :ensure t
|
|
:config (which-key-mode))
|
|
#+end_src
|
|
|
|
** Company Completion!
|
|
|
|
We like autocomplete, it... is nice, okay?
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf company :ensure t
|
|
:bind
|
|
(("C-<tab>" . company-complete))
|
|
:hook after-init-hook
|
|
:config (global-company-mode))
|
|
#+end_src
|
|
|
|
** Language Server Protocol
|
|
|
|
We love language features that make languages nice
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf lsp-mode
|
|
:ensure t
|
|
:init
|
|
(setq lsp-keymap-prefix "C-c l")
|
|
:commands lsp lsp-deferred
|
|
:hook
|
|
;; which key support v v v
|
|
((lsp-mode-hook . lsp-enable-which-key-integration)
|
|
#+end_src
|
|
|
|
*** IDE Languages
|
|
|
|
**** Dart/Flutter
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(dart-mode . lsp-deferred)
|
|
#+end_src
|
|
|
|
**** Python
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(python-mode . lsp-deferred)
|
|
#+end_src
|
|
|
|
**** C/C++
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(c-mode-hook . lsp-deferred)
|
|
(c++-mode-hook . lsp-deferred)
|
|
#+end_src
|
|
|
|
**** Haskell
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(haskell-mode-hook . lsp-deferred)
|
|
#+end_src
|
|
|
|
**** Java
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(java-mode-hook . lsp-deferred)
|
|
#+end_src
|
|
|
|
**** Rust
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(rust-mode-hook . lsp-deferred))
|
|
#+end_src
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
)
|
|
#+end_src
|
|
|
|
*** LSP Plugins:
|
|
|
|
We do want some nice to haves of course
|
|
|
|
- A pretty UI:
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf lsp-ui :ensure t
|
|
:commands lsp-ui-mode)
|
|
#+end_src
|
|
- Flycheck compat:
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf flycheck :ensure t)
|
|
#+end_src
|
|
- Debugger Compatibility
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf dap-mode :ensure t)
|
|
#+end_src
|
|
|
|
*** Projectile (Projects)
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf projectile
|
|
:commands projectile-mode
|
|
:config
|
|
(projectile-mode +1))
|
|
#+end_src
|
|
|
|
* WEB
|
|
|
|
We all know the web is the future, obviously, of course.
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf web-mode
|
|
:ensure t
|
|
:mode
|
|
"\\.p?html?\\'"
|
|
"\\.djtml\\'"
|
|
"\\.jsx?\\'"
|
|
"\\.tsx?\\'")
|
|
(leaf php-mode
|
|
:ensure t)
|
|
#+end_src
|
|
|
|
* D2
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf d2-mode :ensure t)
|
|
#+end_src
|
|
|
|
* YAML
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf yaml-mode :ensure t)
|
|
#+end_src
|
|
|
|
* Python Things
|
|
|
|
** Python-mode
|
|
|
|
Using python-mode is to have more up to date features (and
|
|
highlighting) compared to builtin python-mode.
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf python-mode :ensure t
|
|
:config
|
|
(setq python-shell-interpreter "ipython"
|
|
python-shell-interpreter-args "-i --simple-prompt --InteractiveShell.display_page=True"))
|
|
#+end_src
|
|
|
|
** Poetry
|
|
|
|
For when we aren't nix'ing things, and want some nice poetry.
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf poetry :ensure t)
|
|
#+end_src
|
|
|
|
* C
|
|
|
|
Who even needs C++, not me, no way, no how.
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf c-config
|
|
:hook c-mode-hook c++-mode-hook
|
|
:config
|
|
(leaf company-ctags :ensure t)
|
|
(leaf company-c-headers :ensure t)
|
|
(leaf meson-mode :ensure t))
|
|
#+end_src
|
|
|
|
* Haskell
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf haskell-mode :ensure t)
|
|
(leaf lsp-haskell :ensure t)
|
|
(leaf company-ghci :ensure t)
|
|
#+end_src
|
|
|
|
* Rust
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf rust-mode :ensure t
|
|
:init
|
|
(leaf slint-mode :ensure t))
|
|
#+end_src
|
|
|
|
* Minecraft??
|
|
|
|
Minecraft =mcfunction= support, because, it can be annoying to type
|
|
this stuff otherwise.
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf mcf-mode
|
|
:el-get rasensuihei/mcf)
|
|
#+end_src
|
|
|
|
* Lisps
|
|
|
|
Gonna need to have pretty brackets
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf rainbow-delimiters
|
|
:ensure t
|
|
:commands rainbow-delimiters-mode
|
|
:config
|
|
(leaf rainbow
|
|
:hook (emacs-lisp-mode-hook . rainbow-delimiters-mode)
|
|
(geiser-mode-hook . rainbow-delimiters-mode)))
|
|
#+end_src
|
|
|
|
** Racket
|
|
Makes using racket so much nicer
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf geiser-racket :ensure t)
|
|
#+end_src
|
|
|
|
* Org
|
|
|
|
We ensure that org is available (though it is builtin)
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf org :ensure t
|
|
:require t org-tempo
|
|
:hook
|
|
(org-mode-hook . auto-fill-mode)
|
|
:config
|
|
(setq document-dir (expand-file-name (if (eq system-type 'darwin) "~/Nextcloud" "~/Documents")))
|
|
(setq org-directory (concat document-dir "/org"))
|
|
(set-fill-column 100)
|
|
(setq org-src-fontify-natively t
|
|
org-confirm-babel-evaluate nil
|
|
org-src-preserve-indentation t))
|
|
;; (tempo-define-template "Fig. Caption"
|
|
;; '("" (P "Image: " image t)
|
|
;; (P "Caption: " caption t)
|
|
;; (P "Figure Name: " name t)
|
|
;; "#+CAPTION: " (s caption) > n >
|
|
;; "#+NAME: fig:" (s name) > n >
|
|
;; "#+ATTR_LaTeX: :placement [H]" > n >
|
|
;; "[[" (s image) "]]" > n > p >)
|
|
;; "<fig" "Inserts Figure with Caption"))
|
|
#+end_src
|
|
|
|
We also want to set our document directory (which as it stands is OS
|
|
dependent)
|
|
|
|
** Citations/References
|
|
|
|
We use org-ref because it provides some niceties, like doi-utils for
|
|
updating our bibliography.
|
|
|
|
#+begin_src elisp :tangle no :exports code
|
|
(leaf org-ref :ensure t helm-bibtex
|
|
:after org
|
|
:init
|
|
(leaf pdf-tools :ensure t)
|
|
:bind
|
|
(("C-c ]" . org-ref-insert-link))
|
|
:config
|
|
(setq org-bib-dir (concat document-dir "/Bibliography"))
|
|
(setq org-bib-file (concat org-bib-dir "/references.bib"))
|
|
;; Where should PDFs be stored
|
|
(setq bibtex-completion-library-path `(,(concat org-bib-dir "/bibtex-pdfs/"))
|
|
;; Where is the bibliography expected (org-ref & org-cite)
|
|
bibtex-completion-bibliography (list org-bib-file)
|
|
org-cite-global-bibliography org-bib-file
|
|
|
|
bibtex-completion-notes-path (concat org-bib-dir "/notes")
|
|
bibtex-completion-notes-template-multiple-files "* ${author-or-editor}, ${title}, ${journal}, (${year}) :${=type=}: \n\nSee [[cite:&${=key=}]]\n"
|
|
|
|
bibtex-completion-additional-search-fields '(keywords)
|
|
bibtex-completion-display-formats
|
|
'((article . "${=has-pdf=:1}${=has-note=:1} ${year:4} ${author:36} ${title:*} ${journal:40}")
|
|
(inbook . "${=has-pdf=:1}${=has-note=:1} ${year:4} ${author:36} ${title:*} Chapter ${chapter:32}")
|
|
(incollection . "${=has-pdf=:1}${=has-note=:1} ${year:4} ${author:36} ${title:*} ${booktitle:40}")
|
|
(inproceedings . "${=has-pdf=:1}${=has-note=:1} ${year:4} ${author:36} ${title:*} ${booktitle:40}")
|
|
(t . "${=has-pdf=:1}${=has-note=:1} ${year:4} ${author:36} ${title:*}"))
|
|
bibtex-completion-pdf-open-function
|
|
(lambda (fpath)
|
|
(call-process "open" nil 0 nil fpath)))
|
|
;; For bibtex generated keys (in-org citation format)
|
|
(setq bibtex-autokey-year-length 4
|
|
bibtex-autokey-name-year-separator "-"
|
|
bibtex-autokey-year-title-separator "-"
|
|
bibtex-autokey-titleword-separator "-"
|
|
bibtex-autokey-titlewords 2
|
|
bibtex-autokey-titlewords-stretch 1
|
|
bibtex-autokey-titleword-length 5)
|
|
:require org-ref org-ref-helm oc-bibtex oc-bibtex oc-csl oc-natbib)
|
|
#+end_src
|
|
|
|
** Extra Export Options
|
|
|
|
*** LaTeX (Obviously)
|
|
|
|
We really do require latex
|
|
|
|
#+begin_src elisp :tangle no :exports code
|
|
(leaf ox-latex
|
|
:after org org-ref
|
|
:config
|
|
(add-to-list 'org-export-backends 'latex)
|
|
(add-to-list 'org-latex-packages-alist '("" "minted"))
|
|
(setq org-latex-listings 'minted)
|
|
|
|
(add-to-list 'org-latex-classes
|
|
'("labtemplate" "\\documentclass{labtemplate}"
|
|
("\\section{%s}" . "\\section*{%s}")
|
|
("\\subsection{%s}" . "\\subsection*{%s}")
|
|
("\\subsubsection{%s}" . "\\subsubsection*{%s}")
|
|
("\\paragraph{%s}" . "\\paragraph*{%s}")
|
|
("\\subparagraph{%s}" . "\\subparagraph*{%s}")))
|
|
(add-to-list 'org-latex-classes
|
|
'("thesis" "\\documentclass[11pt]{ut-thesis}"
|
|
("\\part{%s}" . "\\part*{%s}")
|
|
("\\chapter{%s}" . "\\chapter*{%s}")
|
|
("\\section{%s}" . "\\section*{%s}")
|
|
("\\subsection{%s}" . "\\subsection*{%s}")
|
|
("\\subsubsection{%s}" . "\\subsubsection*{%s}")))
|
|
|
|
(setq org-latex-pdf-process
|
|
'("%latex -shell-escape -interaction nonstopmode -output-directory %o %f"
|
|
"%latex -shell-escape -interaction nonstopmode -output-directory %o %f"
|
|
"bibtex %b"
|
|
"%latex -shell-escape -interaction nonstopmode -output-directory %o %f"
|
|
"%latex -shell-escape -interaction nonstopmode -output-directory %o %f")))
|
|
#+end_src
|
|
|
|
*** Pandoc the Panacea of Exports
|
|
|
|
For more export formats we use pandoc:
|
|
#+begin_src elisp :tangle no :exports code
|
|
(leaf ox-pandoc :ensure t
|
|
:after org org-ref
|
|
:config
|
|
(add-to-list 'org-export-backends 'pandoc))
|
|
#+end_src
|
|
|
|
*** Slideshows
|
|
|
|
**** Web based (reveal)
|
|
|
|
Writing mockup presentations can be quicker when you focus on the text
|
|
of the presentation first, and prettifying later. Reveal.js is a nice
|
|
in between of these.
|
|
|
|
#+begin_src elisp :tangle no :exports code
|
|
(leaf ox-reveal :ensure t
|
|
:config
|
|
(add-to-list 'org-export-backends 'reveal)
|
|
(setq org-reveal-root "https://cdn.jsdelivr.net/npm/reveal.js"))
|
|
#+end_src
|
|
|
|
** LaTeX: with AuCTeX
|
|
|
|
Nicer LaTeX editing (AuCTeX):
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf auctex :ensure t
|
|
:after org)
|
|
#+end_src
|
|
|
|
We also ma(k|d)e use of org-tempo for templating things, which can be
|
|
nice. Should use the export based templating probably. Eventually.
|
|
|
|
And in case we want to make some (GNU)?plots?
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf gnuplot
|
|
:ensure t)
|
|
#+end_src
|
|
|
|
** Org Mode Agenda/Calendar Things
|
|
|
|
*** Agenda Location
|
|
|
|
Make it so that all files in the " src_elisp{org-agenda-files} " variable (e.g. "=~/Documents=") will be
|
|
included in the tablutation and collation of all the dates and todos
|
|
etc.
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf org-agenda :require t
|
|
:after org
|
|
:config
|
|
(setq org-agenda-files `(,(concat org-directory))))
|
|
#+end_src
|
|
|
|
*** Capture Things
|
|
|
|
Unless specified otherwise, any captured note, date, meeting, idea,
|
|
should be put into the src_elisp{org-directory}.
|
|
|
|
Similarly, we have a default file for notes that we capture, in there
|
|
=note.org=, which is where all captured things go when they aren't
|
|
told to go elsewhere.
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf org-capture
|
|
:after org
|
|
:config
|
|
(setq org-default-notes-file (concat org-directory "/notes.org")))
|
|
#+end_src
|
|
|
|
We also want to configure what type of things we want to capture,
|
|
e.g. meetings, deadlines and whatever else:
|
|
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf org-capture
|
|
:after org-capture
|
|
:config
|
|
(setq org-capture-templates
|
|
'(("t" "Todo" entry (file+headline "todo.org" "Tasks")
|
|
"* TODO %?\n %i\n %a")
|
|
("j" "Journal" entry (file+datetree "journal.org")
|
|
"* %?\nEntered on %U\n %i\n %a")
|
|
("m" "Meeting" entry (file+headline "dates.org" "Meetings")
|
|
"* %^{prompt} :meeting:%^G\n:PROPERTIES:\n:CATEGORY: Meeting\n:LOCATION: %^{LOCATION}\n:ADDED: %U\n:END:\nMeeting is scheduled for: %^t\n%?\n\n"))))
|
|
#+end_src
|
|
|
|
** Org Mobile
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf org-mobile
|
|
:after org
|
|
:config
|
|
(setq org-mobile-directory "/scpx:webdav@server:/srv/webdav"
|
|
org-mobile-inbox-for-pull (concat org-directory "/mobileorg.org")
|
|
org-mobile-agendas nil))
|
|
#+end_src
|
|
|
|
* Flutter
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf dart-mode :ensure t)
|
|
(leaf lsp-dart :ensure t)
|
|
#+end_src
|
|
|
|
* BQN
|
|
|
|
#+begin_src elisp :tangle yes :exports code
|
|
(leaf bqn-mode
|
|
:el-get "museoa/bqn-mode"
|
|
:defer-config
|
|
(set-face-attribute 'bqn-default nil :family 'unspecified))
|
|
#+end_src
|