imalison:join-paths

This commit is contained in:
Ivan Malison 2016-06-15 21:30:17 -07:00
parent 2d039442f1
commit a94959dbe4

View File

@ -407,6 +407,14 @@ Prefix alternatives is a macro that builds a function that selects one of a coll
(setq current-prefix-arg nil) (setq current-prefix-arg nil)
(call-interactively function))) (call-interactively function)))
#+END_SRC #+END_SRC
** Join paths together as with os.path.join in python
#+BEGIN_SRC emacs-lisp
(defun imalison:join-paths (root &rest dirs)
(let ((result root))
(cl-loop for dir in dirs do
(setq result (concat (file-name-as-directory result) dir)))
result))
#+END_SRC
** Other ** Other
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defun imalison:join-paths (&rest paths) (defun imalison:join-paths (&rest paths)