# Remember to set up the date in "s before executing "w!!!

"w = 1G/^"e
6|"ey$/^"f
6|"fy$/^"i
6|"iy$/^"l
6|"ly$/^"o
6|"oy$/^"r
6|"ry$/^"s
6|"sy$/^"t
6|"ty$/^"v
6|"vy$/^"z
6|"zy$/^"a
j0"ay}:wn
@a

# Usual HTML editing setup:

"a = 
:set winheight=999
:set list
:set cmdheight=4
:set autoindent
:set nowrapscan
:set expandtab
:set shiftwidth=4
:set ruler

# Tools for editing bookmark files into link list pages

# @e == Left shift the body of an unordered list list element.
# @f == format the text between two alone on a line html tags.
#       This one is _really_ nice for reflowing html source file text,
#       but it is occasionally fooled by a line in the text that both
#       begins and ends with an html tag.  When it fails in that case,
#       it does no other harm, and is easily given another chance by
#       splitting the offending line at a non-html-tag spot.
# @i == open up a line and then indent it.
# @l == Replace a paragraph of file pathnames below . with a new list,
#       as new link list pages are created.
# @o == open up a line and then outdent it.
# @r == Format a links_to_follow single line entry into a multiple line
#       indented shape.
# @s == Grab a file pathname off the current line, split to make that file
#       the top window, find the "last changed" date and change it to the
#       current date (needs maintenance for each use, obviously).
# @t == Given a filename stem on a line, grab a path from the line
#       above, append a ".html" tag, make a command from that start
#       copying a links web page  template to a file by that name, then
#       open the new file for editing.
# @v == A fancier empty links line, opened up for easy editing;
#       requires a previous unordered list entry on the line above.
# @z == An empty links_to_follow entry is often handy, this will insert one:

"e = ?^[ ]*<li>$?
yyP0i:.+1,/^f<a\/A$/-1<
"add@a

"f = ?^[ 	]*<.*>[ 	]*$?
j!/^[ 	]*<.*>[ 	]*$/-1
fmt | expand

"i = o    A

"l = d}k:r !find * -type f -print | grep -v '\.*\.swp' | sort

"o = o 05xA

"r = mqjmrk:.s/^\(<li>\)\(.*\)\([ ]*\)\(<a[^>]*>\)\(.*\)\(<\/a>\)\([ ]*\)\(.*\)\(<\/li>\)$/    \1
        \2
        \4\5\6
        \8
    \9

/
mp'q:'q,'pg/^[ ][ ]*$/d
'r

"s = :set textwidth=1000
0ms"ay${it:split $"apA
G?^  *[12][90][90][91023][01][0-9][0-3][0-9]
^R200310310"ad$@ab'st:set textwidth=72

"t = k$T/y^j0PA.htmlyyPI:!cp general/template.html A
"add@a@s

"v = ?</li>
o
<li>
</li>O    <strong>
</strong>O    jo<a href="">site</a>jO    kllllllllla

"z = O<li><a href=""></a></li>
kf"