Add stringify option for lists; stringify them to read as themselves

module/riverguile.scm

@@ -40,7 +40,6 @@
              output-focused-tags
              output-view-tags
              output-urgent-tags
-             output-layout-name
              seat-focused-output
              seat-focused-view-title
              seat-mode
@@ -50,7 +49,8 @@
 (define (stringify x)
   (cond ((string? x) x)
         ((number? x) (number->string x))
-        ((symbol? x) (symbol->string x))))
+        ((symbol? x) (symbol->string x))
+        ((list? x)   (string-join (append '("(") (map stringify x) '(")")) " "))))
 
 (define-syntax R
   (syntax-rules ()

src/load-script.c

@@ -276,7 +276,6 @@ static SCM output_for(struct Output *output) {
   scm_foreign_object_set_x(output_scm, 2, view_tags);
   scm_foreign_object_set_x(output_scm, 3,
                            scm_from_uint32(output->tags.urgent_tags));
-  scm_foreign_object_set_x(output_scm, 4, scm_str(output->tags.layout_name));
 	return output_scm;
 }
 
@@ -316,7 +315,6 @@ static SCM seat(void) {
 	X(output_t, output_focused_tags, "output-focused-tags", 1) \
 	X(output_t, output_view_tags, "output-view-tags", 2) \
 	X(output_t, output_urgent_tags, "output-urgent-tags", 3) \
-	X(output_t, output_layout_name, "output-layout-name", 4) \
 	X(seat_t, seat_focused_output, "seat-focused-output", 0) \
 	X(seat_t, seat_focused_view_title, "seat-focused-view-title", 1) \
 	X(seat_t, seat_mode, "seat-mode", 2)