awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-08-21 13:53:31 -05:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #27 from jethrokuan/fix/polyfill

Browse Source 
Move polyfill into main file
This commit is contained in:
Jethro Kuan
2020-02-07 12:46:13 +08:00
committed by GitHub
parent f0125421be ea681ceceb
commit c66b8a7c2c
2 changed files with 20 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
org-roam-polyfill.el
View File

@@ -1,18 +1,2 @@
;; Introduced in Emacs 27.1
(unless (fboundp 'make-empty-file)
(defun make-empty-file (filename &optional parents)
"Create an empty file FILENAME.
Optional arg PARENTS, if non-nil then creates parent dirs as needed.
If called interactively, then PARENTS is non-nil."
(interactive
(let ((filename (read-file-name "Create empty file: ")))
(list filename t)))
(when (and (file-exists-p filename) (null parents))
(signal 'file-already-exists `("File exists" ,filename)))
(let ((paren-dir (file-name-directory filename)))
(when (and paren-dir (not (file-exists-p paren-dir)))
(make-directory paren-dir parents)))
(write-region "" nil filename nil 0)))
(provide'org-roam-polyfill) (provide'org-roam-polyfill)

21
org-roam.el
View File

@@ -4,7 +4,6 @@
;; ;;
;;; Code: ;;; Code:
(require 'org-roam-polyfill)
(require 'org-element) (require 'org-element)
(require 'async) (require 'async)
(require 'subr-x) (require 'subr-x)
@@ -61,6 +60,26 @@ Valid values are
:type 'string :type 'string
:group 'org-roam) :group 'org-roam)
;;; Polyfills
;; These are for functions I use that are only available in newer Emacs
;; Introduced in Emacs 27.1
(unless (fboundp 'make-empty-file)
(defun make-empty-file (filename &optional parents)
"Create an empty file FILENAME.
Optional arg PARENTS, if non-nil then creates parent dirs as needed.
If called interactively, then PARENTS is non-nil."
(interactive
(let ((filename (read-file-name "Create empty file: ")))
(list filename t)))
(when (and (file-exists-p filename) (null parents))
(signal 'file-already-exists `("File exists" ,filename)))
(let ((paren-dir (file-name-directory filename)))
(when (and paren-dir (not (file-exists-p paren-dir)))
(make-directory paren-dir parents)))
(write-region "" nil filename nil 0)))
;;; Dynamic variables ;;; Dynamic variables
(defvar org-roam-update-timer nil (defvar org-roam-update-timer nil
"Variable containing the timer that periodically updates the buffer.") "Variable containing the timer that periodically updates the buffer.")