feat: add denote/clipboard-image-insert

Author: xhcoding

README.org

@@ -2542,14 +2542,15 @@ ref:https://github.com/manateelazycat/toggle-one-window
   ")
     (setq denote-excluded-directories-regexp "\\(.stfolder\\)")
 
+    (defun my-denote-id()
+      (format-time-string "%Y%m%dT%H%M%S"))
 
     (defun my/denote-insert-attach-name (&optional title)
       "Insert a Denote attachment filename at point.
   ID is generated by `format-time-string', TITLE is prompted."
       (interactive)
       (let* ((title    (or title (read-string "Title: ")))
-             (id       (format-time-string "%Y%m%dT%H%M%S"))
-             (filename (concat id "--" title)))
+             (filename (concat (my-denote-id) "--" title)))
         (insert filename)
         (message "Inserted: %s" filename)))
 
@@ -2784,21 +2785,31 @@ ref:https://github.com/manateelazycat/toggle-one-window
       '(add-to-list 'org-src-lang-modes '("denote-cpp" . c++-ts)))
 
 
-
     (defun denote-image-insert (file)
       "Insert image file to notes."
-      (declare (interactive-only t))
-      (interactive "fImage file: ")
       (let* ((blog-file-title (denote-retrieve-filename-title (buffer-file-name)))
              (blog-image-dir (concat (expand-file-name blog-file-title my-notes-image-dir) "/"))
              (blog-image-ext (concat "." (file-name-extension file)))
              (blog-default-image-title (concat blog-file-title (format-time-string "-%H%M%S")))
              (blog-image-title (read-string "Image title: " "" nil blog-default-image-title))
-             (blog-image-new-name (denote-format-file-name blog-image-dir (denote-retrieve-filename-identifier (buffer-file-name)) nil blog-image-title blog-image-ext nil)))
+             (blog-image-denote-id (my-denote-id))
+             (blog-image-new-name (expand-file-name (concat blog-image-denote-id "--" blog-image-title blog-image-ext) blog-image-dir)))
         (unless (file-directory-p blog-image-dir)
           (make-directory blog-image-dir t))
+        (message "Copy file from %s to %s" file blog-image-new-name)
         (copy-file file blog-image-new-name)
-        (insert (format "[[file:%s]]" (file-relative-name blog-image-new-name (file-name-directory (buffer-file-name)))))))
+        (insert (format "[[denote:%s]]" blog-image-denote-id))))
+
+    (defun denote/clipboard-image-insert()
+      "Insert clipboard image."
+      (interactive)
+      (let* ((file (format "/tmp/clipboard-%s.png" (format-time-string "%s"))))
+        (shell-command (format "xclip -selection clipboard -t image/png -o > %s" file))
+        (unless (file-exists-p file)
+          (error "save failed"))
+        (denote-image-insert file)))
+
+
     (defun my-denote-blog-link-ol-export (link description format)
       ""
       (let* ((path-id (denote-link--ol-resolve-link-to-target link :path-id))