@@ -45,10 +45,12 @@
 ;; ~~~ Provides ~~~
 
 (provide spell-of-summoning!
          crystalize-article!
          article-plain-title
+         list/articles
+         list/articles+notes
          list-short/articles
          list-full/articles
          list-full/articles+notes
          unfence
          preheat-series!)
@@ -174,11 +176,11 @@
          (format "WHERE `series_pagenode` IS \"~a/~a.html\"" series-folder s)]
         [(equal? s #t)
          (format "WHERE `series_pagenode` IS \"~a\"" (here-output-path))]
         [else ""]))
 
-;; (private) Return a combined list of articles and notes sorted by date
+;; Return a combined list of articles and notes sorted by date
 (define (list/articles+notes type #:series [s #t] #:limit [limit -1] [order "DESC"])
   (define select #<<@@@@@
      SELECT `~a` FROM
        (SELECT `~a`, `published` FROM `articles`
         UNION SELECT
@@ -186,11 +188,11 @@
         ~a ORDER BY `published` ~a LIMIT ~a)
 @@@@@
     )
   (query-list (sqltools:dbc) (format select type type type (where/series s) order limit)))
 
-;; (private) Return a list of articles only, sorted by date
+;; Return a list of articles only, sorted by date
 (define (list/articles type #:series [s #t] #:limit [limit -1] [order "DESC"])
   (define select "SELECT `~a` FROM `articles` ~a ORDER BY `published` ~a LIMIT ~a")
   (query-list (sqltools:dbc) (format select type (where/series s) order limit)))
 
 ;; ~~~~