Move lang/org => org/*

Since lang/org has grown (and is expected to grow much, much more), it
has been given its own module category.

Concerns #129, #138

modules/org/org-attach/autoload/org-attach.el

@@ -0,0 +1,55 @@
+;;; org/org-attach/autoload/org-attach.el -*- lexical-binding: t; -*-
+
+(defun +org-attach--icon (path)
+  (char-to-string
+   (pcase (downcase (file-name-extension path))
+     ((or "jpg" "jpeg" "png" "gif") ?)
+     ("pdf" ?)
+     ((or "ppt" "pptx") ?)
+     ((or "xls" "xlsx") ?)
+     ((or "doc" "docx") ?)
+     ((or "ogg" "mp3" "wav" "aiff" "flac") ?)
+     ((or "mp4" "mov" "avi") ?)
+     ((or "zip" "gz" "tar" "7z" "rar") ?)
+     (_ ?))))
+
+;;;###autoload
+(defun +org-attach-cleanup ()
+  ;; "Deletes any attachments that are no longer present in the org-mode buffer."
+  (let* ((attachments-local (+org-attachments))
+         (attachments (directory-files org-attach-directory t "^[^.]" t))
+         (to-delete (cl-set-difference attachments-local attachments)))
+    ;; TODO
+    to-delete))
+
+(defun +org-attachments ()
+  "List all attachments in the current buffer."
+  (unless (eq major-mode 'org-mode)
+    (user-error "Not an org buffer"))
+  (org-save-outline-visibility nil
+    (let ((attachments '())
+          element)
+      (when (and (file-directory-p org-attach-directory)
+                 (> (length (file-expand-wildcards (expand-file-name "*" org-attach-directory))) 0))
+        (save-excursion
+          (goto-char (point-min))
+          (while (progn (org-next-link) (not org-link-search-failed))
+            (setq element (org-element-context))
+            (when-let (file (and (eq (org-element-type element) 'link)
+                                 (expand-file-name (org-element-property :path element))))
+              (when (and (string= (org-element-property :type element) "file")
+                         (string= (concat (file-name-base (directory-file-name (file-name-directory file))) "/")
+                                  org-attach-directory)
+                         (file-exists-p file))
+                (push file attachments))))))
+      (cl-remove-duplicates attachments))))
+
+;;;###autoload
+(defun +org-attach-download-dnd (uri action)
+  (if (eq major-mode 'org-mode)
+      (doom:org-attach uri) ;; FIXME
+    (let ((dnd-protocol-alist
+           (rassq-delete-all '+org-attach-download-dnd
+                             (copy-alist dnd-protocol-alist))))
+      (dnd-handle-one-url nil action uri))))
+