From a0f209b8e135ff4f86f81d14906eedc07a0077b5 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Wed, 8 Nov 2017 22:51:46 +0100
Subject: [PATCH] Add org/org/autoload/org-link.el

---
 modules/org/org/autoload/org-link.el | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 modules/org/org/autoload/org-link.el

diff --git a/modules/org/org/autoload/org-link.el b/modules/org/org/autoload/org-link.el
new file mode 100644
index 000000000..8d55ef8d0
--- /dev/null
+++ b/modules/org/org/autoload/org-link.el
@@ -0,0 +1,15 @@
+;;; 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))))