aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--emacs/.emacs.d/init/ycp-gnus.el3
-rw-r--r--emacs/.emacs.d/init/ycp-web.el11
-rw-r--r--emacs/.emacs.d/lisp/my/my-org.el2
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))