notes.org

Project Notes

Elisp client code

(defun org-wiki-paste-image-uuid ()
  "Paste a image with automatic generated name (uuid)."
  (interactive)
  (insert "#+CAPTION: ")
  (save-excursion
    (insert "\n")
    (insert
     (shell-command-to-string
      (mapconcat #'identity
                 `("java"
                   "-jar"
                   ,(expand-file-name "~/bin/Clip.jar")
                   "-uuid"
                   ,(format "\"%s\"" (file-name-base (buffer-file-name))))
                 " "
                 )))))

(defun org-wiki-paste-image ()  
  "Paste a image asking the user for the file name."
  (interactive)
  (insert "#+CAPTION: ")
  (save-excursion
    (insert "\n")
    (let* ((dir   (file-name-as-directory
                   (file-name-base
                    (buffer-file-name))))
           (file (read-file-name "Image: " dir)))
      (insert
       (shell-command-to-string
         (mapconcat #'identity
                    `("java"
                      "-jar"
                      ,(expand-file-name "~/bin/Clip.jar")
                      "-file"
                      ,(file-relative-name file default-directory)
                      )
                    " "
                    ))))))

Snippets sources

• save image from clipboard to file | notepad blog

Design Decisions