TITLE STRING

;;;
;;; SYNOPSIS: mhtml-mode and html quick ref, adds to html-mode.el
;;; AUTHOR: GPL(C) Mohsin Ahmed, http://www.cs.albany.edu/~mosh

(defvar comment-start  "" )
(defvar mhtml-comment  "\n\n")

(defvar mhtml-list  "\n\n ITEM1 \n
 ITEM2 \n\n")
(defvar mhtml-href  "\n LINK TO URL \n")
(defvar mhtml-image "\n\n")
(defvar mhtml-mark  "MARK\nGoto MARK\n")

(defvar mhtml-head    "
 HEAD 
"
)

(defvar mhtml-header  "
"
)

(defvar mhtml-hrule "
 
"
)

(defvar mhtml-page "

  TITLE STRING  

Paragraph one. 

Paragraph two. 




"
)


(defun mhtml-region-to-file (file &optional aname)
  "Save the region as a file and put a link in its place."
  (interactive "F")

  ;; If no extension, add .html to filename.

  (if (equal (file-name-sans-extension file) file)
     (setq file (concat file ".html")))
  (if (file-exists-p file)
      (error "File %s present." file))
  (mosh-show-region)

  ;; Default name for the anchor is same as file name.

  (if aname nil (setq aname file))
  (write-region (region-beginning) (region-end) file)
  (delete-region (region-beginning) (region-end))
  (insert (concat " Link to " aname " \n"))
)

(defun mhtml-line-to-href ()

  "Make current line into a href, eg if Line was:
            http://www.cs.albany.edu/~mosh
   then Line becomes:
     DESCRIPTION 

   An easy way to make bookmarks files.
  "

  (interactive)
  (beginning-of-line)
  (insert "    \nDESCRIPTION\n    
")
)

(provide 'mhtml)

;;; EOF