#-*- coding: utf-8-unix mode: ctp -*-   
#
# page-variant-foto.txt
# zt:page-variant
#
#=== 
; .(digest html-dw )

.--- test fileparameter separator

[[.:page-variant-foto._v1|file._v1]] 

[[.:page-variant-foto.-v1-p1|file.-v1-p1]]



.-- 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 120x80)


;;.(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 200x100)
;.(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 120x80)

;; 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)