~mrlee/www.kamelasa.dev

22f9cfad987ffac6dcb271ae0325cf39acf219a8 — Lee Meichin a month ago 95e9340
Tweak git log
3 files changed, 7 insertions(+), 14 deletions(-)

M .gitignore
M pollen.rkt
M template.html.p
M .gitignore => .gitignore +3 -10
@@ 1,10 1,3 @@
.stack-work
_cache
www

debian/files
debian/debhelper-build-stamp
debian/kamelasa.debhelper.log
debian/kamelasa.substvars
debian/kamelasa
debian/.debhelper
compiled
*.html
*.bak
\ No newline at end of file

M pollen.rkt => pollen.rkt +3 -3
@@ 11,10 11,10 @@
  (define poly-targets '(html)))

(define (root . elements)
  (add-footnotes (decode (txexpr 'root empty elements)
  (decode (txexpr 'root empty elements)
    #:txexpr-elements-proc smart-paragraphs
    #:string-proc (compose1 smart-ellipses smart-quotes smart-dashes)
    #:exclude-tags '(pre code))))
    #:exclude-tags '(pre code)))

(define (smart-paragraphs elements)
  (decode-paragraphs elements


@@ 46,7 46,7 @@
(define (post->history [post null])
    (when (empty? posthistory)
      (let ([gitlog (string-split (with-output-to-string 
                                  (λ () (system (format "git log --format='~a' --max-count=~a -- ~a"
                                  (λ () (system (format "git log --format='~a' --max-count=~a --follow -- ~a"
                                                        "%h;%s;%ai"
                                                        10
                                                        (if (null? post) "." (post->path post))))))

M template.html.p => template.html.p +1 -1
@@ 120,7 120,7 @@
    <footer class="container">
      <header>
        <p class="modeline inverse-video">
          -UUU:----F1&nbsp;&nbsp;◊|page-title|&nbsp;&nbsp;&nbsp;&nbsp;Bot
          -UUU:----F1&nbsp;&nbsp;◊post->title[here]&nbsp;&nbsp;&nbsp;&nbsp;Bot
          L100%&nbsp;&nbsp;Git:main&nbsp;&nbsp;(HTML+) ----------
        </p>
      </header>