( defun colori () ( interactive )
  ( insert "<<colori>>" )
  ( backchar 8 )
)

( defun colorx () ( interactive )
  ( insert "<<colorx>>" )
  ( backchar 8 )
)

( defun aqua () ( interactive )
  ( insert "<<aqua>  <aqua>>" )
  ( backchar 8 )
)

( defun b () ( interactive )
  ( insert "<<b>  <b>>" )
  ( backchar 5 )
)

( defun big () ( interactive )
  ( insert "<<big>  <big>>" )
  ( backchar 7 )
)

( defun black () ( interactive )
  ( insert "<<black>  <black>>" )
  ( backchar 9 )
)

( defun blue () ( interactive )
  ( insert "<<blue>  <blue>>" )
  ( backchar 8 )
)

( defun btag () ( interactive )
  ( insert "<<btag>>" )
)

( defun blockquote () ( interactive )
  ( insert "<<blockquote>  <blockquote>>" )
  ( backchar 14 )
)

( defun blog () ( interactive )
  ( insert "<<blog>>" )
)

( defun box () ( interactive )
  ( insert "<<box>  <box>>" )
  ( backchar 7 )
)

( defun br () ( interactive )
  ( insert "<<br>>" )
)

( defun brown () ( interactive )
  ( insert "<<brown>  <brown>>" )
  ( backchar 9 )
)

( defun center () ( interactive )
  ( insert "<<center>  <center>>" )
  ( backchar 10 )
)

( defun cite () ( interactive )
  ( insert "<<cite>  <cite>>" )
  ( backchar 8 )
)

( defun citeref () ( interactive )
  ( insert "<<citeref>  <citeref>>" )
  ( backchar 11 )
)

( defun comment () ( interactive )
  ( insert "<<comment>  <comment>>" )
  ( backchar 11 )
)

( defun content () ( interactive )
  ( insert "<<content>  <content>>" )
  ( backchar 11 )
)

( defun ct () ( interactive )
  ( insert "<<ct>  <ct>>" )
  ( backchar 6 )
)

( defun ctt () ( interactive )
  ( insert "<<ctt>  <ctt>>" )
  ( backchar 7 )
)

( defun darkgoldenrod () ( interactive )
  ( insert "<<darkgoldenrod>  <darkgoldenrod>>" )
  ( backchar 17 )
)

( defun darkmagenta () ( interactive )
  ( insert "<<darkmagenta>  <darkmagenta>>" )
  ( backchar 15 )
)

( defun darkturquoise () ( interactive )
  ( insert "<<darkturquoise>  <darkturquoise>>" )
  ( backchar 17 )
)

( defun dec () ( interactive )
  ( insert "<<dec>  <dec>>" )
  ( backchar 7 )
)

( defun decc () ( interactive )
  ( insert "<<decc>  <decc>>" )
  ( backchar 8 )
)

( defun echo () ( interactive )
  ( insert "<<echo>  <echo>>" )
  ( backchar 8 )
)

( defun em () ( interactive )
  ( insert "<<em>  <em>>" )
  ( backchar 6 )
)

( defun etag () ( interactive )
  ( insert "<<etag>  <etag>>" )
  ( backchar 8 )
)

( defun fcolor () ( interactive )
  ( insert "<<fcolor>  <fcolor>>" )
  ( backchar 10 )
)

( defun focus () ( interactive )
  ( insert "<<focus>  <focus>>" )
  ( backchar 9 )
)

( defun gainsboro () ( interactive )
  ( insert "<<gainsboro>  <gainsboro>>" )
  ( backchar 13 )
)

( defun gc () ( interactive )
  ( insert "<<gc>  <gc>>" )
  ( backchar 6 )
)

( defun giant () ( interactive )
  ( insert "<<giant>  <giant>>" )
  ( backchar 9 )
)

( defun glch () ( interactive )
  ( insert "<<glch>  <glch>>" )
  ( backchar 8 )
)

( defun glcv () ( interactive )
  ( insert "<<glcv>  <glcv>>" )
  ( backchar 8 )
)

( defun glink () ( interactive )
  ( insert "<<glink>  <glink>>" )
  ( backchar 9 )
)

( defun gray () ( interactive )
  ( insert "<<gray>  <gray>>" )
  ( backchar 8 )
)

( defun green () ( interactive )
  ( insert "<<green>  <green>>" )
  ( backchar 9 )
)

