summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-02-07 17:09:04 -0600
committerCase Duckworth2022-02-07 17:09:04 -0600
commit5efe60c74b98728d5405296fbbeffea23555589b (patch)
tree1e09e3685bff4b959e976f1858706c077cd6661b
parentChange sorting to user-save-hook (diff)
downloademacs-5efe60c74b98728d5405296fbbeffea23555589b.tar.gz
emacs-5efe60c74b98728d5405296fbbeffea23555589b.zip
Undo common-lisp-indent-function
oops
-rw-r--r--init.el106
1 files changed, 52 insertions, 54 deletions
diff --git a/init.el b/init.el index c6684b6..ec011e6 100644 --- a/init.el +++ b/init.el
@@ -209,14 +209,14 @@
209 ;; Transform URLs before passing to `browse-url' 209 ;; Transform URLs before passing to `browse-url'
210 (:option +browse-url-transformations `((,(rx (or "youtube.com" 210 (:option +browse-url-transformations `((,(rx (or "youtube.com"
211 "youtu.be")) 211 "youtu.be"))
212 . ,+invidious-host) 212 . ,+invidious-host)
213 ("twitter\\.com" 213 ("twitter\\.com"
214 . "nitter.net") 214 . "nitter.net")
215 ("instagram\\.com" 215 ("instagram\\.com"
216 . "bibilogram.art") 216 . "bibilogram.art")
217 (,(rx (or "reddit.com" 217 (,(rx (or "reddit.com"
218 "old.reddit.com")) 218 "old.reddit.com"))
219 . "teddit.net") 219 . "teddit.net")
220 ("medium\\.com" 220 ("medium\\.com"
221 . "scribe.rip"))) 221 . "scribe.rip")))
222 (+browse-url-transform-url-global-mode +1)) 222 (+browse-url-transform-url-global-mode +1))
@@ -290,8 +290,6 @@
290 (:bind "C-c C-c" #'eval-defun 290 (:bind "C-c C-c" #'eval-defun
291 "C-c C-k" #'+elisp-eval-region-or-buffer 291 "C-c C-k" #'+elisp-eval-region-or-buffer
292 "C-c C-z" #'ielm)) 292 "C-c C-z" #'ielm))
293 (:with-mode (emacs-lisp-mode lisp-interaction-mode +init-mode lisp-mode)
294 (:local-set lisp-indent-function #'common-lisp-indent-function))
295 (advice-add #'eval-region :around #'+eval-region@pulse)) 293 (advice-add #'eval-region :around #'+eval-region@pulse))
296 294
297(setup eshell 295(setup eshell
@@ -340,7 +338,7 @@
340 ;; Bind keys 338 ;; Bind keys
341 (dolist (binding '(("C-d" . +eshell-quit-or-delete-char))) 339 (dolist (binding '(("C-d" . +eshell-quit-or-delete-char)))
342 (define-key eshell-mode-map 340 (define-key eshell-mode-map
343 (kbd (car binding)) (cdr binding))) 341 (kbd (car binding)) (cdr binding)))
344 ;; Environment variables 342 ;; Environment variables
345 (dolist (environment '(("PAGER" . "cat"))) 343 (dolist (environment '(("PAGER" . "cat")))
346 (setenv (car environment) (cdr environment))))) 344 (setenv (car environment) (cdr environment)))))
@@ -526,7 +524,7 @@
526 org-startup-with-inline-images t 524 org-startup-with-inline-images t
527 org-tags-column (- (- fill-column (length org-ellipsis))) 525 org-tags-column (- (- fill-column (length org-ellipsis)))
528 org-todo-keywords '((sequence "TODO(t)" "WAIT(w@/!)" 526 org-todo-keywords '((sequence "TODO(t)" "WAIT(w@/!)"
529 "|" "DONE(d!)") 527 "|" "DONE(d!)")
530 (sequence "|" "CANCELED(k@)") 528 (sequence "|" "CANCELED(k@)")
531 (sequence "MEETING(m)"))) 529 (sequence "MEETING(m)")))
532 (:bind "RET" #'+org-return-dwim 530 (:bind "RET" #'+org-return-dwim
@@ -596,27 +594,27 @@
596 (+org-capture-templates-setf "t" "Todo") 594 (+org-capture-templates-setf "t" "Todo")
597 (+org-capture-templates-setf "tt" 595 (+org-capture-templates-setf "tt"
598 `("Today!" entry (file "todo.org") 596 `("Today!" entry (file "todo.org")
599 ,(concat "* TODO %^{Title}\n" 597 ,(concat "* TODO %^{Title}\n"
600 "DEADLINE: %t\n" 598 "DEADLINE: %t\n"
601 "\n%?"))) 599 "\n%?")))
602 (+org-capture-templates-setf "ts" 600 (+org-capture-templates-setf "ts"
603 `("Someday..." entry (file "todo.org") 601 `("Someday..." entry (file "todo.org")
604 ,(concat "* TODO %^{Title}\n" 602 ,(concat "* TODO %^{Title}\n"
605 ":PROPERTIES:\n" 603 ":PROPERTIES:\n"
606 ":CREATED: [%<%F %T>]\n" 604 ":CREATED: [%<%F %T>]\n"
607 ":END:\n" 605 ":END:\n"
608 "\n%?"))) 606 "\n%?")))
609 (+org-capture-templates-setf "tm" 607 (+org-capture-templates-setf "tm"
610 `("Media" entry (file "todo.org") 608 `("Media" entry (file "todo.org")
611 ,(concat "* TODO %^{TITLE}\n" 609 ,(concat "* TODO %^{TITLE}\n"
612 ":PROPERTIES:\n" 610 ":PROPERTIES:\n"
613 ":TITLE: %\\1\n" 611 ":TITLE: %\\1\n"
614 ":AUTHOR: %^{AUTHOR}\n" 612 ":AUTHOR: %^{AUTHOR}\n"
615 ":END:\n" 613 ":END:\n"
616 "\n%?"))) 614 "\n%?")))
617 (+org-capture-templates-setf "l" 615 (+org-capture-templates-setf "l"
618 `("Link" entry (file "links.org") 616 `("Link" entry (file "links.org")
619 "* %(+org-insert-link-dwim) %^g\n\n")) 617 "* %(+org-insert-link-dwim) %^g\n\n"))
620 (+org-capture-templates-setf "w" "Work") 618 (+org-capture-templates-setf "w" "Work")
621 (+org-capture-templates-setf "j" 619 (+org-capture-templates-setf "j"
622 '("Journal entry" plain 620 '("Journal entry" plain
@@ -628,14 +626,14 @@
628 ;; from there. 626 ;; from there.
629 (+org-capture-templates-setf "s" 627 (+org-capture-templates-setf "s"
630 `("SSH Config" plain (file "~/.ssh/config") 628 `("SSH Config" plain (file "~/.ssh/config")
631 ,(concat "\n\nHost %^{Host: }" 629 ,(concat "\n\nHost %^{Host: }"
632 "\nHostname %\\1" 630 "\nHostname %\\1"
633 "\nUser %^{User:|" (user-login-name) "}" 631 "\nUser %^{User:|" (user-login-name) "}"
634 "\nIdentityFile %?" 632 "\nIdentityFile %?"
635 "\nIdentitiesOnly yes" 633 "\nIdentitiesOnly yes"
636 "\nPubkeyAuthentication yes" 634 "\nPubkeyAuthentication yes"
637 "\nPort %^{Port: |22}") 635 "\nPort %^{Port: |22}")
638 :unnarrowed t)) 636 :unnarrowed t))
639 (+org-capture-sort)) 637 (+org-capture-sort))
640 638
641(setup org-contacts 639(setup org-contacts
@@ -720,9 +718,9 @@
720They are completed by \"M-x TAB\" only in Tramp debug buffers." 718They are completed by \"M-x TAB\" only in Tramp debug buffers."
721 (with-current-buffer buffer 719 (with-current-buffer buffer
722 (el-patch-wrap 2 720 (el-patch-wrap 2
723 (save-restriction 721 (save-restriction
724 (widen) 722 (widen)
725 (string-equal (buffer-substring 1 10) ";; Emacs:"))))))) 723 (string-equal (buffer-substring 1 10) ";; Emacs:")))))))
726 724
727(setup (:straight 0x0) 725(setup (:straight 0x0)
728 (:option 0x0-default-server 'ttm) 726 (:option 0x0-default-server 'ttm)
@@ -936,11 +934,11 @@ They are completed by \"M-x TAB\" only in Tramp debug buffers."
936 lui-track-indicator 'bar 934 lui-track-indicator 'bar
937 lui-fill-remove-face-from-newline nil 935 lui-fill-remove-face-from-newline nil
938 lui-formatting-list `((,(+lui-make-formatting-list-rx "*") 936 lui-formatting-list `((,(+lui-make-formatting-list-rx "*")
939 1 lui-strong-face) 937 1 lui-strong-face)
940 (,(+lui-make-formatting-list-rx "_") 938 (,(+lui-make-formatting-list-rx "_")
941 1 lui-emphasis-face) 939 1 lui-emphasis-face)
942 (,(+lui-make-formatting-list-rx "/") 940 (,(+lui-make-formatting-list-rx "/")
943 1 lui-emphasis-face)) 941 1 lui-emphasis-face))
944 lui-autopaste-function 942 lui-autopaste-function
945 (defun +0x0-upload-string (string) 943 (defun +0x0-upload-string (string)
946 "Upload a string using 0x0." 944 "Upload a string using 0x0."
@@ -1182,8 +1180,8 @@ See also `crux-reopen-as-root-mode'."
1182 elfeed-curl-extra-arguments '("--insecure") 1180 elfeed-curl-extra-arguments '("--insecure")
1183 elfeed-enclosure-default-dir (cl-loop for dir in '("~/var/download/" 1181 elfeed-enclosure-default-dir (cl-loop for dir in '("~/var/download/"
1184 "~/Downloads/") 1182 "~/Downloads/")
1185 if (file-exists-p dir) 1183 if (file-exists-p dir)
1186 return dir) 1184 return dir)
1187 elfeed-search-filter "@1-month-ago +unread" 1185 elfeed-search-filter "@1-month-ago +unread"
1188 elfeed-search-trailing-width 24 1186 elfeed-search-trailing-width 24
1189 elfeed-search-title-min-width 24 1187 elfeed-search-title-min-width 24
@@ -1215,8 +1213,8 @@ See also `crux-reopen-as-root-mode'."
1215 (elfeed-org) 1213 (elfeed-org)
1216 (+org-capture-templates-setf "f" 1214 (+org-capture-templates-setf "f"
1217 `("Feed" entry 1215 `("Feed" entry
1218 (file+olp ,(car rmh-elfeed-org-files) "Feeds") 1216 (file+olp ,(car rmh-elfeed-org-files) "Feeds")
1219 "* %? %^g"))) 1217 "* %? %^g")))
1220 1218
1221(setup (:straight elpher)) 1219(setup (:straight elpher))
1222 1220
@@ -1458,11 +1456,11 @@ See also `crux-reopen-as-root-mode'."
1458(setup (:straight (jabber :repo "https://tildegit.org/wgreenhouse/emacs-jabber" 1456(setup (:straight (jabber :repo "https://tildegit.org/wgreenhouse/emacs-jabber"
1459 :host nil 1457 :host nil
1460 :files ("*.el" "*.texi" 1458 :files ("*.el" "*.texi"
1461 ("jabber-fallback-lib" 1459 ("jabber-fallback-lib"
1462 "jabber-fallback-lib/hexrgb.el" 1460 "jabber-fallback-lib/hexrgb.el"
1463 "jabber-fallback-lib/srv.el" 1461 "jabber-fallback-lib/srv.el"
1464 "jabber-fallback-lib/fsm.el") 1462 "jabber-fallback-lib/fsm.el")
1465 "jabber-pkg.el") 1463 "jabber-pkg.el")
1466 :fork (:repo "https://tildegit.org/acdw/emacs-jabber" 1464 :fork (:repo "https://tildegit.org/acdw/emacs-jabber"
1467 :host nil))) 1465 :host nil)))
1468 (:also-load +jabber) 1466 (:also-load +jabber)
@@ -1607,10 +1605,10 @@ See also `crux-reopen-as-root-mode'."
1607 (let ((facen (1+ facen-1))) 1605 (let ((facen (1+ facen-1)))
1608 (custom-set-faces 1606 (custom-set-faces
1609 `(,(intern (format "org-level-%s" facen)) 1607 `(,(intern (format "org-level-%s" facen))
1610 ((t :inherit 1608 ((t :inherit
1611 (,(intern (format "modus-themes-heading-%s" facen)) 1609 (,(intern (format "modus-themes-heading-%s" facen))
1612 fixed-pitch)) 1610 fixed-pitch))
1613 :now))))) 1611 :now)))))
1614 (dawn-schedule #'modus-themes-load-operandi 1612 (dawn-schedule #'modus-themes-load-operandi
1615 #'modus-themes-load-vivendi)) 1613 #'modus-themes-load-vivendi))
1616 1614
@@ -1839,11 +1837,11 @@ See also `crux-reopen-as-root-mode'."
1839 '(:eval 1837 '(:eval
1840 (list 1838 (list
1841 (propertize " " 1839 (propertize " "
1842 'display 1840 'display
1843 `((space 1841 `((space
1844 :align-to 1842 :align-to
1845 ,(unless (bound-and-true-p visual-fill-column-mode) 1843 ,(unless (bound-and-true-p visual-fill-column-mode)
1846 0)))) 1844 0))))
1847 (funcall topsy-fn)))))) 1845 (funcall topsy-fn))))))
1848 1846
1849(setup (:straight transpose-frame) 1847(setup (:straight transpose-frame)
@@ -1884,7 +1882,7 @@ See also `crux-reopen-as-root-mode'."
1884 :host github 1882 :host github
1885 :repo "minad/vertico" 1883 :repo "minad/vertico"
1886 :files ("*" "extensions/*" 1884 :files ("*" "extensions/*"
1887 (:exclude ".git")))) 1885 (:exclude ".git"))))
1888 (:also-load +vertico) 1886 (:also-load +vertico)
1889 (:option resize-mini-windows 'grow-only 1887 (:option resize-mini-windows 'grow-only
1890 vertico-count-format nil 1888 vertico-count-format nil