#-*- coding: utf-8-unix mode: ctp -*- # # media-index.txt # z:test:media # #—

.(addflag im-register) ;.(addflag im-list) ; ;.(addflag imlist-0) ;.(addflag imlist-1)

.(addflag im) ;- .(addflag im-0) .(addflag im-1)

.(vartblock im-register) .– include directories to find images

; .– note an argument :xx willbe confused with a lispish parameter keyword. but ; it is thought to be a mandatory argument. Therefore I prefer to ; write xx which is taken as :xx .(includepath z:mt) .(includepath y:mt) .(includepath co) ;;.(includepath z:lt:la-short)

.– find and register media files

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

.(register-mediafile) .(defparameter verb verbsaved) .(vartblock)

.— use of media files

.(vartblock im)

.— testing 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 im-1) ; comment .(image 14-t$) regexp 14-t$ ok. .dp

lehmbau in Afrika test1 .lp .(image 136$) regex 136$ ok. .lp .(image 136) regex 136 ok. .lp .rule

.(image 5*36$) regex 5*36$ ok. .lp .rule ; comment-end .(image 205$ :size 50) regex 205$ ok. .dp ; :size do not/=oct14 .rule .(image 136 :size @a :fileparameter c) regex 136 :fileparameter c ok. .lp ; comment-end .b issue using % in filename (image 136%c) eg .llp ;.(image 136%xxx) regex 136%xxx seam that dokuwiki is interfering ? → @@@@@@@@@@@@@@@@@ .dp ; comment-end ;(image 136-c :size @a) .llp .(image 136-c :size @a) regex 136-c ok. .dp ——— .dp ; comment-end .(vartblock im-2) lehmbau in Afrika test2 .(image 514$ :size 200×100) .dp .(vartblock im-3) lehmbau in Afrika test3 .(image 514$ :size 50×30) .dp ; .– test image align.ment .(image grass*roof*194$ :size @a) .(image grass*roof*194$ :size @f) .lp .(image grass*roof*194$ :size @f-notdef :align mid) .lp .(image grass*roof*194$ :size 10×20 :align right) .lp .(image grass*roof*194$ :size @f-notdef :align mid) .lp .green .i Smog .(image winter-smog* winter-smog nord italy :size @a) .dp .(vartblock) .(vartblock im-list) .– image-list .rule ;.(image-list 3960-64$ 3966-69$ Basse construction of cooking stove) ; .(image-list 5203-11$ resto garage) im-list1 .(image-list 5203-11$ resto garage im-list1) im-list2 .(image-list 5203-11$ resto garage im-list2) inside vart block “im-list” .(vartblock-end) .fsxx after end of vart block. %comment # KM4 Analyse des Krisenmanagements (Kurzfassung) .(pref .:de1:km4-analyse:km4-analyse KM4 Analyse des Krisenmanagements (Kurzfassung)) .(pref .:de1:km4-analyse:km4-analyse KM4 Analyse… :imgref winter-smog* :size @a) # found file: winter-smog-norditaly-2020feb.jpg .(pref .:de1:km4-analyse:km4-analyse KM4 Analyse des Krisenmanagements (Kurzfassung)) .(pref .:de1:km4-analyse:km4-analyse KM4 Analyse… :imgref winter-smog* :align left :size 50×70) # winter-smog-norditaly-2020feb.jpg