2017-11-08 22:51:46 +01:00
|
|
|
;;; org/org/autoload/org-link.el -*- lexical-binding: t; -*-
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun +org-link-read-file (key dir)
|
|
|
|
|
(let ((file (read-file-name (format "%s: " (capitalize key)) dir)))
|
|
|
|
|
(format "%s:%s"
|
|
|
|
|
key
|
|
|
|
|
(file-relative-name file dir))))
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun +org-link-read-directory (key dir)
|
|
|
|
|
(let ((file (read-directory-name (format "%s: " (capitalize key)) dir)))
|
|
|
|
|
(format "%s:%s"
|
|
|
|
|
key
|
|
|
|
|
(file-relative-name file dir))))
|
2019-03-07 00:15:15 -05:00
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun +org-inline-data-image (_protocol link _description)
|
|
|
|
|
"Interpret LINK as base64-encoded image data."
|
|
|
|
|
(base64-decode-string link))
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun +org-image-link (protocol link _description)
|
|
|
|
|
"Interpret LINK as base64-encoded image data."
|
|
|
|
|
(when (image-type-from-file-name link)
|
|
|
|
|
(if-let* ((buf (url-retrieve-synchronously (concat protocol ":" link))))
|
|
|
|
|
(with-current-buffer buf
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(re-search-forward "\r?\n\r?\n" nil t)
|
|
|
|
|
(buffer-substring-no-properties (point) (point-max)))
|
|
|
|
|
(message "Download of image \"%s\" failed" link)
|
|
|
|
|
nil)))
|
