mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

chore(aspen/emacs): Scrub all result blocks

Browse source 
These are noisy, but more importantly I'm worried I might accidentally
commit a secret at some point

Change-Id: If6f2c358f2803af25ea27ef34d39c7f2108d4186
Reviewed-on: https://cl.tvl.fyi/c/depot/+/11299
Reviewed-by: aspen <root@gws.fyi>
Autosubmit: aspen <root@gws.fyi>
Tested-by: BuildkiteCI
This commit is contained in:
Aspen Smith 2024-03-31 13:50:09 -04:00 committed by clbot
parent a22a82c1a4
commit f566f15dd9
1 changed files with 2 additions and 139 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

141
users/aspen/emacs/config.org
View file

@ -7,6 +7,8 @@
# End: # End:
#+title: Emacs Config #+title: Emacs Config
#+PROPERTY: header-args:emacs-lisp :results silent
#+PROPERTY: header-args:elisp :results silent
#+begin_src emacs-lisp :tangle yes #+begin_src emacs-lisp :tangle yes
;; -*- lexical-binding: t; -*- ;; -*- lexical-binding: t; -*-
@ -42,16 +44,10 @@
`(and symbol-start (group (or ,@words)) symbol-end))) `(and symbol-start (group (or ,@words)) symbol-end)))
#+end_src #+end_src
#+RESULTS:
: rx-words
#+begin_src elisp :tangle no :results example #+begin_src elisp :tangle no :results example
(average (list 1 2 3 4)) (average (list 1 2 3 4))
#+end_src #+end_src
#+RESULTS:
: 2
** Text editing utils ** Text editing utils
*** Reading strings *** Reading strings
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
@ -112,8 +108,6 @@ Returns nil if the regex did not match, non-nil otherwise"
(match-beginning 1)) (match-beginning 1))
#+end_src #+end_src
#+RESULTS:
: 3
*** Changing file contents *** Changing file contents
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(defmacro saving-excursion (&rest body) (defmacro saving-excursion (&rest body)
@ -144,18 +138,12 @@ Returns nil if the regex did not match, non-nil otherwise"
,@(when ignore-case (list ignore-case))))) ,@(when ignore-case (list ignore-case)))))
#+end_src #+end_src
#+RESULTS:
: s-contains--pcase-macroexpander
#+begin_src elisp :tangle no #+begin_src elisp :tangle no
(pcase "foo" (pcase "foo"
((s-contains "bar") 1) ((s-contains "bar") 1)
((s-contains "o") 2)) ((s-contains "o") 2))
#+end_src #+end_src
#+RESULTS:
: 2
** Evil utils ** Evil utils
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(defmacro define-move-and-insert (defmacro define-move-and-insert
@ -179,18 +167,12 @@ Returns nil if the regex did not match, non-nil otherwise"
(evil-insert count vcount skip-empty-lines)))) (evil-insert count vcount skip-empty-lines))))
#+end_src #+end_src
#+RESULTS:
: define-move-and-insert
* Name and email * Name and email
#+begin_src emacs-lisp #+begin_src emacs-lisp
(setq user-full-name "Aspen Smith" (setq user-full-name "Aspen Smith"
user-mail-address "root@gws.fyi") user-mail-address "root@gws.fyi")
#+end_src #+end_src
#+RESULTS:
: root@gws.fyi
* Visual style * Visual style
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(let ((font-family (pcase system-type (let ((font-family (pcase system-type
@ -210,18 +192,12 @@ Returns nil if the regex did not match, non-nil otherwise"
doom-modeline-height 12) doom-modeline-height 12)
#+end_src #+end_src
#+RESULTS:
: 12
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(setq whitespace-style '(face lines-tail)) (setq whitespace-style '(face lines-tail))
(global-whitespace-mode t) (global-whitespace-mode t)
(add-hook 'org-mode-hook (lambda () (whitespace-mode -1)) t) (add-hook 'org-mode-hook (lambda () (whitespace-mode -1)) t)
#+end_src #+end_src
#+RESULTS:
| er/add-org-mode-expansions | +aspen/org-setup | +lookup--init-org-mode-handlers-h | (closure (t) (&rest _) (add-hook 'before-save-hook 'org-encrypt-entries nil t)) | #[0 \300\301\302\303\304$\207 [add-hook change-major-mode-hook org-fold-show-all append local] 5] | #[0 \301\211\207 [imenu-create-index-function org-imenu-get-tree] 2] | doom-disable-show-paren-mode-h | doom-disable-show-trailing-whitespace-h | +org-make-last-point-visible-h | org-appear-mode | org-fancy-priorities-mode | org-superstar-mode | evil-org-mode | toc-org-enable | #[0 \300\301\302\303\304$\207 [add-hook change-major-mode-hook org-babel-show-result-all append local] 5] | org-babel-result-hide-spec | org-babel-hide-all-hashes | flyspell-mode | embrace-org-mode-hook | org-eldoc-load | +literate-enable-recompile-h | (lambda nil (whitespace-mode -1)) |
** Theme ** Theme
[[https://davidjohnstone.net/lch-lab-colour-gradient-picker][LAB colour gradient picker]] is a good tool for trying to find "halfway points" between two colours [[https://davidjohnstone.net/lch-lab-colour-gradient-picker][LAB colour gradient picker]] is a good tool for trying to find "halfway points" between two colours
@ -230,9 +206,6 @@ Returns nil if the regex did not match, non-nil otherwise"
(rainbow-mode) (rainbow-mode)
#+end_src #+end_src
#+RESULTS:
: t
#+name: solarized-vars #+name: solarized-vars
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(setq +solarized-s-base03 "#002b36" (setq +solarized-s-base03 "#002b36"
@ -281,9 +254,6 @@ Returns nil if the regex did not match, non-nil otherwise"
+solarized-green-l "#B4C342") +solarized-green-l "#B4C342")
#+end_src #+end_src
#+RESULTS: solarized-vars
: #B4C342
*** Overrides *** Overrides
#+name: overrides-for-solarized-light #+name: overrides-for-solarized-light
@ -336,9 +306,6 @@ Returns nil if the regex did not match, non-nil otherwise"
) )
#+end_src #+end_src
#+RESULTS: overrides-for-solarized-light
| doom--customize-themes-h-91 | doom--customize-themes-h-92 | doom--customize-themes-h-93 | doom--customize-themes-h-94 | doom--customize-themes-h-95 | doom--customize-themes-h-96 | doom--customize-themes-h-97 | doom--customize-themes-h-98 |
* Keybindings and navigation * Keybindings and navigation
Get the hell out of here, snipe! Get the hell out of here, snipe!
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
@ -352,9 +319,6 @@ Get the hell out of here, snipe!
"r" #'consult-recent-file)) "r" #'consult-recent-file))
#+end_src #+end_src
#+RESULTS:
: consult-recent-file
** Flycheck ** Flycheck
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(evil-set-command-property 'flycheck-next-error :repeat nil) (evil-set-command-property 'flycheck-next-error :repeat nil)
@ -367,8 +331,6 @@ Get the hell out of here, snipe!
:m "[e" #'flycheck-previous-error)) :m "[e" #'flycheck-previous-error))
#+end_src #+end_src
#+RESULTS:
** Smerge ** Smerge
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(evil-set-command-property 'smerge-next :repeat nil) (evil-set-command-property 'smerge-next :repeat nil)
@ -386,9 +348,6 @@ Get the hell out of here, snipe!
t t
#+end_src #+end_src
#+RESULTS:
: t
** Vinegar-style dired ** Vinegar-style dired
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(defun dired-mode-p () (eq 'dired-mode major-mode)) (defun dired-mode-p () (eq 'dired-mode major-mode))
@ -408,8 +367,6 @@ t
"-" #'aspen/dired-minus)) "-" #'aspen/dired-minus))
#+end_src #+end_src
#+RESULTS:
** Lisp mappings ** Lisp mappings
*** Use paxedit *** Use paxedit
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
@ -419,9 +376,6 @@ t
(common-lisp-mode . paxedit-mode))) (common-lisp-mode . paxedit-mode)))
#+end_src #+end_src
#+RESULTS:
| paxedit-mode |
*** Paxedit functions *** Paxedit functions
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
@ -454,9 +408,6 @@ t
(message paxedit-message-kill))) (message paxedit-message-kill)))
#+end_src #+end_src
#+RESULTS:
: aspen/paxedit-kill
*** Paxedit mappings *** Paxedit mappings
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(map! (map!
@ -496,8 +447,6 @@ t
)) ))
#+end_src #+end_src
#+RESULTS:
*** Eval functions *** Eval functions
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(use-package! predd) (use-package! predd)
@ -598,8 +547,6 @@ If invoked with a prefix ARG eval the expression after inserting it"
;;; ;;;
#+end_src #+end_src
#+RESULTS:
: fireplace-eval-context
*** Eval bindings *** Eval bindings
fireplace-esque eval binding fireplace-esque eval binding
@ -668,8 +615,6 @@ fireplace-esque eval binding
#+end_src #+end_src
#+RESULTS:
** Coerce ** Coerce
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
@ -689,9 +634,6 @@ fireplace-esque eval binding
))) )))
#+end_src #+end_src
#+RESULTS:
: t
* Mode-specific config * Mode-specific config
** org-mode ** org-mode
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
@ -700,8 +642,6 @@ fireplace-esque eval binding
(load! "org-query")) (load! "org-query"))
#+end_src #+end_src
#+RESULTS:
: t
*** Theme overrides *** Theme overrides
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
@ -734,9 +674,6 @@ fireplace-esque eval binding
`(org-level-8 :foreground ,+solarized-blue)) `(org-level-8 :foreground ,+solarized-blue))
#+end_src #+end_src
#+RESULTS:
| doom--customize-themes-h-91 | doom--customize-themes-h-92 | doom--customize-themes-h-93 | doom--customize-themes-h-94 | doom--customize-themes-h-95 | doom--customize-themes-h-96 | doom--customize-themes-h-97 | doom--customize-themes-h-98 | doom--customize-themes-h-99 |
*** Commands *** Commands
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(defun grfn/insert-new-src-block () (defun grfn/insert-new-src-block ()
@ -787,8 +724,6 @@ fireplace-esque eval binding
:n "g \\" #'org-captue-refile))) :n "g \\" #'org-captue-refile)))
#+end_src #+end_src
#+RESULTS:
** magit ** magit
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(after! magit (after! magit
@ -824,8 +759,6 @@ fireplace-esque eval binding
(list "o" "Reset HEAD@{1}" #'magit-reset-head-previous))) (list "o" "Reset HEAD@{1}" #'magit-reset-head-previous)))
#+end_src #+end_src
#+RESULTS:
** elisp ** elisp
*** Org config mode *** Org config mode
The minor-mode for *this file*! The minor-mode for *this file*!
@ -843,9 +776,6 @@ The minor-mode for *this file*!
(sp-update-local-pairs 'org-config-mode)) (sp-update-local-pairs 'org-config-mode))
#+end_src #+end_src
#+RESULTS:
| keymap |
*** Bindings *** Bindings
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(map! (map!
@ -854,8 +784,6 @@ The minor-mode for *this file*!
:n "g RET" (λ! () (ert t)) )) :n "g RET" (λ! () (ert t)) ))
#+end_src #+end_src
#+RESULTS:
** tuareg ** tuareg
*** Config *** Config
@ -890,15 +818,11 @@ The minor-mode for *this file*!
nil nil
#+end_src #+end_src
#+RESULTS:
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(after! dune-mode (after! dune-mode
(add-hook 'dune-mode-hook 'paxedit-mode)) (add-hook 'dune-mode-hook 'paxedit-mode))
#+end_src #+end_src
#+RESULTS:
*** Bindings *** Bindings
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(map! (map!
@ -910,8 +834,6 @@ nil
"C-c C-f" (λ! () (compile "dune fmt")))) "C-c C-f" (λ! () (compile "dune fmt"))))
#+end_src #+end_src
#+RESULTS:
*** Theme overrides *** Theme overrides
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(custom-set-faces! (custom-set-faces!
@ -929,9 +851,6 @@ nil
`(vertico-group-header :foreground ,+solarized-s-base1)) `(vertico-group-header :foreground ,+solarized-s-base1))
#+end_src #+end_src
#+RESULTS:
| doom--customize-themes-h-30 | doom--customize-themes-h-31 | doom--customize-themes-h-32 | doom--customize-themes-h-33 | doom--customize-themes-h-34 | doom--customize-themes-h-35 | doom--customize-themes-h-52 |
** clojure ** clojure
*** Setup *** Setup
@ -991,8 +910,6 @@ nil
nil nil
#+end_src #+end_src
#+RESULTS:
*** Commands *** Commands
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
@ -1032,9 +949,6 @@ nil
#+end_src #+end_src
#+RESULTS:
: cider-copy-last-result
*** Bindings *** Bindings
@ -1071,8 +985,6 @@ nil
:n "g \\" 'cider-switch-to-last-clojure-buffer))) :n "g \\" 'cider-switch-to-last-clojure-buffer)))
#+end_src #+end_src
#+RESULTS:
** rust ** rust
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(defun aspen/rust-setup () (defun aspen/rust-setup ()
@ -1084,9 +996,6 @@ nil
(add-hook 'rust-mode-hook #'aspen/rust-setup) (add-hook 'rust-mode-hook #'aspen/rust-setup)
#+end_src #+end_src
#+RESULTS:
| aspen/rust-setup | grfn/rust-setup | doom-modeline-env-setup-rust |
*** Bindings *** Bindings
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
@ -1100,17 +1009,12 @@ nil
"m" #'lsp-rust-analyzer-expand-macro))) "m" #'lsp-rust-analyzer-expand-macro)))
#+end_src #+end_src
#+RESULTS:
*** Theme overrides *** Theme overrides
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(custom-set-faces! (custom-set-faces!
`(rust-unsafe :foreground ,+solarized-red)) `(rust-unsafe :foreground ,+solarized-red))
#+end_src #+end_src
#+RESULTS:
| doom--customize-themes-h-30 | doom--customize-themes-h-31 | doom--customize-themes-h-32 | doom--customize-themes-h-33 | doom--customize-themes-h-54 |
** common-lisp ** common-lisp
*** Commands *** Commands
#+begin_src emacs-lisp :tangle yes #+begin_src emacs-lisp :tangle yes
@ -1140,9 +1044,6 @@ nil
(select-window orig-window))) (select-window orig-window)))
#+end_src #+end_src
#+RESULTS:
: sly-run-tests
*** Bindings *** Bindings
#+begin_src emacs-lisp :tangle yes #+begin_src emacs-lisp :tangle yes
@ -1159,8 +1060,6 @@ nil
"C-r" #'isearch-backward)) "C-r" #'isearch-backward))
#+end_src #+end_src
#+RESULTS:
* Completion * Completion
** Corfu ** Corfu
#+begin_src emacs-lisp :tangle yes #+begin_src emacs-lisp :tangle yes
@ -1186,9 +1085,6 @@ nil
:i [backtab] #'corfu-previous)) :i [backtab] #'corfu-previous))
#+end_src #+end_src
#+RESULTS:
: t
** Fuzzy search ** Fuzzy search
#+begin_src emacs-lisp :tangle yes #+begin_src emacs-lisp :tangle yes
(use-package! hotfuzz (use-package! hotfuzz
@ -1198,9 +1094,6 @@ nil
completion-ignore-case t)) completion-ignore-case t))
#+end_src #+end_src
#+RESULTS:
: t
* Email * Email
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(after! notmuch (after! notmuch
@ -1251,8 +1144,6 @@ nil
:n "g SPC" #'aspen/notmuch-sync) :n "g SPC" #'aspen/notmuch-sync)
#+end_src #+end_src
#+RESULTS:
** Bindings ** Bindings
#+begin_src emacs-lisp :tangle yes #+begin_src emacs-lisp :tangle yes
(map! (map!
@ -1261,10 +1152,6 @@ nil
:desc "Search email" "s M" #'consult-notmuch)) :desc "Search email" "s M" #'consult-notmuch))
#+end_src #+end_src
#+RESULTS:
: notmuch-jump-search
** Theme ** Theme
#+begin_src emacs-lisp :tangle yes #+begin_src emacs-lisp :tangle yes
@ -1273,16 +1160,12 @@ nil
:background ,+solarized-halfway-highlight)) :background ,+solarized-halfway-highlight))
#+end_src #+end_src
#+RESULTS:
| doom--customize-themes-h-91 | doom--customize-themes-h-92 | doom--customize-themes-h-93 | doom--customize-themes-h-94 | doom--customize-themes-h-95 | doom--customize-themes-h-96 | doom--customize-themes-h-97 | doom--customize-themes-h-98 | doom--customize-themes-h-99 | doom--customize-themes-h-100 |
* Misc * Misc
** TVL ** TVL
#+begin_src emacs-lisp :tangle yes #+begin_src emacs-lisp :tangle yes
(require 'tvl) (require 'tvl)
#+end_src #+end_src
** Matchit ** Matchit
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(use-package! evil-matchit) (use-package! evil-matchit)
@ -1324,17 +1207,11 @@ nil
(call-interactively #'irc-connect))) (call-interactively #'irc-connect)))
#+end_src #+end_src
#+RESULTS:
: aspen/switch-to-erc-buffer-or-connect
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(map! :leader "o I" #'irc-connect (map! :leader "o I" #'irc-connect
:leader "o i" #'aspen/switch-to-erc-buffer-or-connect) :leader "o i" #'aspen/switch-to-erc-buffer-or-connect)
#+end_src #+end_src
#+RESULTS:
: aspen/switch-to-erc-buffer-or-connect
*** IRC alerts *** IRC alerts
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(use-package! alert) (use-package! alert)
@ -1438,9 +1315,6 @@ If the buffer is currently not visible, makes it sticky."
(add-hook 'erc-connect-pre-hook 'my-erc-define-alerts) (add-hook 'erc-connect-pre-hook 'my-erc-define-alerts)
#+end_src #+end_src
#+RESULTS:
| my-erc-define-alerts |
*** Don't send ~:q~, etc, to the server *** Don't send ~:q~, etc, to the server
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(defun fix-irc-message (msg) (defun fix-irc-message (msg)
@ -1449,17 +1323,12 @@ If the buffer is currently not visible, makes it sticky."
(advice-add #'erc-user-input :filter-return #'fix-irc-message) (advice-add #'erc-user-input :filter-return #'fix-irc-message)
#+end_src #+end_src
#+RESULTS:
*** Theme overrides *** Theme overrides
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(custom-set-faces! (custom-set-faces!
`(erc-button :foreground ,+solarized-blue)) `(erc-button :foreground ,+solarized-blue))
#+end_src #+end_src
#+RESULTS:
| doom--customize-themes-h-30 | doom--customize-themes-h-31 | doom--customize-themes-h-32 | doom--customize-themes-h-43 | doom--customize-themes-h-47 | doom--customize-themes-h-48 | doom--customize-themes-h-49 | doom--customize-themes-h-50 | doom--customize-themes-h-51 | doom--customize-themes-h-52 | doom--customize-themes-h-53 | doom--customize-themes-h-54 | doom--customize-themes-h-56 | doom--customize-themes-h-57 | doom--customize-themes-h-58 | doom--customize-themes-h-59 | doom--customize-themes-h-60 | doom--customize-themes-h-61 | doom--customize-themes-h-62 | doom--customize-themes-h-63 | doom--customize-themes-h-64 |
*** TODO Nick rainbow colors *** TODO Nick rainbow colors
Stole this from https://github.com/jtdaugherty/emacs-config/blob/master/common/erc-nick-colors.el. Stole this from https://github.com/jtdaugherty/emacs-config/blob/master/common/erc-nick-colors.el.
@ -1517,14 +1386,8 @@ you'll change the colors used for nicks."
(add-hook 'erc-insert-modify-hook 'erc-insert-nick-colors) (add-hook 'erc-insert-modify-hook 'erc-insert-nick-colors)
#+end_src #+end_src
#+RESULTS:
| erc-insert-nick-colors | erc-controls-highlight | erc-fill | my-erc-hook | erc-button-add-buttons | erc-match-message | erc-add-timestamp |
* Hacks * Hacks
Not having this breaks elisp documentation :( Not having this breaks elisp documentation :(
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(defvar elisp-demos-user-files nil) (defvar elisp-demos-user-files nil)
#+end_src #+end_src
#+RESULTS:
: elisp-demos-user-files