$page (${pages[$page]})

#!/usr/bin/env zsh # zk.zsh -- zettelkästen/wiki/static website helper/generator # Copyright (C) 2022 Sergey Matveev set -e usage() { cat >&2 < $#cur)) && { REPLY=${(j:/:)abs[i,-1]} return } done src=${(j:/:)cur[i,-1]/*/..} dst=${(j:/:)abs[i,-1]} REPLY=$src${dst:+/$dst} } 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 "<\!DOCTYPE html> $page (${pages[$page]})

$data

" if [[ $_links ]]; then print "

Links:

$p ^${pages[$p]}

" fi local bs=(${(oi)=${backs[$page]}}) if [[ $bs ]]; then print "

Backlinks:

$p ^${pages[$p]}

" fi print "" } zmodload -F zsh/datetime b:strftime strftime -s now "%F %T" genIndex() { local p local entries=() local _links=() typeset -aU cats=() local curdepth=${#${(s:/:)1}} (( curdepth = curdepth + 1 )) for p (${(oi)${(k)pages[(I)$1*]}}) { [[ $p =~ "/Index$" ]] && continue case ${#${(As:/:)p}} in ($curdepth) _links=($p $_links) ;; ( $(( $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) } fi links[${1}Index]=${(j: :)_links} genHTML ${1}Index ${(F)entries} } case $1 in (links) for w (${(oi)=${links[$2]}}) print $w ;; (backs) for w (${(oi)=${backs[$2]}}) print $w ;; (html) genHTML $2 ;; (html-index) genIndex $2 ;; (htmls) for p (${(k)pages}) { 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 ;; (*) usage ;; esac