05/24: emacs: Add utils to make symbol and string for guix command.

[Alex Kost]

alezost pushed a commit to branch wip-emacs-popup-ui
in repository guix.

commit d14f365912a694938239d98225a2c5cfa8c6ea9e
Author: Alex Kost <address@hidden>
Date:   Sun Aug 16 11:09:39 2015 +0300

    emacs: Add utils to make symbol and string for guix command.
    
    * emacs/guix-utils.el (guix-command-symbol, guix-command-string): New
      functions.
---
 emacs/guix-utils.el |    8 ++++++++
 1 files changed, 8 insertions(+), 0 deletions(-)

diff --git a/emacs/guix-utils.el b/emacs/guix-utils.el
index df6636c..dfcab4d 100644
--- a/emacs/guix-utils.el
+++ b/emacs/guix-utils.el
@@ -144,6 +144,14 @@ add both to the end and to the beginning."
           (t
            (concat separator str separator)))))
 
+(defun guix-command-symbol (&optional args)
+  "Return symbol by concatenating 'guix' and ARGS (strings)."
+  (intern (guix-concat-strings (cons "guix" args) "-")))
+
+(defun guix-command-string (&optional args)
+  "Return 'guix ARGS ...' string."
+  (guix-concat-strings (cons "guix" args) " "))
+
 (defun guix-completing-read-multiple (prompt table &optional predicate
                                       require-match initial-input
                                       hist def inherit-input-method)