( defun home () ( interactive )
  ( insert "<<home>  <home>>" )
)

( defun hyperlink () ( interactive )
  ( insert "<<hyperlink>  <hyperlink>>" )
  ( backchar 13 )
)

( defun i () ( interactive )
  ( insert "<<i>  <i>>" )
  ( backchar 5 )
)

( defun invisiblefont () ( interactive )
  ( insert "<<if>  <if>>" )
  ( backchar 6 )
)

( defun icolor () ( interactive )
  ( insert "<<icolor>  <icolor>>" )
  ( backchar 10 )
)

( defun image () ( interactive )
  ( insert "<<image>  <image>>" )
  ( backchar 9 )
)

( defun inc () ( interactive )
  ( insert "<<inc>  <inc>>" )
  ( backchar 6 )
)

( defun incc () ( interactive )
  ( insert "<<incc>  <incc>>" )
  ( backchar 7 )
)

( defun indianred () ( interactive )
  ( insert "<<indianred>  <indianred>>" )
  ( backchar 13 )
)

( defun indigo () ( interactive )
  ( insert "<<indigo>  <indigo>>" )
  ( backchar 10 )
)

( defun init () ( interactive )
  ( insert "<<init>  <init>>" )
  ( backchar 8 )
)

( defun lab1 () ( interactive )
  ( insert "<<lab1>  <lab1>>" )
)

( defun lab2 () ( interactive )
  ( insert "<<lab2>  <lab2>>" )
)

( defun large () ( interactive )
  ( insert "<<large>  <large>>" )
  ( backchar 9 )
)

( defun li () ( interactive )
  ( insert "<<li>  <li>>" )
  ( backchar 6 )
)

( defun lightblue () ( interactive )
  ( insert "<<lightblue>  <lightblue>>" )
  ( backchar 13 )
)

( defun line () ( interactive )
  ( insert "<<line>>" )
)

( defun link () ( interactive )
  ( insert "<<link>  <link>>" )
  ( backchar 9 )
)

( defun little () ( interactive )
  ( insert "<<little>  <little>>" )
  ( backchar 10 )
)

( defun maxthickness () ( interactive )
  ( insert "<<maxthickness>>" )
)

( defun medium () ( interactive )
  ( insert "<<medium>  <medium>>" )
  ( backchar 10 )
)

( defun midthickness () ( interactive )
  ( insert "<<midthickness>>" )
)

( defun minthickness () ( interactive )
  ( insert "<<minthickness>>" )
)

( defun nt () ( interactive )
  ( insert "<<nt>  <nt>>" )
  ( backchar 6 )
)

( defun ol () ( interactive )
  ( insert "<<ol>\n<<li>  <li>>\n<<li>  <li>>\n<ol>>" )
)

( defun olp () ( interactive )
  ( insert "<<ol>\n<<li>  <li>><<p>>\n<<li>  <li>><<p>>\n<ol>>" )
)

( defun olabc () ( interactive )
  ( insert "<<olabc>\n<<li>  <li>>\n<<li>  <li>>\n<olabc>>" )
)

( defun olabcp () ( interactive )
  ( insert "<<olabcp>\n<<li>  <li>><<p>>\n<<li>  <li>><<p>>\n<olabcp>>" )
)

( defun olabcs () ( interactive )
  ( insert "<<olabcs>\n<<li>  <li>>\n<<li>  <li>>\n<olabcs>>" )
)

( defun olabcsp () ( interactive )
  ( insert "<<olabcsp>\n<<li>  <li>><<p>>\n<<li>  <li>><<p>>\n<olabcsp>>" )
)

( defun olrn () ( interactive )
  ( insert "<<olrn>\n<<li>  <li>>\n<<li>  <li>>\n<olrn>>" )
)

( defun olrnp () ( interactive )
  ( insert "<<olrnp>\n<<li>  <li>><<p>>\n<<li>  <li>><<p>>\n<olrnp>>" )
)

( defun olrns () ( interactive )
  ( insert "<<olrns>\n<<li>  <li>>\n<<li>  <li>>\n<olrns>>" )
)

( defun olrnsp () ( interactive )
  ( insert "<<olrnsp>\n<<li>  <li>><<p>>\n<<li>  <li>><<p>>\n<olrnsp>>" )
)

( defun ood () ( interactive )
  ( insert "<<ood>  <ood>>" )
  ( backchar 7 )
)

