[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

5 files changed, 12 insertions, 6 deletions

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 <f2>" #'my-rename-file-and-buffer
     "C-c <delete>" #'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