#+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