From 5efe60c74b98728d5405296fbbeffea23555589b Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Mon, 7 Feb 2022 17:09:04 -0600 Subject: Undo common-lisp-indent-function oops --- init.el | 106 +++++++++++++++++++++++++++++++--------------------------------- 1 file changed, 52 insertions(+), 54 deletions(-) (limited to 'init.el') diff --git a/init.el b/init.el index c6684b6..ec011e6 100644 --- a/init.el +++ b/init.el @@ -209,14 +209,14 @@ ;; Transform URLs before passing to `browse-url' (:option +browse-url-transformations `((,(rx (or "youtube.com" "youtu.be")) - . ,+invidious-host) + . ,+invidious-host) ("twitter\\.com" . "nitter.net") ("instagram\\.com" . "bibilogram.art") (,(rx (or "reddit.com" "old.reddit.com")) - . "teddit.net") + . "teddit.net") ("medium\\.com" . "scribe.rip"))) (+browse-url-transform-url-global-mode +1)) @@ -290,8 +290,6 @@ (:bind "C-c C-c" #'eval-defun "C-c C-k" #'+elisp-eval-region-or-buffer "C-c C-z" #'ielm)) - (:with-mode (emacs-lisp-mode lisp-interaction-mode +init-mode lisp-mode) - (:local-set lisp-indent-function #'common-lisp-indent-function)) (advice-add #'eval-region :around #'+eval-region@pulse)) (setup eshell @@ -340,7 +338,7 @@ ;; Bind keys (dolist (binding '(("C-d" . +eshell-quit-or-delete-char))) (define-key eshell-mode-map - (kbd (car binding)) (cdr binding))) + (kbd (car binding)) (cdr binding))) ;; Environment variables (dolist (environment '(("PAGER" . "cat"))) (setenv (car environment) (cdr environment))))) @@ -526,7 +524,7 @@ org-startup-with-inline-images t org-tags-column (- (- fill-column (length org-ellipsis))) org-todo-keywords '((sequence "TODO(t)" "WAIT(w@/!)" - "|" "DONE(d!)") + "|" "DONE(d!)") (sequence "|" "CANCELED(k@)") (sequence "MEETING(m)"))) (:bind "RET" #'+org-return-dwim @@ -596,27 +594,27 @@ (+org-capture-templates-setf "t" "Todo") (+org-capture-templates-setf "tt" `("Today!" entry (file "todo.org") - ,(concat "* TODO %^{Title}\n" - "DEADLINE: %t\n" - "\n%?"))) + ,(concat "* TODO %^{Title}\n" + "DEADLINE: %t\n" + "\n%?"))) (+org-capture-templates-setf "ts" `("Someday..." entry (file "todo.org") - ,(concat "* TODO %^{Title}\n" - ":PROPERTIES:\n" - ":CREATED: [%<%F %T>]\n" - ":END:\n" - "\n%?"))) + ,(concat "* TODO %^{Title}\n" + ":PROPERTIES:\n" + ":CREATED: [%<%F %T>]\n" + ":END:\n" + "\n%?"))) (+org-capture-templates-setf "tm" `("Media" entry (file "todo.org") - ,(concat "* TODO %^{TITLE}\n" - ":PROPERTIES:\n" - ":TITLE: %\\1\n" - ":AUTHOR: %^{AUTHOR}\n" - ":END:\n" - "\n%?"))) + ,(concat "* TODO %^{TITLE}\n" + ":PROPERTIES:\n" + ":TITLE: %\\1\n" + ":AUTHOR: %^{AUTHOR}\n" + ":END:\n" + "\n%?"))) (+org-capture-templates-setf "l" `("Link" entry (file "links.org") - "* %(+org-insert-link-dwim) %^g\n\n")) + "* %(+org-insert-link-dwim) %^g\n\n")) (+org-capture-templates-setf "w" "Work") (+org-capture-templates-setf "j" '("Journal entry" plain @@ -628,14 +626,14 @@ ;; from there. (+org-capture-templates-setf "s" `("SSH Config" plain (file "~/.ssh/config") - ,(concat "\n\nHost %^{Host: }" - "\nHostname %\\1" - "\nUser %^{User:|" (user-login-name) "}" - "\nIdentityFile %?" - "\nIdentitiesOnly yes" - "\nPubkeyAuthentication yes" - "\nPort %^{Port: |22}") - :unnarrowed t)) + ,(concat "\n\nHost %^{Host: }" + "\nHostname %\\1" + "\nUser %^{User:|" (user-login-name) "}" + "\nIdentityFile %?" + "\nIdentitiesOnly yes" + "\nPubkeyAuthentication yes" + "\nPort %^{Port: |22}") + :unnarrowed t)) (+org-capture-sort)) (setup org-contacts @@ -720,9 +718,9 @@ They are completed by \"M-x TAB\" only in Tramp debug buffers." (with-current-buffer buffer (el-patch-wrap 2 - (save-restriction - (widen) - (string-equal (buffer-substring 1 10) ";; Emacs:"))))))) + (save-restriction + (widen) + (string-equal (buffer-substring 1 10) ";; Emacs:"))))))) (setup (:straight 0x0) (:option 0x0-default-server 'ttm) @@ -936,11 +934,11 @@ They are completed by \"M-x TAB\" only in Tramp debug buffers." lui-track-indicator 'bar lui-fill-remove-face-from-newline nil lui-formatting-list `((,(+lui-make-formatting-list-rx "*") - 1 lui-strong-face) + 1 lui-strong-face) (,(+lui-make-formatting-list-rx "_") - 1 lui-emphasis-face) + 1 lui-emphasis-face) (,(+lui-make-formatting-list-rx "/") - 1 lui-emphasis-face)) + 1 lui-emphasis-face)) lui-autopaste-function (defun +0x0-upload-string (string) "Upload a string using 0x0." @@ -1182,8 +1180,8 @@ See also `crux-reopen-as-root-mode'." elfeed-curl-extra-arguments '("--insecure") elfeed-enclosure-default-dir (cl-loop for dir in '("~/var/download/" "~/Downloads/") - if (file-exists-p dir) - return dir) + if (file-exists-p dir) + return dir) elfeed-search-filter "@1-month-ago +unread" elfeed-search-trailing-width 24 elfeed-search-title-min-width 24 @@ -1215,8 +1213,8 @@ See also `crux-reopen-as-root-mode'." (elfeed-org) (+org-capture-templates-setf "f" `("Feed" entry - (file+olp ,(car rmh-elfeed-org-files) "Feeds") - "* %? %^g"))) + (file+olp ,(car rmh-elfeed-org-files) "Feeds") + "* %? %^g"))) (setup (:straight elpher)) @@ -1458,11 +1456,11 @@ See also `crux-reopen-as-root-mode'." (setup (:straight (jabber :repo "https://tildegit.org/wgreenhouse/emacs-jabber" :host nil :files ("*.el" "*.texi" - ("jabber-fallback-lib" - "jabber-fallback-lib/hexrgb.el" - "jabber-fallback-lib/srv.el" - "jabber-fallback-lib/fsm.el") - "jabber-pkg.el") + ("jabber-fallback-lib" + "jabber-fallback-lib/hexrgb.el" + "jabber-fallback-lib/srv.el" + "jabber-fallback-lib/fsm.el") + "jabber-pkg.el") :fork (:repo "https://tildegit.org/acdw/emacs-jabber" :host nil))) (:also-load +jabber) @@ -1607,10 +1605,10 @@ See also `crux-reopen-as-root-mode'." (let ((facen (1+ facen-1))) (custom-set-faces `(,(intern (format "org-level-%s" facen)) - ((t :inherit - (,(intern (format "modus-themes-heading-%s" facen)) - fixed-pitch)) - :now))))) + ((t :inherit + (,(intern (format "modus-themes-heading-%s" facen)) + fixed-pitch)) + :now))))) (dawn-schedule #'modus-themes-load-operandi #'modus-themes-load-vivendi)) @@ -1839,11 +1837,11 @@ See also `crux-reopen-as-root-mode'." '(:eval (list (propertize " " - 'display - `((space - :align-to - ,(unless (bound-and-true-p visual-fill-column-mode) - 0)))) + 'display + `((space + :align-to + ,(unless (bound-and-true-p visual-fill-column-mode) + 0)))) (funcall topsy-fn)))))) (setup (:straight transpose-frame) @@ -1884,7 +1882,7 @@ See also `crux-reopen-as-root-mode'." :host github :repo "minad/vertico" :files ("*" "extensions/*" - (:exclude ".git")))) + (:exclude ".git")))) (:also-load +vertico) (:option resize-mini-windows 'grow-only vertico-count-format nil -- cgit 1.4.1-21-gabe81