X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=zk.zsh;h=9b65aecc25db5e0c1709f2717b8651bd94a46d5c;hb=HEAD;hp=cfc95a4796212116896c973267ab707a6c74552f;hpb=b281d83ebe3295738d97f8b0db724d79c2afe6a9;p=zk.zsh.git diff --git a/zk.zsh b/zk.zsh index cfc95a4..9b65aec 100755 --- a/zk.zsh +++ b/zk.zsh @@ -1,11 +1,12 @@ #!/usr/bin/env zsh # zk.zsh -- zettelkästen/wiki/static website helper/generator -# Copyright (C) 2022 Sergey Matveev +# Copyright (C) 2022-2024 Sergey Matveev set -e +ZK_VERSION=ZKZSH1 usage() { - cat >&2 <&2 <&2 + exit 1 + } + zstat -A mtime -F "%F %T" +mtime $p + zstat -A size +size $p + pages[$p]=${mtime[1]} + sizes[$p]=${size[1]} } -typeset -a cats -for p (**(/)) cats=($p $cats) +typeset -A cats +for p (**(/)) cats[$p]=1 zmodload zsh/mapfile +zmodload -F zsh/files b:zf_mkdir typeset -A links typeset -A backs +typeset -A cached typeset -aU ws for p (${(k)pages}) { + [[ $ZK_CACHE ]] && { + zstat -A inode +inode $p + zstat -A ctime +ctime $p + cache=(${(f)mapfile[$ZK_CACHE/$p]}) + if [[ ( ${cache[1]} = $ZK_VERSION ) && + ( ${cache[2]} = ${inode[1]} ) && + ( ${cache[3]} = ${ctime[1]} ) ]]; then + ws=(${cache[4,-1]}) + [[ $ws ]] && links[$p]=${(j: :)ws} + cached[$p]=1 + continue + fi + } ws=() for w (${=mapfile[$p]}) { [[ $w =~ "\[([^] ]+)\]" ]] || continue w=${match[1]} + [[ ( $w =~ "/$" ) && ( ${cats[$w[1,-2]]} ) ]] && { + ws=($ws $w) + continue + } [[ ${pages[$w]} ]] || { [[ $ZK_SHOW_MISSING ]] && print "missing $w" continue } ws=($ws $w) } + [[ $ZK_CACHE ]] && { + zf_mkdir -p $ZK_CACHE/$p:h + ws=($ZK_VERSION ${inode[1]} ${ctime[1]} $ws) + print -l $ws > $ZK_CACHE/$p + ws=(${ws[4,-1]}) + } [[ $ws ]] && links[$p]=${(j: :)ws} } -unset ws +unset cache ws for p ws (${(kv)links}) { for w (${=ws}) backs[$w]="$p ${backs[$w]}" } @@ -75,18 +109,31 @@ genHTML() { local page=$1 local data p [[ $# -eq 1 ]] && data=${mapfile[$page]} || data=$2 - data=${data//&/&} - data=${data///>} local _links=(${(oi)=links[$page]}) - for p ($_links) { - getrel $page $p - data="${data//\[${p}\]/[$p]}" - } - print -r "<\!DOCTYPE html> -$page (${pages[$page]})
-$data
-
" + if [[ ( ${cached[$page]} ) && ( -s $ZK_CACHE/${page}.html ) ]]; then + < $ZK_CACHE/${page}.html + else + data=${data//&/&} + data=${data///>} + for p ($_links) { + getrel $page $p + [[ -d $p ]] && REPLY=$REPLY/index + data="${data//\[${p}\]/[$p]}" + } + data=" + +$page (${pages[$page]}) + +
+$data
" + if [[ $ZK_CACHE ]]; then + print -r "$data" > $ZK_CACHE/${page}.html + < $ZK_CACHE/${page}.html + else + print -r "$data" + fi + fi if [[ $_links ]]; then print "
Links:
    " for p ($_links) { @@ -114,27 +161,45 @@ genIndex() { local p local entries=() local _links=() - typeset -aU cats=() + typeset -aU _cats=() local curdepth=${#${(s:/:)1}} (( curdepth = curdepth + 1 )) - for p (${(oi)${(k)pages[(I)$1*]}}) { - [[ $p =~ "/Index$" ]] && continue + for p (${(k)pages[(I)$1*]}) { case ${#${(As:/:)p}} in ($curdepth) _links=($p $_links) ;; - ( $(( $curdepth + 1 )) ) cats=(${1}${${p#$1}%%/*} $cats) ;; + ( $(( $curdepth + 1 )) ) _cats=(${1}${${p#$1}%%/*} $_cats) ;; (*) continue ;; esac } - for p (${(oi)_links}) entries=($entries "[$p] (${pages[$p]})") - if [[ $cats ]]; then - entries=($entries "\nSubdirectories:\n") - for p (${(oi)cats}) { - entries=($entries "[$p/Index]") - _links=($p/Index $_links) + local page=${1}index + print " + + +$page ($now) +
      " + for p (${(oi)_links}) { + getrel $page $p + print "
    • $p ${pages[$p]} (${sizes[$p]} bytes)
      • " + } + print "
    " + if [[ $_cats ]]; then + print "
    Subdirectories:
      " + for p (${(oi)_cats}) { + getrel $page $p/index + print "
    • $p
      • " + } + print "
    " + fi + local bs=(${(oi)=${backs[$1]}}) + if [[ $bs ]]; then + print "
    Backlinks:
      " + for p ($bs) { + getrel $page $p + print "
    • $p ${pages[$p]}
      • " } + print "
    " fi - links[${1}Index]=${(j: :)_links} - genHTML ${1}Index ${(F)entries} + print "" } case $1 in @@ -144,15 +209,13 @@ case $1 in (html-index) genIndex $2 ;; (htmls) for p (${(k)pages}) { - mkdir -p $2/$p:h + zf_mkdir -p $2/$p:h genHTML $p > $2/$p.html touch -r $p $2/$p.html } - for p ($cats) pages[${p}/Index]=$now - pages[Index]=$now - for p ($cats) genIndex $p/ > $2/$p/Index.html - genIndex "" > $2/Index.html - for p ("" $cats) touch -d ${now/ /T} $2/$p/Index.html + for p (${(k)cats}) genIndex $p/ > $2/$p/index.html + genIndex "" > $2/index.html + for p ("" ${(k)cats}) touch -d ${now/ /T} $2/$p/index.html ;; (*) usage ;; esac