[Emacs] Add concat-symbols funtion

This commit is contained in:
Ivan Malison 2016-09-22 13:08:22 -07:00
parent ce94315d36
commit a60df99f67
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -717,6 +717,16 @@ A macro for composing functions together to build an interactive command to copy
(insert data)) (insert data))
(switch-to-buffer created-buffer)))))) (switch-to-buffer created-buffer))))))
#+END_SRC #+END_SRC
** Concat With Symbols
#+BEGIN_SRC emacs-lisp
(defun imalison:maybe-symbol-name (arg)
(if (symbolp arg)
(symbol-name arg)
arg))
(defun imalison:concat-symbols (&rest args)
(intern (mapconcat 'imalison:maybe-symbol-name args "")))
#+END_SRC
** Other ** Other
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defun imalison:join-paths (&rest paths) (defun imalison:join-paths (&rest paths)