Add modules/lang/org (WIP)

2017-02-19 19:01:47 -05:00 · 2017-02-19 19:01:47 -05:00 · 941f3abc6f
commit 941f3abc6f
parent c3159b5649
10 changed files with 912 additions and 0 deletions
--- a/modules/lang/org/autoload/attach.el
+++ b/modules/lang/org/autoload/attach.el
@ -0,0 +1,52 @@
+;;; emacs/org/autoload/attach.el
+
+(defun doom--org-attach-icon (path)
+  (char-to-string (pcase (downcase (f-ext path))
+                    ("jpg" ?) ("jpeg" ?) ("png" ?) ("gif" ?)
+                    ("pdf" ?)
+                    ("ppt" ?) ("pptx" ?)
+                    ("xls" ?) ("xlsx" ?)
+                    ("doc" ?) ("docx" ?)
+                    ("ogg" ?) ("mp3" ?) ("wav" ?)
+                    ("mp4" ?) ("mov" ?) ("avi" ?)
+                    ("zip" ?) ("gz" ?) ("tar" ?) ("7z" ?) ("rar" ?)
+                    (_ ?))))
+
+;;;###autoload
+(defun +org-cleanup-attachments ()
+  ;; "Deletes any attachments that are no longer present in the org-mode buffer."
+  (let* ((attachments-local (+org-attachments))
+         (attachments (f-entries org-attach-directory))
+         (to-delete (-difference attachments-local attachments)))
+    ;; TODO
+    to-delete))
+
+(defun +org-attachments ()
+  (unless (eq major-mode 'org-mode)
+    (user-error "Not an org buffer"))
+  (org-save-outline-visibility nil
+    (let ((attachments '())
+          element
+          file)
+      (when (and (f-dir? org-attach-directory)
+                 (> (length (f-glob (concat (f-slash org-attach-directory) "*"))) 0))
+        (save-excursion
+          (goto-char (point-min))
+          (while (progn (org-next-link) (not org-link-search-failed))
+            (setq element (org-element-lineage (org-element-context) '(link) t))
+            (when element
+              (setq file (expand-file-name (org-element-property :path element)))
+              (when (and (string= (org-element-property :type element) "file")
+                         (string= (concat (f-base (f-dirname file)) "/") org-attach-directory)
+                         (file-exists-p file))
+                (push file attachments))))))
+      (-distinct attachments))))
+
+;;;###autoload
+(defun +org-download-dnd (uri action)
+  (if (eq major-mode 'org-mode)
+      (doom:org-attach uri) ;; FIXME
+    (let ((dnd-protocol-alist
+           (rassq-delete-all '+org-download-dnd (copy-alist dnd-protocol-alist))))
+      (dnd-handle-one-url nil action uri))))
+