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/config.el

@@ -0,0 +1,49 @@
+;;; org/org-attach/config.el -*- lexical-binding: t; -*-
+
+(defvar +org-attach-dir (expand-file-name ".attach/" +org-dir)
+  "Where to store attachments (relative to current org file).")
+
+
+(add-hook '+org-init-hook #'+org|init-attach t)
+
+;; FIXME This module is broken and needs to be rewritten.
+;;
+;; I believe Org's native attachment system is over-complicated and litters
+;; files with metadata I don't want.
+;;
+;; This installs my own attachment system. It:
+;;
+;; + Centralizes attachment in a global location,
+;; + Adds drag-and-drop file support
+;; + TODO ...with attachment icons, and
+;; + TODO Offers an attachment management system.
+
+(def-package! org-download
+  :config
+  (setq-default org-download-image-dir +org-attach-dir
+                org-download-heading-lvl nil
+                org-download-timestamp "_%Y%m%d_%H%M%S")
+  (setq org-download-screenshot-method
+        (cond (IS-MAC   "screencapture -i %s")
+              (IS-LINUX "maim --opengl -s %s")))
+
+  ;; Write download paths relative to current file
+  (defun +org-attach*download-fullname (path)
+    (file-relative-name path (file-name-directory (buffer-file-name))))
+  (advice-add #'org-download--dir-2 :override #'ignore)
+  (advice-add #'org-download--fullname
+              :filter-return #'+org-attach*download-fullname))
+
+;;
+(defun +org-attach|init ()
+  (setq org-attach-directory +org-attach-directory)
+
+  (push ".attach" projectile-globally-ignored-file-suffixes)
+  (after! recentf
+    (push (format "/%s.+$" (regexp-quote +org-attach-dir))
+          recentf-exclude))
+
+  (require 'org-download)
+
+  ;; Add another drag-and-drop handler that will handle anything but image files
+  (push '("^\\(https?\\|ftp\\|file\\|nfs\\):\\(//\\)?" . +org-attach-download-dnd) dnd-protocol-alist))