Fix single args for shortcodes

Author: mdbenito

progs/markdown-utils.scm

@@ -109,10 +109,12 @@
         (else "")))
 
 (define-public (assoc->html-attr arg)
-  "Converts pairs (a . b) into html attribute strings \"a=\"b\". "
-  (let* ((key (symbol->string (car arg)))
+  "Converts pairs (a . b) into html attribute strings \"a=\"b\". Set a to #f to only output \"b\"."
+  (let* ((key (and (symbol? (car arg)) (symbol->string (car arg))))
          (val (attr-val (cdr arg))))
-    (string-append key "=" (string-quote val))))
+    (if key
+        (string-append key "=" (string-quote val))
+        (string-quote val))))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

progs/markdownout.scm

@@ -386,11 +386,10 @@
   "Custom hugo {{<cite>}} shortcode"
   (if (not (hugo-extensions?)) ""
       (with citations 
-          (map force-string
-               (filter (lambda (x) (and (string? x) (not (string-null? x))))
-                       (cdr x)))
+          (filter (lambda (x) (and (string? x) (not (string-null? x)))) (cdr x))
         (md-set 'refs (append (md-get 'refs) citations))
-        (md-hugo-shortcode (cons 'cite citations)))))
+        (md-hugo-shortcode 
+         (cons 'cite (map (lambda (s) `(#f . ,s)) citations))))))
 
 (define (md-cite-detail x)
   (if (not (hugo-extensions?)) ""
@@ -485,11 +484,11 @@
 
 (define (md-sidenote-sub x numbered?)
   (if (hugo-extensions?)
-      (let ((numbered (if numbered? '((numbered "numbered")) '()))
+      (let ((numbered (if numbered? '((numbered . "numbered")) '()))
             (args (cdr x)))
         (md-hugo-shortcode
-         (append `(sidenote (halign ,(md-marginal-style (first args)))
-                            (valign ,(md-marginal-style (second args))))
+         (append `(sidenote (halign . ,(md-marginal-style (first args)))
+                            (valign . ,(md-marginal-style (second args))))
                  numbered)
          (third args)))
       (serialize-markdown* `(footnote ,(third (cdr x))))))