diff options
| author | Yuchen Pei <id@ypei.org> | 2023-11-08 00:38:04 +1100 |
|---|---|---|
| committer | Yuchen Pei <id@ypei.org> | 2023-11-08 00:38:04 +1100 |
| commit | ca76547b69f2b9fb13e757229235e702836e3a2b (patch) | |
| tree | 074980ca3b18f548d60b202bbbde4613e1cffe77 | |
| parent | 91894c16a1064c3a0ea780b85134c0e30af2b946 (diff) | |
[emacs] Some minor changes
| -rw-r--r-- | emacs/.emacs.d/init/ycp-gnus.el | 3 | ||||
| -rw-r--r-- | emacs/.emacs.d/init/ycp-web.el | 11 | ||||
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-org.el | 2 |
3 files changed, 12 insertions, 4 deletions
diff --git a/emacs/.emacs.d/init/ycp-gnus.el b/emacs/.emacs.d/init/ycp-gnus.el index b15dac9..90a2c5a 100644 --- a/emacs/.emacs.d/init/ycp-gnus.el +++ b/emacs/.emacs.d/init/ycp-gnus.el @@ -234,6 +234,9 @@ (bbdb-vcard-default-keybindings) (my-setq-from-local bbdb-vcard-default-dir)) +(my-package my-url-rewrite + (:delay 60)) + (my-package traclicker (:delay 60) (my-setq-from-local tracli-senders tracli-maildirs) diff --git a/emacs/.emacs.d/init/ycp-web.el b/emacs/.emacs.d/init/ycp-web.el index 473865c..3109e2c 100644 --- a/emacs/.emacs.d/init/ycp-web.el +++ b/emacs/.emacs.d/init/ycp-web.el @@ -41,8 +41,8 @@ (require 'luwak-org) (require 'my-utils) (setq luwak-url-rewrite-function 'my-rewrite-url) - (setq luwak-tor-switch nil) -) + (setq luwak-tor-switch t) + ) ;;; openlibrary (my-package my-openlibrary @@ -216,7 +216,9 @@ "\\`\\(video/\\|audio\\)") ; On GNU/Linux check your mimeapps.list (setq eww-browse-url-new-window-is-tab nil) (my-keybind eww-link-keymap "v" nil) ; stop overriding `eww-view-source' - (my-keybind eww-mode-map "L" #'eww-list-bookmarks) + (my-keybind eww-mode-map + "L" #'eww-list-bookmarks + "o" #'eww) (my-keybind eww-bookmark-mode-map "d" #'eww-bookmark-kill) ) @@ -274,6 +276,9 @@ (add-hook 'mastodon-toot-mode-hook (lambda () (turn-off-auto-fill))) (mastodon)) +(my-package mastorg + (:delay 60)) + (add-to-list 'load-path (locate-user-emacs-file "lisp/servall/lisp")) (my-package servall-wikipedia (:delay 60) diff --git a/emacs/.emacs.d/lisp/my/my-org.el b/emacs/.emacs.d/lisp/my/my-org.el index 9900195..1f5ca63 100644 --- a/emacs/.emacs.d/lisp/my/my-org.el +++ b/emacs/.emacs.d/lisp/my/my-org.el @@ -1466,7 +1466,7 @@ will be in the format of WORK-42 CHORE-1024 etc." "Increment the next id of CATEGORY. Return the next id before incrementing." - (let* ((next-ids (my-org-read-next-ids)) + (let* ((next-ids (my-org-task-read-next-ids)) (next-id (alist-get category next-ids))) (setf (alist-get category next-ids) (1+ next-id)) |