#-*- coding: utf-8-unix mode: ctp -*-
#
# media-div-type.txt
# zt:media
#
#===

.(addflag m-register)
.(addflag m)

.(vartblock m-register)
.-- include directories to find media   

; .-- 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 :xx
.(includepath y:test)
;.(includepath y:fa)
.(includepath y:fa)


.-- find and register media files

; function see        _/src/ctp/gawk/mod/cfile/
;
; images see          a.arean.net/data/media/zi
; image retrieve see  _/q/civ-foto which origin is: /civ/foto_/cc_
;
;.(defparameter verbsaved verb)
.(defparameter verb 3)

.(register-mediafile)

.--- list of registered media file
;.(media-file-list)
.(media-file-list-log :filelist t)

;.(defparameter verb verbsaved)
.(vartblock) 

.(vartblock m)
.--- testing media retrieve

.(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)

; comment

.-- image
.(image 14-t$) regexp 14-t$ ok. .dp 
.rule

.-- audio
.(audio 002$ :linkonly t)       

.-- video
.(video fake-vid :linkonly t)       
.dp
.rule  ;; do not ///=nov29

.-- portable format
.(pf kollektor) .dp
.rule

.-- text
.(text hallo)       
.dp

.-- hyper text
.(ht Gedchntis xxxx)       
.dp


.--- test line break ,.lp
line 1a . ._ lp .lp
line 2a . ._ llp .llp
line 3a . ._ dp .dp
line 4a . ._ dp .dp

;; ,.lp escaped pointformat
line 1b ,.lp  .lp
line 2b ,.llp .llp
line 3b ,.dp .dp
line 4b ,.dp .dp