diff options
author | Case Duckworth | 2021-08-30 08:51:46 -0500 |
---|---|---|
committer | Case Duckworth | 2021-08-30 08:51:46 -0500 |
commit | 8e3d3480f13c986397ef33fb5651557882b91f29 (patch) | |
tree | 02c23fab5b04708d4bfd555b232a0d20b1f892e4 | |
parent | Add toggle bindings (diff) | |
download | emacs-8e3d3480f13c986397ef33fb5651557882b91f29.tar.gz emacs-8e3d3480f13c986397ef33fb5651557882b91f29.zip |
Make mastodon-mode better
-rw-r--r-- | init.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/init.el b/init.el index e17687f..aaa6c13 100644 --- a/init.el +++ b/init.el | |||
@@ -1020,8 +1020,7 @@ like a dumbass." | |||
1020 | kill-read-only-ok t | 1020 | kill-read-only-ok t |
1021 | load-prefer-newer t | 1021 | load-prefer-newer t |
1022 | native-comp-async-report-warnings-errors nil | 1022 | native-comp-async-report-warnings-errors nil |
1023 | set-mark-command-repeat-pop t | 1023 | set-mark-command-repeat-pop t) |
1024 | ) | ||
1025 | 1024 | ||
1026 | (when (fboundp 'command-completion-default-include-p) | 1025 | (when (fboundp 'command-completion-default-include-p) |
1027 | (setq read-extended-command-predicate | 1026 | (setq read-extended-command-predicate |
@@ -1118,6 +1117,8 @@ like a dumbass." | |||
1118 | (define-key gnus-article-mode-map key #'ace-link-gnus)) | 1117 | (define-key gnus-article-mode-map key #'ace-link-gnus)) |
1119 | (with-eval-after-load 'ert | 1118 | (with-eval-after-load 'ert |
1120 | (define-key ert-results-mode-map "o" #'ace-link-help)) | 1119 | (define-key ert-results-mode-map "o" #'ace-link-help)) |
1120 | (with-eval-after-load 'mastodon | ||
1121 | (define-key mastodon-mode-map "o" #'ace-link-addr)) | ||
1121 | ;; And still everything else | 1122 | ;; And still everything else |
1122 | (setq ace-link-fallback-function #'ace-link-addr) | 1123 | (setq ace-link-fallback-function #'ace-link-addr) |
1123 | (global-set-key key #'ace-link))) | 1124 | (global-set-key key #'ace-link))) |
@@ -1579,7 +1580,9 @@ successive invocations." | |||
1579 | (:straight request) | 1580 | (:straight request) |
1580 | (:option mastodon-instance-url "https://writing.exchange" | 1581 | (:option mastodon-instance-url "https://writing.exchange" |
1581 | mastodon-auth-source-file (car auth-sources) | 1582 | mastodon-auth-source-file (car auth-sources) |
1582 | mastodon-client--token-file (acdw/dir "mastodon.plstore"))) | 1583 | mastodon-client--token-file (acdw/dir "mastodon.plstore")) |
1584 | (:hook hl-line-mode | ||
1585 | olivetti-mode)) | ||
1583 | 1586 | ||
1584 | (setup (:straight (modus-themes | 1587 | (setup (:straight (modus-themes |
1585 | :host gitlab | 1588 | :host gitlab |