From 82cf9a13134204b87b7fe01d1cebdf5771d7cebb Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Tue, 31 Dec 2024 10:04:11 +1100 Subject: [emacs] various changes * emacs/.emacs.d/init/ycp-basic.el: forgot to read my-copy-file-targets from local config * emacs/.emacs.d/init/ycp-markup.el: Key in nov mode to copy file to devices * emacs/.emacs.d/init/ycp-org.el: Back to use browse-url for http / https org links * emacs/.emacs.d/init/ycp-pdf.el: forgot to read my-pdf-dptrp1-ip from local config * emacs/.emacs.d/init/ycp-web.el: add a handler for mariadb kb links * emacs/.emacs.d/lisp/my/my-emms.el: mp4 can be audio * emacs/.emacs.d/lisp/my/my-mariadb.el: a predicate for browse-url to determine mariadb kb links * emacs/.emacs.d/lisp/my/my-nov.el: add a command to copy current epub to a device * emacs/.emacs.d/lisp/my/my-org.el: ensure leading and trailing empty lines are deleted in org-edit-special; factor out copy file to device with staging to my-utils, fix my-org-edit-special-after argument numbers for one more time (it is 0 with src and 1 with example) * emacs/.emacs.d/lisp/my/my-utils.el: mp4 could be audio; a function to copy files to device with staging, factored from my-org --- emacs/.emacs.d/init/ycp-basic.el | 1 + emacs/.emacs.d/init/ycp-markup.el | 2 ++ emacs/.emacs.d/init/ycp-org.el | 12 ++++++------ emacs/.emacs.d/init/ycp-pdf.el | 1 + emacs/.emacs.d/init/ycp-web.el | 2 ++ 5 files changed, 12 insertions(+), 6 deletions(-) (limited to 'emacs/.emacs.d/init') diff --git a/emacs/.emacs.d/init/ycp-basic.el b/emacs/.emacs.d/init/ycp-basic.el index 12c21d1..6baf1b8 100644 --- a/emacs/.emacs.d/init/ycp-basic.el +++ b/emacs/.emacs.d/init/ycp-basic.el @@ -57,6 +57,7 @@ (:delay 5) (my-setq-from-local my-audio-incoming-dir my-video-incoming-dir my-document-incoming-dir) + (my-setq-from-local my-copy-file-targets) (my-keybind global-map "C-c " #'my-rename-file-and-buffer "C-c " #'my-delete-file-and-kill-buffer diff --git a/emacs/.emacs.d/init/ycp-markup.el b/emacs/.emacs.d/init/ycp-markup.el index e03fd86..d55586d 100644 --- a/emacs/.emacs.d/init/ycp-markup.el +++ b/emacs/.emacs.d/init/ycp-markup.el @@ -94,6 +94,8 @@ (require 'my-nov) (my-override nov-render-title) (my-override nov-scroll-up) + (my-keybind nov-mode-map + "Q" #'my-nov-copy-buffer-file-with-staging) ) ;;; json-mode diff --git a/emacs/.emacs.d/init/ycp-org.el b/emacs/.emacs.d/init/ycp-org.el index eb5a63d..bb1b828 100644 --- a/emacs/.emacs.d/init/ycp-org.el +++ b/emacs/.emacs.d/init/ycp-org.el @@ -504,12 +504,12 @@ (my-package my-org (:delay 30) (require 'my-web) - (org-link-set-parameters "http" :follow (lambda (url arg) - (my-browse-url - (concat "http:" url) arg))) - (org-link-set-parameters "https" :follow (lambda (url arg) - (my-browse-url - (concat "https:" url) arg))) + (org-link-set-parameters "http" :follow + (lambda (url arg) + (browse-url (concat "http:" url) arg))) + (org-link-set-parameters "https" :follow + (lambda (url arg) + (browse-url (concat "http:" url) arg))) (require 'eww) (define-key eww-mode-map (kbd "C-'") 'my-eww-org-protocol-grok) ) diff --git a/emacs/.emacs.d/init/ycp-pdf.el b/emacs/.emacs.d/init/ycp-pdf.el index 9553f7a..8e47f1c 100644 --- a/emacs/.emacs.d/init/ycp-pdf.el +++ b/emacs/.emacs.d/init/ycp-pdf.el @@ -57,6 +57,7 @@ "," #'my-pdf-view-shrink-a-bit "Q" #'my-pdf-dptrp1-upload ) + (my-setq-from-local my-pdf-dptrp1-ip) ) (my-package pdf-misc diff --git a/emacs/.emacs.d/init/ycp-web.el b/emacs/.emacs.d/init/ycp-web.el index c50cc46..ffdb83d 100644 --- a/emacs/.emacs.d/init/ycp-web.el +++ b/emacs/.emacs.d/init/ycp-web.el @@ -254,6 +254,8 @@ . ,(lambda (url &rest _) (exitter-open-post url))) (my-hacker-news-url-p . ,(lambda (url &rest _) (hnreader-comment url))) + (my-mariadb-kb-url-p + . ,(lambda (url &rest _) (my-mariadb-fetch-kb-source url))) (my-mastodon-url-p . ,(lambda (url &rest _) (mastorg-open url))) (my-newscorp-au-url-p -- cgit v1.2.3