'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)))
#+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
(mode . emacs-lisp-mode)
(mode . scheme-mode)
(mode . haskell-mode)
- (mode . lean-mode)))
+ (mode . lean-mode)
+ (mode . alloy-mode)))
("emacs"
(or
(name . "^\\*scratch\\*$")
: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
: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]]
(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