diff options
-rw-r--r-- | email.org | 1 | ||||
-rw-r--r-- | gnus.org | 11 | ||||
-rw-r--r-- | init.org | 5 |
3 files changed, 8 insertions, 9 deletions
@@ -419,7 +419,6 @@ tag_deleted "bigml.(drivel|lists|deploys|bugs)" 3d tag_deleted "bigml.reports" 1d - tag_deleted "bigml.inbox$" 1y tag_deleted "bigml.support$" 7d tag_deleted "jao.(drivel|lists|books|think)" 3d tag_deleted "feeds.+" 3d @@ -199,8 +199,7 @@ (setq gnus-check-new-newsgroups nil) (defvar jao-gnus-tracked-groups - '(("^nnimap:\\(bigml\\|jao\\)" "" default) - ("nnimap:bigml/inbox" "B" jao-themes-f00) + '(("nnimap:bigml/inbox" "B" jao-themes-f00) ("nnimap:bigml/bugs" "b" jao-themes-error) ("nnimap:bigml/support" "S" default) ("nnimap:jao/inbox" "I" jao-themes-f01) @@ -359,10 +358,10 @@ (gnus-server-exit) (message "Restarting all servers... done")) - (define-key gnus-group-mode-map "z" #'notmuch) - (define-key gnus-group-mode-map "Z" #'jao-gnus-restart-servers) - (define-key gnus-group-mode-map "Gg" #'consult-notmuch) - (define-key gnus-group-mode-map "GG" #'jao-consult-notmuch-folder) + (define-key gnus-group-mode-map "z" nil) + (define-key gnus-group-mode-map "zz" #'notmuch) + (define-key gnus-group-mode-map "zg" #'jao-consult-notmuch-folder) + (define-key gnus-group-mode-map "zG" #'consult-notmuch) (defun jao-gnus--first-group () (when (derived-mode-p 'gnus-group-mode) @@ -658,9 +658,9 @@ (setq mode-line-position-column-format '(" %c") mode-line-position-line-format '(" %l,%c")) (setq mode-line-percent-position - '(" %l" - (circe-chat-target (:eval (format " [%d]" + '((circe-chat-target (:eval (format " [%d]" (length (circe-channel-nicks))))) + " %l" (:eval (format "/%d" (line-number-at-pos (point-max)))))) (line-number-mode -1) (column-number-mode 1) @@ -1547,6 +1547,7 @@ ("^https?://.*\\.slack\\..*" . ,jao-browse-url-external-function) ("^https?://.*\\.gotomeeting\\.com\\.*" . browse-url-chrome) ("^https?://meet\\.google\\.com\\.*" . ,jao-browse-url-external-function) + ("^https?://t\\(witter\\)?\\.com?/.*" . ,jao-browse-url-external-function) (,(jao-wget--regexp) . jao-download) (jao-video--url-p . jao-maybe-view-video) ("." . ,jao-browse-url-function))) |