( defun orange () ( interactive )
  ( insert "<<orange>  <orange>>" )
  ( backchar 10 )
)

( defun p () ( interactive )
  ( insert "<<p>>" )
)

( defun purple () ( interactive )
  ( insert "<<purple>  <purple>>" )
  ( backchar 10 )
)

( defun rab1 () ( interactive )
  ( insert "<<rab1>>" )
)

( defun rab2 () ( interactive )
  ( insert "<<rab2>>" )
)

( defun red () ( interactive )
  ( insert "<<red>  <red>>" )
  ( backchar 6 )
)

( defun scrunch () ( interactive )
  ( insert "<<scrunch>>" )
)

( defun select () ( interactive )
  ( insert "<<select>  <select>>" )
  ( backchar 10 )
)

( defun small () ( interactive )
  ( insert "<<small>  <small>>" )
  ( backchar 9 )
)

( defun space () ( interactive )
  ( insert "<<space>>" )
)

( defun tag () ( interactive )
  ( insert "<<tag>  <tag>>" )
  ( backchar 7 )
)

( defun time () ( interactive )
  ( insert "<<time>  <time>>" )
  ( backchar 8 )
)

( defun tiny () ( interactive )
  ( insert "<<tiny>  <tiny>>" )
  ( backchar 8 )
)

( defun token () ( interactive )
  ( insert "<<token>  <token>>" )
  ( backchar 9 )
)

( defun tt () ( interactive )
  ( insert "<<tt>  <tt>>" )
  ( backchar 6 )
)

( defun type () ( interactive )
  ( insert "<<type>  <type>>" )
  ( backchar 8 )
)

( defun tx () ( interactive )
  ( insert "<<tx>  <tx>>" )
  ( backchar 6 )
)

( defun u () ( interactive )
  ( insert "<<u>  <u>>" )
  ( backchar 5 )
)

( defun ul () ( interactive )
  ( insert "<<ul>\n<<li>  <li>>\n<<li>  <li>>\n<ul>>" )
)

( defun unscrunch () ( interactive )
  ( insert "<<unscrunch>>" )
)

( defun unzoom () ( interactive )
  ( insert "<<unzoom>>" )
)

( defun white () ( interactive )
  ( insert "<<white>  <white>>" )
  ( backchar 9 )
)

( defun xcolor () ( interactive )
  ( insert "<<xcolor>  <xcolor>>" )
  ( backchar 10 )
)

( defun x () ( interactive )
  ( insert "<<x>>" )
)

( defun xtag () ( interactive )
  ( insert "<<xtag>>" )
)

( defun xex () ( interactive )
  ( insert "<<xex>>" )
)

( defun yellow () ( interactive )
  ( insert "<<yellow>  <yellow>>" )
  ( backchar 10 )
)

( defun zlink () ( interactive )
  ( insert "<<zlink>  <zlink>>" )
  ( backchar 9 )
)

( defun zoom () ( interactive )
  ( insert "<<zoom>  <zoom>>" )
  ( backchar 8 )
)

( defun backchar ( n )
  ( dotimes ( i n ) ( backward-char ) )
)

( defun forwardchar ( n )
  ( dotimes ( i n ) ( forward-char ) )
)





( defun current-date ()
  ( let ( d dmd y )
    ( setq d ( current-time-string ) )
    ( setq dmd ( substring d 0 10 ) )
    ( setq y ( substring d 20 24 ) )
    ( concat dmd ", " y )
  )
)

( defun cogsci3blog () ( interactive )
  ( insert "<<site> \n" )
  ( insert "<<init> init.xix <init>> \n" )
  ( insert "<<date> " )
  ( insert ( current-date ) )
  ( insert " <date>> \n" )
  ( insert "<site>>\n" )
  ( insert "\n" )
  ( insert "<<p>>\n" )
  ( insert "<<box> <<x> <<b> CogSci3 Blog <b>> | <x>> " )
  ( insert ( current-date ) )
  ( insert " <box>>\n" )
  ( insert "<<tiny> <<xex>> <<home>> <tiny>>\n" )
  ( insert "<<p>>\n" )
)

( defun done ()
  "move the cursur to the next slot of the form <?*>"
  ( interactive )
  ( search-backward "<<li>" )
  ( forwardchar 5)
  ( insert "<<black>" )
  ( search-forward "<li>>" )
  ( backchar 5)
  ( insert "<black>>" )
)