Case Duckworth
parent
aa7d1157b7
commit
5efe60c74b
106
init.el
106
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
|
||||
|
|
|
|||
Loading…
Reference in New Issue