Emacs lisp functions for creating attachment directories and attaching files in MarkupServe

markupserve-elisp.el

(defun markupserve-resource-dir-for-buffer (buffer)
  (concat (buffer-file-name buffer) "/../" (file-name-sans-extension
                                            (buffer-name buffer))
          ".resources"))

(defun markupserve-make-resource-directory ()
  (interactive)
  (if (buffer-file-name (current-buffer))
      (let ((dirname (markupserve-resource-dir-for-buffer (current-buffer))))
        (make-directory dirname)
        (message "Resource directory %s created" dirname)
        )
    (message (concat "Current buffer isn't backed by a file, so can't create "
                     "resource directory"))))

(defun markupserve-attach-resource ()
  (interactive)
  (let ((attachedfile (read-file-name "File to attach: "))
        (resourcedir (markupserve-resource-dir-for-buffer (current-buffer))))
    (let ((dest-path (concat resourcedir "/"
                                 (file-name-nondirectory attachedfile)))
          (source-filename (file-name-nondirectory attachedfile)))
      (if (file-exists-p dest-path) (delete-file dest-path))
      (copy-file attachedfile dest-path)
      (insert (format "[%s](%s/%s)" source-filename
                      (url-hexify-string
                       (file-name-nondirectory resourcedir))
                      (url-hexify-string source-filename)))
      (message "Attached %s" attachedfile))))