forked from colonelpanic/dotfiles
[Emacs] Add concat-symbols funtion
This commit is contained in:
parent
ce94315d36
commit
a60df99f67
@ -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)
|
||||||
|
Loading…
Reference in New Issue
Block a user