Write notes

or text here.

0 0

· unset

inavi

160 4	360 4
From: , CC?: edit source (how to edit this page) C Protection: /
locked by
	edit xml or wiki (how to edit this page)

last modification:	(children (select-elements (children (node-list-first (xsl-variable "nu"))) 'date))
authors:
document identifier:
delivered to at
short comments	display ()

<dsssl:copy-of select="(attribute-string 'id (current-node))"></dsssl:copy-of>

520

200

312

navi

wnavi

Askemos

(let ((draft (children (node-list-first (select-elements (children (node-list-first (xsl-variable "nu"))) (if (eqv? (string->oid (data (select-elements (children (node-list-first (xsl-variable "nu"))) 'lock))) (msg 'dc-creator)) 'draft 'text)))))) (if (node-list-empty? draft) (xsl-variable "empty") (denunu me msg 'html-nowiki (case (gi draft) ((html) (children ((sxpath '(body)) draft))) ((HTML) (children ((sxpath '(BODY?)) draft))) (else draft)) (attribute-string 'id (node-list-first (xsl-variable "nu"))))))

rss

pdf :: context view

search

unavi

hnavi

Add

anavi

(sxml `(*TOP?* ,(guard (ex (else "")) (date->string (string->date (data ((sxpath '(pubDate)) (current-node))) "~a, ~d ~b ~Y ~H:~M:~S ~z") "~d ~b ~Y" "de")) ,(let ((title (data ((sxpath '(title)) (current-node))) )) `(a (@ (href ,(data ((sxpath '(link)) (current-node))) )) ,(substring title 0 (min 18 (string-length title))))) ))

(sxml `(*TOP?* ,(guard (ex (else "")) (date->string (string->date (data ((sxpath '(pubDate)) (current-node))) "~a, ~d ~b ~Y ~H:~M:~S ~z") "~d ~b ~Y" "de")) ,(let ((title (data ((sxpath '(title)) (current-node))) )) `(a (@ (href ,(data ((sxpath '(link)) (current-node))) ) (class "hnavi")) ,(substring title 0 (min 18 (string-length title))))) ))

template

Askemos