.

config.org

@@ -10,6 +10,8 @@
 
 #+NAME: module-list
 - gnu
+- gnu image
+- gnu services authentication
 - gnu services base
 - gnu services dbus
 - gnu services desktop
@@ -21,7 +23,7 @@
 - gnu system nss
 
 #+begin_src scheme :noweb yes :exports none :results code pp :tangle config.scm
-  <<list-to-use(use-call="use-modules",entries=module-list)>>
+  <<list-to-use(use-call="use-modules",entries=module-list,all-parens=1)>>
 #+end_src
 
 ** Service Modules

config.scm

@@ -1,13 +1,16 @@
-(use-modules gnu
+(use-modules
-             (gnu services base)
+ (gnu)
-             (gnu services dbus)
+ (gnu image)
-             (gnu services desktop)
+ (gnu services authentication)
-             (gnu services linux)
+ (gnu services base)
-             (gnu services networking)
+ (gnu services dbus)
-             (gnu services pm)
+ (gnu services desktop)
-             (gnu services virtualization)
+ (gnu services linux)
-             (gnu services xorg)
+ (gnu services networking)
-             (gnu system nss))
+ (gnu services pm)
+ (gnu services virtualization)
+ (gnu services xorg)
+ (gnu system nss))
 
 (use-service-modules desktop xorg)
 

library.org

@@ -7,11 +7,12 @@ This library contains code blocks to be used by other files in this repository.
 Converting org lists into guix ~use-~ calls.
 
 #+NAME: list-to-use
-#+begin_src emacs-lisp :var use-call="use-modules" :var entries='() :results code pp
+#+begin_src emacs-lisp :var use-call="use-modules" :var entries='() :var all-parens=0 :results code pp
   `(,(make-symbol use-call)
     ,@(mapcar (lambda (x)
                 (let ((splits (split-string x)))
-                  (if (length= splits 1)
+                  (if (and (length= splits 1)
+                           (= 0 all-parens))
                       (make-symbol (car splits))
                     (mapcar (lambda (y) (make-symbol y))
                             splits))))