|Date:||Wed, 11 Nov 2009 12:01:31 -0500|
This would be easy if there were a variable like __FILE__ that Ruby provides. In Ruby 1.8, using __FILE__ one can simulate require-relative of Ruby 1.9.
I figure it should be possible to write such a function or macro using functions symbol-file, file-name-directory and variable load-file-name, but the closest I've come so far is to pass in a symbol which is defined prior in the loaded file. (defmacro involving (symbol-file (gensym)) doesn't seem to work.)
The code I have is pretty short so I post it below. Any suggestions for improving, specifically to remove the need to pass in a symbol?
Should this be part of Emacs where I suspect it would be easier to write?
(defun __FILE__ (symbol)
"Return the string name of file of the currently running Emacs Lisp
SYMBOL should be some symbol defined in the file, but it is not
used if Emacs is currently running `load' of a file. The simplest
thing to do is call `provide' prior to this and use the value
given for that for SYMBOL. For example:
(defun load-relative (file-or-list symbol)
"Load an Emacs Lisp file relative to some other currently loaded
FILE-OR-LIST is Emacs Lisp either a string or a list of strings
containing files that you want to loaded. SYMBOL should a symbol
defined another Emacs Lisp file that you want FILE loaded relative
to. If this is called inside a `load', then SYMBOL is ignored and
`load-file-name' is used instead."
(let ((prefix (file-name-directory (or (__FILE__ symbol) "./"))))
(if (listp file-or-list)
(mapcar (lambda(file) (load (concat prefix file))) file-or-list)
(load (concat prefix file-or-list)))))
|[Prev in Thread]||Current Thread||[Next in Thread]|