Source

shlomi-fish-homepage / lib / utils.wml

Full commit
<define-tag url_body_link>
<preserve href />
<set-var <attributes-extract href %attributes> />
<a <attributes-quote <attributes-remove "/" %attributes> > ><get-var href /></a>
<restore href />
</define-tag>

<define-tag rellink whitespace="delete">
<preserve url />
<preserve host />
<set-var %attributes />
<set-var host=<if "<get-var host />" "<get-var host />" "t2" /> />
<if <match "<get-var url />" "^http://" action="report" />
    "<get-var url />" 
    <ifeq "$(LATEMP_SERVER)" "<get-var host />"
        "$(ROOT)/<get-var url />"
        <ifeq "<get-var host />" "t2"
            "http://www.shlomifish.org/<get-var url />"
            "http://www.shlomifish.org/Vipe/<get-var url />"
            />
    />
/>
<restore host />
<restore url /></define-tag>

<define-tag vipe:url>http://vipe.technion.ac.il/~shlomif/%0</define-tag>

<define-tag longblank>
<br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br />
<br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br />
<br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br />
<br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br />
</define-tag>

<define-tag email:link>
<a href="mailto:%0">%0</a>
</define-tag>

<define-tag mailto_link_to_self>
<preserve email />
<set-var %attributes />
<a href="mailto:<get-var email />"><get-var email /></a>
<restore email />
</define-tag>

<define-tag note endtag="required">
<div class="note">
%body
</div>
</define-tag>

<define-tag link_to_screenplay>
<preserve base desc />
<set-var %attributes />
<a href="<get-var base />.txt"><get-var desc />Source in text format</a> 
(requires
<a href="http://web-cpan.berlios.de/modules/XML-Grammar-Screenplay/">XML-Grammar-Screenplay</a> 
to render)
<restore base desc />
</define-tag>

<define-tag under_construction_note>

<note>

<h2 id="under-construction-note">Note</h2>

<p>
This page is temporary, under construction and should not be publicised or
publicly linked to. Please send comments to 
<a href="$(ROOT)/me/contact-me/">the author</a> in private.
</p>

</note>

</define-tag>

<define-tag cc_by_sa_british_blurb>
<preserve year />
<set-var %attributes />

<p>
This document is Copyright by Shlomi Fish, <get-var year />, and is available 
under the
terms of <a rel="license" 
href="http://creativecommons.org/licenses/by-sa/3.0/">the Creative Commons 
Attribution-ShareAlike License 3.0 Unported</a> (or at your option any
later version).
</p>

<p>
For securing additional rights, please contact 
<a href="http://www.shlomifish.org/me/contact-me/">Shlomi Fish</a>
and see <a href="http://www.shlomifish.org/meta/copyrights/">the
explicit requirements</a> that are being spelt from abiding by that licence.
</p>

<restore year />

</define-tag>

<define-tag cc_by_sa_license_british>

<preserve year head_tag />

<set-var %attributes />
<set-var head_tag="<latemp_default_val "<get-var head_tag />" "h3" />" 
    />

<<get-var head_tag /> id="license">Copyright and Licence</<get-var head_tag />>

<cc_by_sa_british_blurb year="<get-var year />" />

<restore year head_tag />

</define-tag>

<define-tag main_email whitespace="delete">
shlomif@shlomifish.org
</define-tag>