|
|
|
|
@ -13,11 +13,12 @@ Perhaps in 10 years I will still be using it, but who knows.
|
|
|
|
|
;; -*- no-byte-compile: t; -*-
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
** Set name, org-roam-directory, etc.
|
|
|
|
|
Some basic settings for Emacs
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(setq tab-always-indent t)
|
|
|
|
|
(setq org-roam-directory "~/org/")
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(setq user-full-name "Judah Sotomayor"
|
|
|
|
|
user-mail-address "")
|
|
|
|
|
@ -28,21 +29,32 @@ Some basic settings for Emacs
|
|
|
|
|
:recipe (:host nil :type git :repo "https://git.freedomland.xyz/judahsotomayor/noctrlc"))
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
* Theme and Font
|
|
|
|
|
Set the theme.
|
|
|
|
|
/Use something dark/
|
|
|
|
|
+I also prefer relative line numbers because of *evil* mode+
|
|
|
|
|
Relative line numbers don't seem to work, because of folding in Org-mode.
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(setq doom-theme 'doom-xcode)
|
|
|
|
|
(setq doom-theme 'doom-oksolar-dark)
|
|
|
|
|
(setq doom-font (font-spec :family "Hack Nerd Font Mono" :size 16 :weight 'medium))
|
|
|
|
|
|
|
|
|
|
(setq auto-save-default nil) ;I don't like autosaving. Let me do it myself.
|
|
|
|
|
(remove-hook '+doom-dashboard-functions #'doom-dashboard-widget-shortmenu)
|
|
|
|
|
(remove-hook '+doom-dashboard-functions #'doom-dashboard-widget-footer)
|
|
|
|
|
(setq fancy-splash-image (concat doom-private-dir "emacs.png"))
|
|
|
|
|
(add-hook 'term-mode-hook 'hide-mode-line-mode)
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
#+RESULTS:
|
|
|
|
|
|
|
|
|
|
** Doom splash screen
|
|
|
|
|
I really don't like the widgets, and I think it takes longer to load so I get rid of them
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(remove-hook '+doom-dashboard-functions #'doom-dashboard-widget-shortmenu)
|
|
|
|
|
(remove-hook '+doom-dashboard-functions #'doom-dashboard-widget-footer)
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
Set a sweet splash image
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(setq fancy-splash-image (concat doom-private-dir "emacs.png"))
|
|
|
|
|
#+end_src
|
|
|
|
|
* Evil configuration
|
|
|
|
|
I want a non-ESC way to get back to normal mode:
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
@ -52,20 +64,44 @@ I want a non-ESC way to get back to normal mode:
|
|
|
|
|
(map! :desc "Decrement number below or after cursor" :n "C-x" #'evil-numbers/dec-at-pt)
|
|
|
|
|
(map! :n "g j" #'evil-next-visual-line)
|
|
|
|
|
(map! :n "g k" #'evil-previous-visual-line)
|
|
|
|
|
(map!
|
|
|
|
|
:map org-agenda-keymap
|
|
|
|
|
"j" #'evil-next-line
|
|
|
|
|
"k" #'evil-previous-line)
|
|
|
|
|
(map!
|
|
|
|
|
:map org-super-agenda-header-map
|
|
|
|
|
"j" #'evil-next-line
|
|
|
|
|
"k" #'evil-previous-line)
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
* Terminal setup
|
|
|
|
|
I like to just use bash:
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(defun bash nil
|
|
|
|
|
"Lauch term with /bin/bash"
|
|
|
|
|
(interactive)
|
|
|
|
|
(term "/bin/bash"))
|
|
|
|
|
|
|
|
|
|
(defun dash nil
|
|
|
|
|
"Lauch term with /bin/dash"
|
|
|
|
|
(interactive)
|
|
|
|
|
(term "/bin/dash"))
|
|
|
|
|
|
|
|
|
|
(defun zsh nil
|
|
|
|
|
"Lauch term with /bin/zsh"
|
|
|
|
|
(interactive)
|
|
|
|
|
(term "/bin/zsh"))
|
|
|
|
|
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
#+RESULTS:
|
|
|
|
|
: zsh
|
|
|
|
|
|
|
|
|
|
** Shell mappings
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(map! :leader (:prefix ("k" . "shell")
|
|
|
|
|
|
|
|
|
|
:desc "Start a bash shell"
|
|
|
|
|
:n "b" #'bash
|
|
|
|
|
|
|
|
|
|
:desc "Start a dash shell"
|
|
|
|
|
:n "d" #'dash
|
|
|
|
|
|
|
|
|
|
:desc "Start a zsh shell"
|
|
|
|
|
:n "z" #'zsh
|
|
|
|
|
|
|
|
|
|
:desc "Start an elisp repl"
|
|
|
|
|
:n "e" #'+emacs-lisp/open-repl
|
|
|
|
|
|
|
|
|
|
@ -73,13 +109,44 @@ I want a non-ESC way to get back to normal mode:
|
|
|
|
|
:n "j" #'+python/open-repl))
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
#+RESULTS:
|
|
|
|
|
|
|
|
|
|
,#+RESULTS:
|
|
|
|
|
|
|
|
|
|
I don't like the modeline in the terminal.
|
|
|
|
|
,#+begin_src emacs-lisp
|
|
|
|
|
(add-hook 'term-mode-hook 'hide-mode-line-mode)
|
|
|
|
|
#+end_src
|
|
|
|
|
* Sage-math
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(use-package! sage-shell-mode
|
|
|
|
|
:defer)
|
|
|
|
|
|
|
|
|
|
;; Ob-sagemath supports only evaluating with a session.
|
|
|
|
|
(setq org-babel-default-header-args:sage '((:session . t)
|
|
|
|
|
(:results . "output")))
|
|
|
|
|
|
|
|
|
|
;; C-c c for asynchronous evaluating (only for SageMath code blocks).
|
|
|
|
|
(with-eval-after-load "org"
|
|
|
|
|
(define-key org-mode-map (kbd "C-c c") 'ob-sagemath-execute-async))
|
|
|
|
|
#+end_src
|
|
|
|
|
I like to have a shortcut for calc as well, for simpler calculations
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(map! :leader
|
|
|
|
|
:desc "The Emacs Calculator"
|
|
|
|
|
"C" #'calc)
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
* Beancount
|
|
|
|
|
** FavaGTK :outdated:
|
|
|
|
|
I want to launch favagtk more easily. Let's do that here:
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(defun fava ()
|
|
|
|
|
(interactive)
|
|
|
|
|
(async-shell-command "flatpak run org.gnome.gitlab.johannesjh.favagtk"))
|
|
|
|
|
(map! :leader
|
|
|
|
|
:desc "Start favagtk"
|
|
|
|
|
"r b" #'fava)
|
|
|
|
|
#+end_src
|
|
|
|
|
* Useful Functions
|
|
|
|
|
** Get the date from the shell
|
|
|
|
|
I want to grab the current date and put it in the buffer.
|
|
|
|
|
@ -101,7 +168,9 @@ Because I sometimes use Fish or another shell, it's good to make sure bash is ru
|
|
|
|
|
"m" #'insert-current-date-alt)))
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
** Convert regex strings to rx :COMMENT:
|
|
|
|
|
#+RESULTS:
|
|
|
|
|
: insert-current-date-alt
|
|
|
|
|
** Convert regex strings to rx
|
|
|
|
|
#+begin_src elisp :tangle packages.el
|
|
|
|
|
(package! xr)
|
|
|
|
|
#+end_src
|
|
|
|
|
@ -109,6 +178,9 @@ Because I sometimes use Fish or another shell, it's good to make sure bash is ru
|
|
|
|
|
#+begin_src elisp
|
|
|
|
|
(use-package! xr)
|
|
|
|
|
#+end_src
|
|
|
|
|
* Creating Diagrams and graphs
|
|
|
|
|
** TODO set default values using org-babel's features for that.
|
|
|
|
|
|
|
|
|
|
* Securing Sensitive Files
|
|
|
|
|
** Age.el
|
|
|
|
|
#+begin_src emacs-lisp :tangle "packages.el"
|
|
|
|
|
@ -133,7 +205,7 @@ Because I sometimes use Fish or another shell, it's good to make sure bash is ru
|
|
|
|
|
:END:
|
|
|
|
|
This preprocessor script allows me to use Ripgrep with Age to filter agenda files.
|
|
|
|
|
You can see the configuration for that in [[#agenda-efficient][this section]].
|
|
|
|
|
#+begin_src zsh :tangle "/home/judah/age-preprocessor.zsh"
|
|
|
|
|
#+begin_src zsh :tangle "/home/user/age-preprocessor.zsh"
|
|
|
|
|
#!/usr/bin/env zsh
|
|
|
|
|
|
|
|
|
|
case "$1" in
|
|
|
|
|
@ -174,7 +246,6 @@ Emacs has better default values now, so it will ask to evaluate local variables.
|
|
|
|
|
(setq templates/post-capture-title "#+TITLE: ${title}\n")
|
|
|
|
|
(setq templates/post-capture-template (concat templates/post-capture-title templates/post-capture-props))
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
* Org-mode for a great todo list
|
|
|
|
|
** Making the Agenda features more efficient
|
|
|
|
|
Using ripgrep we can automatically narrow org-agenda files.
|
|
|
|
|
@ -187,7 +258,7 @@ This piece of code will allow us to capture all the agenda files using the prepr
|
|
|
|
|
#+begin_src sh :exports code :tangle no
|
|
|
|
|
rg --type-add 'aorg:*.org.age' \
|
|
|
|
|
-torg -taorg \
|
|
|
|
|
--pre ~/age-preprocessor.zsh --pre-glob '*.age' -l TODO /home/judah/10-19-personal-projects/11-zettelkasten
|
|
|
|
|
--pre ~/age-preprocessor.zsh --pre-glob '*.age' -l TODO /home/user/org
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
Now, of course, this code is not useful as it is--after all, we can't tangle a ~.sh~ script into [[file:config.el]].
|
|
|
|
|
@ -197,10 +268,13 @@ The rubber hits the road here.
|
|
|
|
|
I'll call that shell command to set the agenda files correctly.
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(defun set-org-agenda-files-ripgrep ()
|
|
|
|
|
(setq org-agenda-files (split-string (shell-command-to-string "rg --type-add \'aorg:*.org.age\' -torg -taorg --pre ~/age-preprocessor.zsh --pre-glob \'*.age\' -l TODO /home/judah/10-19-personal-projects/11-zettelkasten/")))
|
|
|
|
|
(setq org-agenda-files (remove "/home/judah/10-19-personal-projects/11-zettelkasten/archive.sec.org.age" org-agenda-files)))
|
|
|
|
|
(setq org-agenda-files (split-string (shell-command-to-string "rg --type-add \'aorg:*.org.age\' -torg -taorg --pre ~/age-preprocessor.zsh --pre-glob \'*.age\' -l TODO /home/user/org ")))
|
|
|
|
|
(setq org-agenda-files (remove "/home/user/org/archive.sec.org.age" org-agenda-files)))
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
#+RESULTS:
|
|
|
|
|
: set-org-agenda-files-ripgrep
|
|
|
|
|
|
|
|
|
|
And then we want to call this before building the agenda:
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(add-hook 'org-agenda-mode-hook 'set-org-agenda-files-ripgrep)
|
|
|
|
|
@ -223,15 +297,28 @@ I don't want scheduled items to duplicate if the deadline is up.
|
|
|
|
|
(setq org-log-done 'time)
|
|
|
|
|
(after! org
|
|
|
|
|
(setq org-log-done 'time)
|
|
|
|
|
(setq org-archive-location "~/10-19-personal-projects/11-zettelkasten/archive.sec.org.age")
|
|
|
|
|
(setq org-archive-location "~/org/archive.sec.org.age")
|
|
|
|
|
(setq org-hide-emphasis-markers nil))
|
|
|
|
|
(setq org-directory "~/10-19-personal-projects/11-zettelkasten/")
|
|
|
|
|
(setq org-roam-directory org-directory)
|
|
|
|
|
(setq org-directory "~/org/")
|
|
|
|
|
(setq org-roam-directory org-directory)
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
#+RESULTS:
|
|
|
|
|
: ~/10-19-personal-projects/11-zettelkasten/
|
|
|
|
|
: ~/org/
|
|
|
|
|
|
|
|
|
|
*** Keymap
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(map!
|
|
|
|
|
:map org-agenda-keymap
|
|
|
|
|
"j" #'evil-next-line
|
|
|
|
|
"k" #'evil-previous-line)
|
|
|
|
|
(map!
|
|
|
|
|
:map org-super-agenda-header-map
|
|
|
|
|
"j" #'evil-next-line
|
|
|
|
|
"k" #'evil-previous-line)
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
#+RESULTS:
|
|
|
|
|
|
|
|
|
|
** Appearances
|
|
|
|
|
*** Images Preferences
|
|
|
|
|
@ -247,7 +334,7 @@ Super-agenda allows many nice configurations to the agenda buffer.
|
|
|
|
|
#+begin_src emacs-lisp :tangle "packages.el"
|
|
|
|
|
(package! org-super-agenda)
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
Is it working now? It sure seems to be, so IDK what was up with it earlier.
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(use-package! org-super-agenda
|
|
|
|
|
:after org-roam
|
|
|
|
|
@ -255,9 +342,6 @@ Super-agenda allows many nice configurations to the agenda buffer.
|
|
|
|
|
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
#+RESULTS:
|
|
|
|
|
: t
|
|
|
|
|
|
|
|
|
|
Configure the Super Agenda to neatly organize everything.
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(setq org-super-agenda-groups
|
|
|
|
|
@ -328,11 +412,11 @@ Edna allows better dependency handling for todos and the like.
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
|
|
|
|
|
(use-package org-habit
|
|
|
|
|
:custom
|
|
|
|
|
(org-habit-graph-column 1)
|
|
|
|
|
(org-habit-preceding-days 10)
|
|
|
|
|
(org-habit-following-days 1)
|
|
|
|
|
(org-habit-show-habits-only-for-today t))
|
|
|
|
|
:custom
|
|
|
|
|
(org-habit-graph-column 1)
|
|
|
|
|
(org-habit-preceding-days 10)
|
|
|
|
|
(org-habit-following-days 1)
|
|
|
|
|
(org-habit-show-habits-only-for-today t))
|
|
|
|
|
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
@ -375,12 +459,20 @@ This is okay, but I'd rather find something that isn't already used.
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
* Programming Items
|
|
|
|
|
** Editorconfig
|
|
|
|
|
I need to make sure some different files work with
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(after! editorconfig-mode
|
|
|
|
|
(add-to-list 'editorconfig-mode-alist
|
|
|
|
|
'(cpp-mode . "cpp")))
|
|
|
|
|
#+end_src
|
|
|
|
|
** LSP
|
|
|
|
|
In order for editorconfig to do its thing, indentation by the lsp must be disabled.
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(setq lsp-enable-indentation nil)
|
|
|
|
|
#+end_src emacs-lisp
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
* Website
|
|
|
|
|
** Capture template
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
@ -389,12 +481,17 @@ In order for editorconfig to do its thing, indentation by the lsp must be disabl
|
|
|
|
|
(setq templates/post-capture-template (concat templates/post-capture-title templates/post-capture-props))
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
* Crafting a Writing Environment :export:
|
|
|
|
|
|
|
|
|
|
** Hugo base directory
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(setq org-hugo-base-dir (concat org-directory (file-name-as-directory "website")))
|
|
|
|
|
(setq org-hugo-default-section-directory "posts")
|
|
|
|
|
#+end_src
|
|
|
|
|
* Crafting a Writing Environment
|
|
|
|
|
For writing I like to automate as much as possible.
|
|
|
|
|
This means creating an environment that does citations and such /for/ me.
|
|
|
|
|
** Export settings
|
|
|
|
|
*** \LaTeX
|
|
|
|
|
**** Ox-latex
|
|
|
|
|
*** Ox-latex
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(after! org
|
|
|
|
|
;; Import ox-latex to get org-latex-classes and other funcitonality
|
|
|
|
|
@ -412,17 +509,17 @@ This means creating an environment that does citations and such /for/ me.
|
|
|
|
|
(setq org-latex-classes nil))))
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
**** Lualatex as PDF Processor
|
|
|
|
|
*** Lualatex as PDF Processor
|
|
|
|
|
I've found that lualatex does a good job processing PDFs. $hi$
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(after! ox-latex
|
|
|
|
|
(setq org-latex-pdf-process
|
|
|
|
|
'("lualatex --output-directory=%o -shell-escape -interaction nonstopmode %f"
|
|
|
|
|
"lualatex --output-directory=%o -shell-escape -interaction nonstopmode %f")))
|
|
|
|
|
'("lualatex --output-directory=/home/user/Documents -shell-escape -interaction nonstopmode %f"
|
|
|
|
|
"lualatex --output-directory=/home/user/Documents -shell-escape -interaction nonstopmode %f")))
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
#+RESULTS:
|
|
|
|
|
| lualatex --output-directory=/home/judah/Documents -shell-escape -interaction nonstopmode %f | lualatex --output-directory=/home/judah/Documents -shell-escape -interaction nonstopmode %f |
|
|
|
|
|
| lualatex --output-directory=/home/user/Documents -shell-escape -interaction nonstopmode %f | lualatex --output-directory=/home/user/Documents -shell-escape -interaction nonstopmode %f |
|
|
|
|
|
|
|
|
|
|
$x + 1 = 3$
|
|
|
|
|
#+RESULTS:
|
|
|
|
|
@ -519,8 +616,12 @@ $x + 1 = 3$
|
|
|
|
|
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
**** COMMENT Fixing dvipng image handling
|
|
|
|
|
#+RESULTS:
|
|
|
|
|
| mcdowellcv | \documentclass[]{mcdowellcv} |
|
|
|
|
|
|
|
|
|
|
*** COMMENT Fixing dvipng image handling
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
|
|
|
|
|
(defun +org-refresh-latex-images-previews-h ()
|
|
|
|
|
(dolist (buffer (doom-buffers-in-mode 'org-mode (buffer-list)))
|
|
|
|
|
(with-current-buffer buffer
|
|
|
|
|
@ -531,8 +632,38 @@ $x + 1 = 3$
|
|
|
|
|
|
|
|
|
|
(add-hook 'doom-load-theme-hook #'+org-refresh-latex-images-previews-h)
|
|
|
|
|
#+end_src
|
|
|
|
|
*** Export Function
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(defun eww-open-this-file ()
|
|
|
|
|
(set 'directory (file-name-directory buffer-file-name))
|
|
|
|
|
(set 'filename (file-name-sans-extension buffer-file-name))
|
|
|
|
|
(set 'extension ".html")
|
|
|
|
|
(set 'filename (format "%s%s" filename extension))
|
|
|
|
|
(eww-open-file filename)
|
|
|
|
|
(evil-window-left)
|
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
**** Delete links from inline anki
|
|
|
|
|
(defun org-export-and-open-eww ()
|
|
|
|
|
"Export current file to html and open in eww"
|
|
|
|
|
(interactive)
|
|
|
|
|
|
|
|
|
|
(org-html-export-to-html)
|
|
|
|
|
(if (equal (file-name-extension buffer-file-name) "org")
|
|
|
|
|
(eww-open-this-file)
|
|
|
|
|
(message "Failed")
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
We'll want a handy shortcut for this.
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(map! :leader
|
|
|
|
|
:desc "Export to html and diplay with eww"
|
|
|
|
|
"r E" #'org-export-and-open-eww)
|
|
|
|
|
#+end_src
|
|
|
|
|
#+RESULTS:
|
|
|
|
|
: /home/user/.config/doom/
|
|
|
|
|
*** Delete links from inline anki
|
|
|
|
|
#+begin_src elisp
|
|
|
|
|
(defun inline-anki-link-filter (link backend info)
|
|
|
|
|
"Rewrite links in export to preserve link text only"
|
|
|
|
|
@ -556,117 +687,6 @@ $x + 1 = 3$
|
|
|
|
|
#+end_src
|
|
|
|
|
#+RESULTS:
|
|
|
|
|
| inline-anki-link-filter |
|
|
|
|
|
*** HTML
|
|
|
|
|
**** Custom functions
|
|
|
|
|
A lot of this section I steal from [[https://gitlab.com/to1ne/blog/blob/master/elisp/publish.el#L170-204][writepermission.com]].
|
|
|
|
|
He has some great work for rss feed creation and other stuff.
|
|
|
|
|
#+begin_src elisp
|
|
|
|
|
(defun rw/format-rss-feed-entry (entry style project)
|
|
|
|
|
"Format ENTRY for the RSS feed.
|
|
|
|
|
ENTRY is a file name. STYLE is either 'list' or 'tree'.
|
|
|
|
|
PROJECT is the current project."
|
|
|
|
|
(cond ((not (directory-name-p entry))
|
|
|
|
|
(let* ((file (org-publish--expand-file-name entry project))
|
|
|
|
|
(title (org-publish-find-title entry project))
|
|
|
|
|
(date (format-time-string "%Y-%m-%d" (org-publish-find-date entry project)))
|
|
|
|
|
(link (concat (file-name-sans-extension entry) ".html")))
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(org-mode)
|
|
|
|
|
(insert (format "* [[file:%s][%s]]\n" file title))
|
|
|
|
|
(org-set-property "RSS_PERMALINK" link)
|
|
|
|
|
(org-set-property "PUBDATE" date)
|
|
|
|
|
(insert-file-contents file)
|
|
|
|
|
(buffer-string))))
|
|
|
|
|
((eq style 'tree)
|
|
|
|
|
;; Return only last subdir.
|
|
|
|
|
(file-name-nondirectory (directory-file-name entry)))
|
|
|
|
|
(t entry)))
|
|
|
|
|
|
|
|
|
|
(defun rw/format-rss-feed (title list)
|
|
|
|
|
"Generate RSS feed, as a string.
|
|
|
|
|
TITLE is the title of the RSS feed. LIST is an internal
|
|
|
|
|
representation for the files to include, as returned by
|
|
|
|
|
`org-list-to-lisp'. PROJECT is the current project."
|
|
|
|
|
(concat "#+TITLE: " title "\n\n"
|
|
|
|
|
(org-list-to-subtree list 1 '(:icount "" :istart ""))))
|
|
|
|
|
|
|
|
|
|
(defun rw/org-rss-publish-to-rss (plist filename pub-dir)
|
|
|
|
|
"Publish RSS with PLIST, only when FILENAME is 'rss.org'.
|
|
|
|
|
PUB-DIR is when the output will be placed."
|
|
|
|
|
(if (equal "rss.org" (file-name-nondirectory filename))
|
|
|
|
|
(let ((file-name (org-rss-publish-to-rss plist filename pub-dir)))
|
|
|
|
|
(shell-command (format "tail -n +2 %s > random-file-temp.xml" file-name file-name))
|
|
|
|
|
(shell-command (format "mv random-file-temp.xml %s" file-name))
|
|
|
|
|
file-name)))
|
|
|
|
|
|
|
|
|
|
(use-package! ox-rss)
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
We will need ox-rss for rss feed production.
|
|
|
|
|
#+begin_src elisp :tangle packages.el
|
|
|
|
|
(package! ox-rss)
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
**** Project list configuration
|
|
|
|
|
Finally, configure the project alist using a series of projects.
|
|
|
|
|
1. ~blog-posts~ processes the normal .org file to create posts.
|
|
|
|
|
2. ~blog-static~ brings static css and images into the publishing dir.
|
|
|
|
|
3. ~blog-rss~ creates the rss feed as a special type of sitemap. It uses ox-rss, which we just loaded!
|
|
|
|
|
4. Finally, the whole blog. This uses both blog-posts and blog-rss.
|
|
|
|
|
#+begin_src elisp :results none
|
|
|
|
|
(setq org-html-htmlize-output-type 'css
|
|
|
|
|
org-html-html5-fancy t
|
|
|
|
|
org-html-metadata-timestamp-format "%Y-%m-%d"
|
|
|
|
|
org-html-checkbox-type 'html
|
|
|
|
|
org-html-doctype "html5")
|
|
|
|
|
(let ((blog--root (concat (file-name-as-directory org-directory) "blog"))
|
|
|
|
|
(blog--public-root "~/10-19-personal-projects/15-blog")
|
|
|
|
|
(blog--url "https://judah.freedomland.xyz")
|
|
|
|
|
(blog--static-attachment-extensions (regexp-opt '("jpg" "jpeg" "gif" "png" "svg" "pdf" "css"))))
|
|
|
|
|
(setq org-publish-project-alist
|
|
|
|
|
(list
|
|
|
|
|
(list "blog-posts"
|
|
|
|
|
:auto-sitemap t
|
|
|
|
|
:base-directory blog--root
|
|
|
|
|
:exclude (regexp-opt '("rss.org"))
|
|
|
|
|
:html-htmlized-css-url "static/style.css"
|
|
|
|
|
:html-head-include-default-style nil
|
|
|
|
|
:publishing-directory blog--public-root
|
|
|
|
|
:publishing-function 'org-html-publish-to-html
|
|
|
|
|
:recursive nil
|
|
|
|
|
:sitemap-filename "index.org"
|
|
|
|
|
:sitemap-title "Judah Sotomayor's Blog"
|
|
|
|
|
:sitemap-sort-files 'anti-chronologically
|
|
|
|
|
:sitemap-style 'tree)
|
|
|
|
|
(list "blog-static"
|
|
|
|
|
:base-directory (expand-file-name "static" blog--root)
|
|
|
|
|
:base-extension blog--static-attachment-extensions
|
|
|
|
|
:publishing-directory (expand-file-name "static" blog--public-root)
|
|
|
|
|
:publishing-function 'org-publish-attachment
|
|
|
|
|
:recursive t)
|
|
|
|
|
(list "blog-rss"
|
|
|
|
|
:auto-sitemap t
|
|
|
|
|
:base-directory blog--root
|
|
|
|
|
:exclude (regexp-opt '("rss.org" "index.org" "404.org"))
|
|
|
|
|
:html-link-home blog--url
|
|
|
|
|
:html-link-use-abs-url t
|
|
|
|
|
:html-link-org-files-as-html t
|
|
|
|
|
:publishing-directory blog--public-root
|
|
|
|
|
:publishing-function 'rw/org-rss-publish-to-rss
|
|
|
|
|
:rss-extension "xml"
|
|
|
|
|
:sitemap-filename "rss.org"
|
|
|
|
|
:sitemap-format-entry 'rw/format-rss-feed-entry
|
|
|
|
|
:sitemap-function 'rw/format-rss-feed
|
|
|
|
|
:sitemap-sort-files 'anti-chronologically
|
|
|
|
|
:sitemap-style 'list)
|
|
|
|
|
(list "blog"
|
|
|
|
|
:components '("blog-posts" "blog-rss" "blog-static")))))
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
** Automatic Citations with *citar* and *org-cite*
|
|
|
|
|
:PROPERTIES:
|
|
|
|
|
@ -677,16 +697,14 @@ We want a general [[file:~/org/references.bib][bibliography file]], a [[file:~/Z
|
|
|
|
|
and a default set of styles.
|
|
|
|
|
*** Citar setup
|
|
|
|
|
First of all, we must configure citar.
|
|
|
|
|
#+begin_src elisp :tangle packages.el
|
|
|
|
|
(package! citar-org-roam)
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(use-package! citar
|
|
|
|
|
:ensure t
|
|
|
|
|
:demand t
|
|
|
|
|
:custom
|
|
|
|
|
(citar-bibliography "~/10-19-personal-projects/11-zettelkasten/references.bib")
|
|
|
|
|
(citar-bibliography "~/org/references.bib")
|
|
|
|
|
(citar-file-note-extensions '(".org"))
|
|
|
|
|
(org-cite-global-bibliography '("~/10-19-personal-projects/11-zettelkasten/references.bib"))
|
|
|
|
|
(org-cite-global-bibliography '("~/org/references.bib"))
|
|
|
|
|
|
|
|
|
|
(org-cite-csl-styles-dir
|
|
|
|
|
(expand-file-name "~/Zotero/styles/"))
|
|
|
|
|
@ -696,6 +714,7 @@ First of all, we must configure citar.
|
|
|
|
|
:hook
|
|
|
|
|
(LaTeX-mode . citar-capf-setup)
|
|
|
|
|
(org-mode . citar-capf-setup))
|
|
|
|
|
(citar-org-roam-mode)
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
*** Icons for some prettification
|
|
|
|
|
@ -740,7 +759,7 @@ First of all, we must configure citar.
|
|
|
|
|
:padding " "
|
|
|
|
|
:tag "is:cited"))
|
|
|
|
|
|
|
|
|
|
(setq citar-indicators
|
|
|
|
|
(setq citar-indicators
|
|
|
|
|
(list citar-indicator-files-icons
|
|
|
|
|
citar-indicator-links-icons
|
|
|
|
|
citar-indicator-notes-icons
|
|
|
|
|
@ -756,7 +775,6 @@ Let's use a package or two to set a decent document class:
|
|
|
|
|
"\\documentclass[stu]{apa7}
|
|
|
|
|
\\usepackage[]{multicol}
|
|
|
|
|
\\usepackage{mathptmx}
|
|
|
|
|
\\usepackage{times}
|
|
|
|
|
[NO-DEFAULT-PACKAGES]
|
|
|
|
|
[NO-PACKAGES]"
|
|
|
|
|
("\\section{%s}" . "\\section*{%s}")
|
|
|
|
|
@ -791,7 +809,7 @@ Let's use a package or two to set a decent document class:
|
|
|
|
|
("\\paragraph{%s}" . "\\paragraph*{%s}")
|
|
|
|
|
("\\subparagraph{%s}" . "\\subparagraph*{%s}")))
|
|
|
|
|
|
|
|
|
|
;; org-latex-compilers = ("pdflatex" "xelatex" "lualatex"), which are the possible values for %latex
|
|
|
|
|
;; org-latex-compilers = ("pdflatex" "xelatex" "lualatex"), which are the possible values for %latex
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
*** Engraving Faces
|
|
|
|
|
@ -807,8 +825,9 @@ Ever wonder why code export sucks with \LaTeX ? Me neither! Let's fix it!
|
|
|
|
|
Org-roam enables features essential to a Zettelkasten such as inter-ID linking.
|
|
|
|
|
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(use-package! org-roam
|
|
|
|
|
:after md-roam)
|
|
|
|
|
(use-package! org-roam
|
|
|
|
|
:after md-roam
|
|
|
|
|
:init (setq org-roam-directory "~/org/")) :custom
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
I use several capture templates to make it easy to get notes into my various sections.
|
|
|
|
|
@ -897,10 +916,10 @@ I use =r= for this purpose. It is close and goes well with *roam*.
|
|
|
|
|
|
|
|
|
|
(use-package! org-roam-ui
|
|
|
|
|
:after org-roam ;; or :after org
|
|
|
|
|
;; normally we'd recommend hooking orui after org-roam, but since org-roam does not have
|
|
|
|
|
;; a hookable mode anymore, you're advised to pick something yourself
|
|
|
|
|
;; if you don't care about startup time, use
|
|
|
|
|
;; :hook (after-init . org-roam-ui-mode)
|
|
|
|
|
;; normally we'd recommend hooking orui after org-roam, but since org-roam does not have
|
|
|
|
|
;; a hookable mode anymore, you're advised to pick something yourself
|
|
|
|
|
;; if you don't care about startup time, use
|
|
|
|
|
;; :hook (after-init . org-roam-ui-mode)
|
|
|
|
|
:config
|
|
|
|
|
(setq org-roam-ui-sync-theme t
|
|
|
|
|
org-roam-ui-follow t
|
|
|
|
|
@ -920,22 +939,21 @@ I use =r= for this purpose. It is close and goes well with *roam*.
|
|
|
|
|
|
|
|
|
|
))))
|
|
|
|
|
#+END_SRC
|
|
|
|
|
*** Default Browser for Export
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(setq browse-url-browser-function 'browse-url-generic
|
|
|
|
|
browse-url-generic-program "surf")
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
** Journal Environment with org-roam
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(after! org-roam
|
|
|
|
|
(setq org-roam-dailies-capture-templates
|
|
|
|
|
`(("d" "default" entry "* %?"
|
|
|
|
|
(setq org-roam-dailies-capture-templates
|
|
|
|
|
`(("d" "default" entry
|
|
|
|
|
"* %?"
|
|
|
|
|
:target (file+head "%<%Y-%m-%d>.sec.org.age"
|
|
|
|
|
"#+title: %<%Y-%m-%d %A>\n* Where was I today?\n* Where am I at now?\n* Where will I be tomorrow?")))))
|
|
|
|
|
"#+title: %<%Y-%m-%d>\n")))))
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
#+RESULTS:
|
|
|
|
|
|
|
|
|
|
* Where was I today?
|
|
|
|
|
* Where am I at now?
|
|
|
|
|
* Where will I be tomorrow?) |
|
|
|
|
|
|
|
|
|
|
*** Property getters and setters
|
|
|
|
|
These are to fulfill my need to get property values for generating my [[id:6672f401-32a1-49ef-8004-ac77ece67f5b][journal index]].
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
@ -965,13 +983,13 @@ Adding up values for one key is supported."
|
|
|
|
|
(concat ret " " val)
|
|
|
|
|
val)))
|
|
|
|
|
ret))
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
#+end_src
|
|
|
|
|
** Resume setup for a stellar CV
|
|
|
|
|
*** ox-extra for ":ignore:" tags
|
|
|
|
|
I want to be able to ignore headings on export.
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(use-package! ox-extra
|
|
|
|
|
(use-package! ox-extra
|
|
|
|
|
:after (org)
|
|
|
|
|
:config
|
|
|
|
|
(ox-extras-activate '(latex-header-blocks ignore-headlines)))
|
|
|
|
|
@ -1217,7 +1235,7 @@ SVGBob is an ASCII art renderer. It can do all kinds of nifty things with just a
|
|
|
|
|
|
|
|
|
|
* Archiving
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(setq org-archive-location "/home/judah/10-19-personal-projects/11-zettelkasten/archive.sec.org.age::")
|
|
|
|
|
(setq org-archive-location "/home/user/org/archive.sec.org.age::")
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
* Init.el
|
|
|
|
|
@ -1257,7 +1275,7 @@ I like to have all my config in one place.
|
|
|
|
|
doom ; what makes DOOM look the way it does
|
|
|
|
|
doom-dashboard ; a nifty splash screen for Emacs
|
|
|
|
|
;;doom-quit ; DOOM quit-message prompts when you quit Emacs
|
|
|
|
|
(emoji +unicode) ; 🙂
|
|
|
|
|
;;(emoji +unicode) ; 🙂
|
|
|
|
|
hl-todo ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW
|
|
|
|
|
;;hydra
|
|
|
|
|
indent-guides ; highlighted indent columns
|
|
|
|
|
@ -1284,7 +1302,7 @@ I like to have all my config in one place.
|
|
|
|
|
(format ) ; automated prettiness
|
|
|
|
|
;;god ; run Emacs commands without modifier keys
|
|
|
|
|
;;lispy ; vim for lisp, for people who don't like vim
|
|
|
|
|
;;multiple-cursors ; editing in many places at once
|
|
|
|
|
multiple-cursors ; editing in many places at once
|
|
|
|
|
;;objed ; text object editing for the innocent
|
|
|
|
|
;;parinfer ; turn lisp into python, sort of
|
|
|
|
|
;;rotate-text ; cycle region at point between text candidates
|
|
|
|
|
@ -1301,7 +1319,7 @@ I like to have all my config in one place.
|
|
|
|
|
:term
|
|
|
|
|
;;eshell ; the elisp shell that works everywhere
|
|
|
|
|
;;shell ; simple shell REPL for Emacs
|
|
|
|
|
;;term ; basic terminal emulator for Emacs
|
|
|
|
|
term ; basic terminal emulator for Emacs
|
|
|
|
|
vterm ; the best terminal emulation in Emacs
|
|
|
|
|
|
|
|
|
|
:checkers
|
|
|
|
|
@ -1310,10 +1328,10 @@ I like to have all my config in one place.
|
|
|
|
|
grammar ; tasing grammar mistake every you make
|
|
|
|
|
|
|
|
|
|
:tools
|
|
|
|
|
ansible
|
|
|
|
|
;;ansible
|
|
|
|
|
(biblio +icons) ; Writes a PhD for you (citation needed)
|
|
|
|
|
;;debugger ; FIXME stepping through code, to help you add bugs
|
|
|
|
|
direnv
|
|
|
|
|
;;direnv
|
|
|
|
|
;;docker
|
|
|
|
|
editorconfig ; let someone else argue about tabs vs spaces
|
|
|
|
|
;;ein ; tame Jupyter notebooks with emacs
|
|
|
|
|
@ -1330,7 +1348,7 @@ I like to have all my config in one place.
|
|
|
|
|
;;taskrunner ; taskrunner for all your projects
|
|
|
|
|
;;terraform ; infrastructure as code
|
|
|
|
|
;;tmux ; an API for interacting with tmux
|
|
|
|
|
tree-sitter ; syntax and parsing, sitting in a tree...
|
|
|
|
|
;;tree-sitter ; syntax and parsing, sitting in a tree...
|
|
|
|
|
;;upload ; map local to remote projects via ssh/ftp
|
|
|
|
|
|
|
|
|
|
:os
|
|
|
|
|
@ -1339,10 +1357,10 @@ I like to have all my config in one place.
|
|
|
|
|
|
|
|
|
|
:lang
|
|
|
|
|
;;agda ; types of types of types of types...
|
|
|
|
|
;;(beancount +lsp) ; mind the GAAP
|
|
|
|
|
(beancount +lsp) ; mind the GAAP
|
|
|
|
|
(cc +lsp) ; C > C++ == 1
|
|
|
|
|
;;clojure ; java with a lisp
|
|
|
|
|
common-lisp ; if you've seen one lisp, you've seen them all
|
|
|
|
|
;;common-lisp ; if you've seen one lisp, you've seen them all
|
|
|
|
|
;;coq ; proofs-as-programs
|
|
|
|
|
;;crystal ; ruby at the speed of c
|
|
|
|
|
;;csharp ; unity, .NET, and mono shenanigans
|
|
|
|
|
@ -1360,7 +1378,7 @@ I like to have all my config in one place.
|
|
|
|
|
;;fsharp ; ML stands for Microsoft's Language
|
|
|
|
|
;;fstar ; (dependent) types and (monadic) effects and Z3
|
|
|
|
|
;;gdscript ; the language you waited for
|
|
|
|
|
(go +lsp) ; the hipster dialect
|
|
|
|
|
;;(go +lsp) ; the hipster dialect
|
|
|
|
|
;;(graphql +lsp) ; Give queries a REST
|
|
|
|
|
;;(haskell +lsp) ; a language that's lazier than I am
|
|
|
|
|
;;hy ; readability of scheme w/ speed of python
|
|
|
|
|
@ -1376,9 +1394,9 @@ I like to have all my config in one place.
|
|
|
|
|
lua ; one-based indices? one-based indices
|
|
|
|
|
markdown ; writing docs for people to ignore
|
|
|
|
|
;;nim ; python + lisp at the speed of c
|
|
|
|
|
(nix +lsp +treesitter) ; I hereby declare "nix geht mehr!"
|
|
|
|
|
;;nix ; I hereby declare "nix geht mehr!"
|
|
|
|
|
;;ocaml ; an objective camel
|
|
|
|
|
(org +roam2 +gnuplot +pomodoro +noter +present +pretty) ; organize your plain life in plain text
|
|
|
|
|
(org +roam2 +gnuplot +hugo +pomodoro +noter +present +pretty) ; organize your plain life in plain text
|
|
|
|
|
;;php ; perl's insecure younger brother
|
|
|
|
|
;;plantuml ; diagrams for confusing people more
|
|
|
|
|
;;purescript ; javascript, but functional
|
|
|
|
|
@ -1397,8 +1415,8 @@ I like to have all my config in one place.
|
|
|
|
|
;;solidity ; do you need a blockchain? No.
|
|
|
|
|
;;swift ; who asked for emoji variables?
|
|
|
|
|
;;terra ; Earth and Moon in alignment for performance.
|
|
|
|
|
(web +lsp) ; the tubes
|
|
|
|
|
yaml ; JSON, but readable
|
|
|
|
|
web ; the tubes
|
|
|
|
|
;;yaml ; JSON, but readable
|
|
|
|
|
;zig ; C, but simpler
|
|
|
|
|
|
|
|
|
|
:email
|
|
|
|
|
@ -1417,20 +1435,22 @@ I like to have all my config in one place.
|
|
|
|
|
:config
|
|
|
|
|
literate
|
|
|
|
|
(default +bindings +smartparens)
|
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
)
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
* Footnotes
|
|
|
|
|
[fn:1] Stolen from Tecosaur's [[https://git.tecosaur.net/tec/emacs-config][config]]
|
|
|
|
|
* Other Editing
|
|
|
|
|
** Lilypond :COMMENT:noexport:
|
|
|
|
|
*** package
|
|
|
|
|
** Lillypond
|
|
|
|
|
|
|
|
|
|
*** ob-lilypond
|
|
|
|
|
**** package
|
|
|
|
|
#+begin_src emacs-lisp :tangle "packages.el"
|
|
|
|
|
(package! ob-lilypond
|
|
|
|
|
:recipe (:host github :type git :repo "mjago/ob-lilypond"))
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
*** config
|
|
|
|
|
**** config
|
|
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
(use-package! ob-lilypond)
|
|
|
|
|
(setq ly-arrange-mode t)
|
|
|
|
|
|