Move __DIR__/__FILE__ vars/defuns into core-lib

This commit is contained in:
Henrik Lissner 2017-02-06 00:13:51 -05:00
parent 6ec1c79b38
commit f99468a135

View file

@ -1,13 +1,36 @@
;;; core-lib.el ;;; core-lib.el
(defvar +evil-leader)
(defvar +evil-localleader)
(require 'dash) (require 'dash)
(require 'f) (require 'f)
(require 's) (require 's)
(eval-when-compile (require 'cl-lib)) (eval-when-compile (require 'cl-lib))
(defvar +evil-leader)
(defvar +evil-localleader)
(defvar __DIR__ nil "The directory of the currently loaded file (set by `load!')")
(defvar __FILE__ nil "The full path of the currently loaded file (set by `load!')")
(defun __DIR__ ()
"Get the full path to the current file's parent folder."
(or __DIR__
(and load-file-name (f-dirname load-file-name))
(and buffer-file-name (f-dirname buffer-file-name))
default-directory
(and (bound-and-true-p byte-compile-current-file)
(f-dirname byte-compile-current-file))
(error "__DIR__ is unset")))
(defun __FILE__ ()
"Get the full path to the current file."
(or __FILE__
load-file-name
buffer-file-name
(and (bound-and-true-p byte-compile-current-file)
byte-compile-current-file)
(error "__FILE__ is unset")))
(package! anaphora (package! anaphora
:commands (awhen aif acond awhile)) :commands (awhen aif acond awhile))