Undo common-lisp-indent-function

oops

1 files changed, 52 insertions, 54 deletions

@@ -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