[# 
(defun c () (interactive) (find-blogme3-sh0-if "speedbar"))
(defun u () (interactive) (find-blogme-upload-links "speedbar"))
;;     http://anggtwu.net/speedbar.html
;; file:///home/edrx/TH/L/speedbar.html
#]
[lua:

-- (find-anggfile "TH/speedbar.blogme")

def [[ SPL       2 url,text   HREF(url, text).."<br>" ]]
def [[ SRULE   nop dummy      RULE()                  ]]
def [[ html_body 2 title,body html_body_2(title,body) ]]
--  (find-blogmefile "blogme2-outer.lua" "html_body_2")
--  (find-wdgrefw3m "css/all-properties.html" "font-family:")

def [[ html_body  2 title,body
       SIDEBYSIDE(html_speedbar, html_body_0(title,body)) ]]
def [=[ SIDEBYSIDE 2 left,right [[
  <table border=0 cellspacing=0 cellpadding=0><tr>
  <td valign=top>$[left]
  </td>
  <td valign=top>$[right]
  </td>
  </tr>
  </table> ]]
    ]=]

_TARGETS [[
  angg        -> (find-TH "angg")
  PURO-old    -> (find-TH "2010.2")
  PURO-old    -> (find-TH "2011.1")
  PURO-old    -> (find-TH "2011.2")
  PURO-old    -> (find-TH "2012.1")
  PURO-old    -> (find-TH "2012.2")
  PURO-old    -> (find-TH "2013.1")
  PURO-old    -> (find-TH "2014.1")
  PURO-old    -> (find-TH "2015.2")
  PURO-old    -> (find-TH "2016.1")
  PURO-old    -> (find-TH "2016.2")
  PURO-old    -> (find-TH "2017.1")
  PURO-old    -> (find-TH "2017.2")
  PURO-old    -> (find-TH "2018.1")
  PURO-old    -> (find-TH "2018.2")
  PURO-old    -> (find-TH "2019.1")
  PURO-old    -> (find-TH "2019.2")
  PURO-old    -> (find-TH "2020.1")
  PURO-old    -> (find-TH "2020.2")
  PURO-old    -> (find-TH "2021.1")
  PURO-old    -> (find-TH "2021.2")
  PURO-old    -> (find-TH "2022.1")
  PURO-old    -> (find-TH "2022.2")
  PURO-old    -> (find-TH "2023.1")
  PURO-old    -> (find-TH "2023.2")
  PURO        -> (find-TH "2024.1")
  MD-old      -> (find-TH "2010.2-MD")
  MD-old      -> (find-TH "2011.1-MD")
  MD-old      -> (find-TH "2011.2-MD")
  MD-old      -> (find-TH "2012.1-MD")
  MD          -> (find-TH "2018.2-MD")
  C2-old      -> (find-TH "2010.2-C2")
  C2-old      -> (find-TH "2015.1-C2")
  C2-old      -> (find-TH "2015.2-C2")
  C2-old      -> (find-TH "2016.1-C2")
  C2-old      -> (find-TH "2016.2-C2")
  C2-old      -> (find-TH "2017.1-C2")
  C2-old      -> (find-TH "2017.2-C2")
  C2-old      -> (find-TH "2018.1-C2")
  C2-old      -> (find-TH "2018.2-C2")
  C2-old      -> (find-TH "2019.1-C2")
  C2-old      -> (find-TH "2019.2-C2")
  C2-old      -> (find-TH "2020.1-C2")
  C2-old      -> (find-TH "2020.2-C2")
  C2-old      -> (find-TH "2021.1-C2")
  C2-old      -> (find-TH "2021.2-C2")
  C2-old      -> (find-TH "2022.1-C2")
  C2-old      -> (find-TH "2022.2-C2")
  C2-old      -> (find-TH "2023.1-C2")
  C2-old      -> (find-TH "2023.2-C2")
  C2          -> (find-TH "2024.1-C2")
  C3-old      -> (find-TH "2019.1-C3")
  C3-old      -> (find-TH "2019.2-C3")
  C3-old      -> (find-TH "2020.1-C3")
  C3-old      -> (find-TH "2020.2-C3")
  C3-old      -> (find-TH "2021.1-C3")
  C3-old      -> (find-TH "2021.2-C3")
  C3-old      -> (find-TH "2022.1-C3")
  C3-old      -> (find-TH "2022.2-C3")
  C3-old      -> (find-TH "2023.2-C3")
  C3          -> (find-TH "2024.1-C3")
  C4          -> (find-TH "2023.1-C4")
  TD          -> (find-TH "2019.1-TD")
  GA-old      -> (find-TH "2011.1-GA")
  GA-old      -> (find-TH "2011.2-GA")
  GA-old      -> (find-TH "2012.1-GA")
  GA-old      -> (find-TH "2012.2-GA")
  GA-old      -> (find-TH "2013.1-GA")
  GA-old      -> (find-TH "2013.2-GA")
  GA-old      -> (find-TH "2014.1-GA")
  GA-old      -> (find-TH "2014.2-GA")
  GA-old      -> (find-TH "2015.1-GA")
  GA-old      -> (find-TH "2015.2-GA")
  GA-old      -> (find-TH "2016.1-GA")
  GA-old      -> (find-TH "2016.2-GA")
  GA-old      -> (find-TH "2017.1-GA")
  GA-old      -> (find-TH "2017.2-GA")
  GA-old      -> (find-TH "2018.1-GA")
  GA-old      -> (find-TH "2023.1-GA")
  GA          -> (find-TH "2024.1-GA")
  FM          -> (find-TH "2014.2-FM")
  BE          -> (find-TH "2012.1-BE")
  ES          -> (find-TH "2012.2-ES")
  ES          -> (find-TH "2013.1-ES")
  ES          -> (find-TH "2013.2-ES")
  ES          -> (find-TH "2023.1-ES")
  lambda      -> (find-TH "2016-optativa")
  LA-old      -> (find-TH "2016.1-LA")
  LA-old      -> (find-TH "2016.2-LA")
  LA-old      -> (find-TH "2017.1-LA")
  LA-old      -> (find-TH "2017.2-LA")
  LA-old      -> (find-TH "2018.1-LA")
  LA          -> (find-TH "2023.1-LA")
  CAEPRO      -> (find-TH "2023-caepro")
  aix         -> (find-TH "aix")
  agda        -> (find-TH "agda")
  agda        -> (find-TH "eev-agda")
  blogme      -> (find-TH "blogme3")
  blogme      -> (find-TH "blogme-class")
  contact     -> (find-TH "contact")
  cv          -> (find-TH "contact")
  debian      -> (find-TH "debian")
  debianrj    -> (find-TH "debian" "debian-rj")
  debian-rj   -> (find-TH "debian" "debian-rj")
  dednat4     -> (find-TH "dednat4")
  dednat6     -> (find-TH "dednat6")
  diaglib     -> (find-TH "tcl" "diaglib")
  eev         -> (find-TH "index" "eev")
  eepitch     -> (find-TH "eepitch")
  emacs       -> (find-TH "emacs" "eev")
  forth       -> (find-TH "luaforth")
  fvwm        -> (find-TH "fvwm")
  gender      -> (find-TH "gender")
  git         -> (find-TH "2023-eev-git")
  heroes      -> (find-TH "heroes")
  icon        -> (find-TH "icon")
  irc         -> (find-TH "contact")
  iskidip     -> (find-TH "iskidip")
  latex       -> (find-TH "latex")
  (la)tex     -> (find-TH "latex")
  littlelangs -> (find-TH "littlelangs")
  lua         -> (find-TH "luaforth")
  main        -> (find-TH "index")
  math        -> (find-TH "math-b")
  maths       -> (find-TH "math-b")
  maxima      -> (find-TH "eev-maxima")
  miniforth   -> (find-TH "littlelangs" "miniforth")
  msc         -> (find-TH "math-b" "MsC")
  personal    -> (find-TH "personal")
  politics    -> (find-TH "politics")
  tcl         -> (find-TH "tcl")
  squeak      -> (find-TH "eev-squeak")
  tikz        -> (find-TH "eev-tikz")
  etc-old     -> (find-TH "2012.1" "textos")
  etc-old     -> (find-TH "2014.1" "textos")
  etc-old     -> (find-TH "2015.2" "textos")
  etc-old     -> (find-TH "2016.1" "textos")
  etc-old     -> (find-TH "2017.1" "textos")
  etc-old     -> (find-TH "2017.2" "textos")
  etc-old     -> (find-TH "2021.2" "textos")
  etc-old     -> (find-TH "2022.1" "textos")
  etc-old     -> (find-TH "2022.2" "textos")
  etc-old     -> (find-TH "2023.1" "textos")
  etc         -> (find-TH "2024.1" "textos")
  th          -> (find-TH "littlelangs" "TH")
  w32         -> (find-TH "w32")

  chapa1      -> (find-TH "chapa1")
]]

-- «icons»
-- (find-TH "index" "icons")
-- (find-angg "elisp/myxpm.el")
-- (find-THfile "tourism.blogme" "find-myxpmscaled+")

_TARGETS [[
  blogme-icon  -> (find-anggfile "blogme/blogme-icon.png")
  dednat4-icon -> (find-anggfile "dednat4/dednat4-icon.png")
  forth-icon   -> (find-anggfile "IMAGES/forth.png")
  forth-icon   -> (find-anggfile "IMAGES/forthluawhite.png")
  forth-icon   -> (find-anggfile "IMAGES/forthsun.png")
  llangs-icon  -> (find-anggfile "IMAGES/littlelangs.png")
  eev-icon     -> (find-anggfile "eev-current/eev-icon.png")
  transp-icon  -> (find-anggfile "IMAGES/transparent-fav.png")

]]


-- def [[ -> 1 tag  __(tag, tag) ]]
def [[ -> 1 tag  _target[tag] or "(?"..tag.."?)" ]]
def [[ .  1 _    "&nbsp" ]]

html_speedbar = doblogme [=[
  [DIV+ [STYLE float: left; padding: 4px; margin-right: 6px;
               font-size: small; font-family: sans-serif;
               background-color: #fff7e7;]
    Quick<br>
    index<br>
    [_  main]<br>
    [_  eev]<br>
    [_  eepitch]<br>
    [_  maths]<br>
    [_  angg]<br>
    [_  blogme]<br>
    [_  dednat6]<br>
    [_  littlelangs]<br>

    [#
    [_ PURO]<br>
      [J ([_ GA],&nbsp;[_ C2],]<br>
      [J  [_ C3],&nbsp;[_ TD],]<br>
      [J [__ LA &#955;],&nbsp;[_ MD],&nbsp;[_ etc])]<br>
    #]

    [_ PURO]<br>
    ([_ C2],[_ C3],[_ C4],<br>
     [.][__ LA &#955;],[_ ES],<br>
     [.][_ GA],[_ MD],<br>
     [.][__ CAEPRO Caepro],<br>
     [.][__ etc textos],<br>
     [.][__ chapa1 Chapa&nbsp;1])<br>

    [SRULE]
    [_  emacs]<br>
    [_  lua]<br>
    [_  (la)tex]<br>
    [_  maxima]<br>
    [_  git]<br>
    [_  agda]<br>
    [_  forth]<br>
    [_  squeak]<br>
    [_  icon]<br>
    [_  tcl]<br>
    [_  tikz]<br>
    [_  fvwm]<br>
    [_  debian]<br>
    [# [_  debian-rj]<br>
       [__ w32 w32/AIX]<br>
    #]
    [_  irc]<br>
    [_  contact]<br>
    [__ gender &#9791;]<br>
  ]
  ]=]

-- [_  politics]<br>
-- [_  personal]<br>
-- [_  heroes]<br>


html_favicon = ""
def [[ SETFAVICON 1 url  set("html_favicon",
         "<link rel=\"shortcut icon\" href=\"$url\" />\n") ]]
def [[ html_head   1 title
         HEAD(TITLE(title)..html_meta..html_favicon..html_style) ]]

]

[# A test (ignored in includes): #]

[htmlize [J Speedbar test]
  [# SETHEADSTYLE
    h3 { background-color: blue; }
    .menu { float: left; padding: 4px; margin-right: 6px;
            font-style: helvetica, sans-serif;
            /* font-variant: small-caps; */
            /* font-style: helvetica, sans-serif; */
            /* font-variant: small-caps; */
            background-color: #fff7e7; }
  ]

  [#
  [lua: return html_speedbar]
  [DIV+ [STYLE float: right;  background-color: orange] foo]
  [DIV+ [STYLE float: left;   background-color: pink] foo]
  [# [DIV+ [STYLE float: center; background-color: yellow] foo]
   #]
  foo
  <br>
  bar
  #]
]

[#
 # Local Variables:
 # coding: raw-text-unix
 # modes: (lua-mode fundamental-mode blogme-mode)
 # End:
#]