diff --git a/prv/modules/templates.scm b/prv/modules/templates.scm index 5eb0eaa..31e7516 100755 --- a/prv/modules/templates.scm +++ b/prv/modules/templates.scm @@ -320,6 +320,15 @@ "]")) '())) +(define (iqdb-tpl thumb board-uri threadnum) + (if thumb + `(" " (span (@ (class "imgops")) + "[" (a (@ (href ,(format #f "https://iqdb.org/?url=https://~a/pub/img/~a/~a/~a" (get-conf '(host name)) board-uri threadnum thumb)) + (target "_blank")) + "iqdb") + "]")) + '())) + (define (note-tpl id type links-target subject name date admin body edited) `(div (@ (id "note" ,id) (class ,type)) (h3 (b (a (@ (class "link") @@ -435,7 +444,8 @@ (a (@ (href "/thread/" ,board-uri "/" ,threadnum "#" ,postnum "p") (onclick "postNumClick(this)")) ,(number->string postnum)) " " (span (@ (class "name")) ,name) " " (span (@ (class "date")) ,date) - ,(imgops-tpl image board-uri threadnum)) + ,(imgops-tpl image board-uri threadnum) + ,(iqdb-tpl thumb board-uri threadnum)) (br) ,@(if image `("File: " (a (@ (title ,iname) @@ -642,7 +652,8 @@ (b (a (@ (href "/thread/" ,board-uri "/" ,threadnum "#1p") (onclick "postNumClick(this)")) "1") " " (span (@ (id "1p") (class "name")) ,name) " " (span (@ (class "date")) ,date) " " - ,(imgops-tpl image board-uri threadnum)) + ,(imgops-tpl image board-uri threadnum) + ,(iqdb-tpl thumb board-uri threadnum)) (br) ,@(if image `("File: " (a (@ (title ,iname)