#-*- coding: utf-8-unix mode: ctp -*- # # page-variant-foto.txt # zt:page-variant # #=== ; .(digest html-dw )
.— test fileparameter separator
.– set flag .(addflag im-register) .(addflag page-vart)
;; .(addflag-from-fileparameter :default v1) ;/=to-do ;.(addflag v0) .(addflag v1) ; .– note an argument :xx is confusing with a parameter keyword. but ; it is parsed here as first mandatary argument. Therefore I prefer to ; write xx which is taken as alias for :xx .(includepath zf) .(includepath co) ;; alias .(includepath @wiki-pages/co) ;;.(includepath zf:t1short) .– find and register media files .(vartblock im-register) ; function see _/src/ctp/gawk/mod/cfile/ ; ;; .(defparameter verbsaved verb) ; do not .(defparameter verb 3) .(register-mediafile) ;; .(defparameter verb verbsaved) .(vartblock) ; == .(vartblock-end) .(defvarx size@a 120×80) ;;.(vartblock page-vart a) ;; multiple variant logially and-ed /=TODO ;;or ;;.(vartblock-regex ^v[0-9] ;; TODO
.— page variant switch
.(button-pref :format .fl :suffix » :sep .fm , :type other)
.(vartblock v0)
.– v0 page-variant, no previous .(image 136$ :size @a) ;; .(image 136 :size @a :fileparameter c) ; ? .(button .:page-variant-foto._v1 .b v1 - next)
.(vartblock v1)
.– v1 last page-variant, no next ;; previous page is the first, that is the main~? page .(button .:page-variant-foto .b v0 - first) .(image 514$ :size 200×100) ;.(button .:page-variant-foto._vxx .b vxx)
.(vartblock-end) ;;.(vartblock-regex ^v[0-9] ;; TODO .dp .rule ;;.(vartblock-end a) ;;.(vartblock-end)
%comment .— use of media files
.(vartblock page-vart)
.— testing variant image .(defvarx size@a 120×80)
;; the keyword arguments of search-pref will be passed to the consequent functions image eg. .(search-pref :pattern-underlay 05100$) .(search-pref :patterna dsc) .(search-pref :limitnumber 1)
.(vartblock)
v0 .(image 136 :size @a :fileparameter c) v1 .(image-list 5203-11$ resto garage)