From ca76547b69f2b9fb13e757229235e702836e3a2b Mon Sep 17 00:00:00 2001
From: Yuchen Pei <id@ypei.org>
Date: Wed, 8 Nov 2023 00:38:04 +1100
Subject: [emacs] Some minor changes

---
 emacs/.emacs.d/init/ycp-gnus.el  |  3 +++
 emacs/.emacs.d/init/ycp-web.el   | 11 ++++++++---
 emacs/.emacs.d/lisp/my/my-org.el |  2 +-
 3 files changed, 12 insertions(+), 4 deletions(-)

(limited to 'emacs/.emacs.d')

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))
-- 
cgit v1.2.3