; sourced for html tasks

store-procedure html-para
  insert-string "<p>"
!endm

store-procedure html-brk
  insert-string "<br>"
!endm

store-procedure html-bold
  insert-string "<b></b>"
  previous-character
  previous-character
  previous-character
  previous-character
!endm

store-procedure html-hdr3
  insert-string "<h3></h3>"
  previous-character
  previous-character
  previous-character
  previous-character
  previous-character
!endm

store-procedure html-hdr4
  insert-string "<h4></h4>"
  previous-character
  previous-character
  previous-character
  previous-character
  previous-character
!endm

store-procedure html-link
  insert-string "<a href=~"http://~"></a>"
  previous-character
  previous-character
  previous-character
  previous-character
  previous-character
  previous-character
!endm

store-procedure html-olst
  insert-string "<ol>"
  newline
  insert-string "<li>"
  newline
  insert-string "</ol>"
  previous-line
!endm

store-procedure html-quot
  insert-string "<blockquote>"
  newline
  newline
  insert-string "</blockquote>"
  previous-line
!endm

store-procedure html-ulst
  insert-string "<ul>"
  newline
  insert-string "<li>"
  newline
  insert-string "</ul>"
  previous-line
!endm

; BINDINGS
macro-to-key html-brk  M-^K
macro-to-key html-bold M-^B
macro-to-key html-hdr3 M-^H
macro-to-key html-hdr4 M-^I
macro-to-key html-link M-^L
macro-to-key html-olst M-^O
macro-to-key html-para M-^P
macro-to-key html-quot M-^Q
macro-to-key html-ulst M-^U