From a60df99f6789c685b3bf5d2ef18ce656ff007110 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Thu, 22 Sep 2016 13:08:22 -0700
Subject: [PATCH] [Emacs] Add concat-symbols funtion

---
 dotfiles/emacs.d/README.org | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org
index 882caeda..ba56b1c5 100644
--- a/dotfiles/emacs.d/README.org
+++ b/dotfiles/emacs.d/README.org
@@ -717,6 +717,16 @@ A macro for composing functions together to build an interactive command to copy
                            (insert data))
                          (switch-to-buffer created-buffer))))))
 #+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
 #+BEGIN_SRC emacs-lisp
 (defun imalison:join-paths (&rest paths)