acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

meh

This commit is contained in:
Case Duckworth 2022-02-02 18:28:39 -06:00
parent 89a12141dc
commit 5eea6b4919
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
init.el
View File

@ -62,8 +62,7 @@
(:hook #'+init-add-setup-to-imenu))
(setup (:require auth-source)
(:option auth-sources (list 'default ; secret-source
"secrets:default"
(:option auth-sources (list 'default
(private/ "authinfo")))
(:with-mode authinfo-mode
(:local-set truncate-lines t)))
@ -1201,19 +1200,12 @@ See also `crux-reopen-as-root-mode'."
emms-mode-line-format "%s"
emms-mode-line-mode-line-function ;#'emms-mode-line-icon-function
(defun +emms-mode-line-truncate ()
(let ((current-trunc (concat "[ "
(let ((current-trunc (concat "{"
(+string-truncate
(emms-mode-line-playlist-current)
24)
" ] ")))
(if emms-mode-line-icon-enabled-p
(concat " "
emms-mode-line-icon-before-format
(emms-propertize "🎵:" 'display
(emms-mode-line-icon-generate
emms-mode-line-icon-color))
current-trunc)
current-trunc))))
"} ")))
current-trunc)))
(emms-mode-line-mode +1)
(emms-playing-time-mode -1))
@ -1415,7 +1407,10 @@ See also `crux-reopen-as-root-mode'."
jabber-groupchat-buffer-format "xmpp:%n"
jabber-chat-buffer-format "xmpp:%n"
jabber-muc-private-buffer-format "xmpp:%n(%g)"
jabber-activity-show-p #'ignore)
jabber-activity-show-p #'ignore
jabber-muc-decorate-presence-patterns
'(("\\( enters the room ([^)]+)\\| has left the chatroom\\)$")
("." . jabber-muc-presence-dim)))
(dolist (mode '(jabber-chat-mode
jabber-browse-mode
jabber-roster-mode
@ -1426,6 +1421,10 @@ See also `crux-reopen-as-root-mode'."
(advice-add 'jabber-activity-add :after #'+jabber-tracking-add)
(advice-add 'jabber-activity-add-muc :after #'+jabber-tracking-add-muc))
(setup (:straight (keepassxc-shim
:host github :repo "duckwork/keepassxc-shim.el"))
(keepassxc-shim-activate))
(setup (:straight-when keychain-environment
(executable-find "keychain"))
(keychain-refresh-environment))
@ -1462,8 +1461,9 @@ See also `crux-reopen-as-root-mode'."
(setup (:straight macrostep)
(:require macrostep)
(:bind-into (emacs-lisp-mode lisp-interaction-mode)
"C-c e" #'macrostep-expand))
(dolist (m '(emacs-lisp-mode-map
lisp-interaction-mode-map))
(define-key (symbol-value m) (kbd "C-c e") #'macrostep-expand)))
(setup (:straight (magit :host github :repo "magit/magit")))