emacs: don’t use my custom message-cite-ctyle

[~bandali/configs] / .emacs.d / init.org

diff --git a/.emacs.d/init.org b/.emacs.d/init.org
index d02ed3b..1ea9fe1 100644 (file)
--- a/.emacs.d/init.org
+++ b/.emacs.d/init.org
@@ -1023,9 +1023,8 @@ Not just how I do git, but /the/ way to do git.
                           'magit-insert-modules
                           'magit-insert-stashes
                           'append)
-  (setq
-   magit-repository-directories '(("~/.emacs.d/" . 0)
-                                  ("~/src/git/" . 1)))
+  (setq magit-repository-directories '(("~/" . 0)
+                                       ("~/src/git/" . 1)))
   (nconc magit-section-initial-visibility-alist
          '(([unpulled status] . show)
            ([unpushed status] . show)))
@@ -1091,7 +1090,7 @@ There's no way I could top that, so I won't attempt to.
 #+begin_src emacs-lisp
 (use-package swiper
   :after ivy
-  :bind (("C-s"   . swiper)
+  :bind (("C-s"   . swiper-isearch)
          ("C-r"   . swiper)
          ("C-S-s" . isearch-forward)))
 #+end_src
@@ -1202,7 +1201,12 @@ There's no way I could top that, so I won't attempt to.
         (mode . emacs-lisp-mode)
         (mode . scheme-mode)
         (mode . haskell-mode)
-        (mode . lean-mode)))
+        (mode . lean-mode)
+        (mode . alloy-mode)))
+      ("tex"
+       (or
+        (mode . bibtex-mode)
+        (mode . latex-mode)))
       ("emacs"
        (or
         (name . "^\\*scratch\\*$")
@@ -1315,6 +1319,14 @@ There's no way I could top that, so I won't attempt to.
   :config (dash-enable-font-lock))
 #+end_src
 
+*** DocView
+
+#+begin_src emacs-lisp
+(use-package doc-view
+  :bind (:map doc-view-mode-map
+              ("M-RET" . image-previous-line)))
+#+end_src
+
 * Editing
 :PROPERTIES:
 :CUSTOM_ID: editing
@@ -2133,29 +2145,17 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
   :defer 0.5
   :after eshell
   :config
+  (defvar user-@-host (concat (user-login-name) "@" (system-name) " "))
   (defun +eshell/prompt ()
     (let ((base/dir (shrink-path-prompt default-directory)))
-      (concat (propertize (car base/dir)
+      (concat (propertize user-@-host 'face 'default)
+              (propertize (car base/dir)
                           'face 'font-lock-comment-face)
               (propertize (cdr base/dir)
                           'face 'font-lock-constant-face)
-              (propertize (+eshell--current-git-branch)
-                          'face 'font-lock-function-name-face)
-              "\n"
-              ;; "λ"
-              ;; (propertize "λ" 'face 'eshell-prompt)
-              ;; needed for the input text to not have prompt face
-              (propertize "λ " 'face 'default))))
-
-  (defun +eshell--current-git-branch ()
-    (let ((branch (car (loop for match in (split-string (shell-command-to-string "git branch") "\n")
-                             when (string-match "^\*" match)
-                             collect match))))
-      (if (not (eq branch nil))
-          (concat " " (substring branch 2))
-        "")))
-  (setq eshell-prompt-regexp "\\(.*\n\\)*λ "
-                         eshell-prompt-function #'+eshell/prompt))
+              (propertize "> " 'face 'default))))
+  (setq eshell-prompt-regexp (concat user-@-host ".*> ")
+        eshell-prompt-function #'+eshell/prompt))
 #+end_src
 
 ** [[https://github.com/peterwvj/eshell-up][eshell-up]]
@@ -2253,6 +2253,29 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
   (text-mode . yas-minor-mode))
 #+end_src
 
+** Debbugs
+
+#+begin_src emacs-lisp
+(use-package debbugs
+  :straight (debbugs
+             :host github
+             :repo "emacs-straight/debbugs"
+             :files (:defaults "Debbugs.wsdl")))
+#+end_src
+
+** org-ref
+
+#+begin_src emacs-lisp
+(use-package org-ref
+  :init
+  (a/setq-every '("~/usr/org/references.bib")
+    reftex-default-bibliography
+    org-ref-default-bibliography)
+  (setq
+   org-ref-bibliography-notes "~/usr/org/notes.org"
+   org-ref-pdf-directory "~/usr/org/bibtex-pdfs/"))
+#+end_src
+
 * Email
 :PROPERTIES:
 :CUSTOM_ID: email
@@ -2504,7 +2527,7 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
            (concat "Hi %F,\n\n" a/message-cite-style-format)
          a/message-cite-style-format)))
     "Citation style based on Mozilla Thunderbird's. Use with message-cite-style.")
-  (setq message-cite-style 'message-cite-style-bandali
+  (setq ;; message-cite-style 'message-cite-style-bandali
         message-kill-buffer-on-exit t
         message-send-mail-function 'message-send-mail-with-sendmail
         message-sendmail-envelope-from 'header