closql--table-columns: Allow specifying column prefix

magit · Nov 16, 2023 · 7f7363f · 7f7363f
1 parent 909752e
commit 7f7363f
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/closql.el b/closql.el
@@ -461,7 +461,8 @@
 
 (defun closql--table-columns (db table &optional prefixed)
   (mapcar (if prefixed
-              (lambda (col) (intern (format "%s:%s" table (cadr col))))
+              (let ((prefix (if (stringp prefixed) prefixed table)))
+                (lambda (col) (intern (format "%s:%s" prefix (cadr col)))))
             #'cadr)
           (emacsql db [:pragma (funcall table-info $i1)] table)))