;; Helper keybindings for weblogger mode
;;
;;
;; Copyright (c) 2009 Akarsh Simha <akarsh.simha@kdemail.net>
;;
;; License: The GNU General Public License version 3
;; (http://www.gnu.org/copyleft/gpl.html)

;; Define destination directory / URL root for uploaded files
;; TODO: Replace the following
(setq weblogger-upload-dest "foo@host:path/blog_files/")  ;; scp destination prefix
(setq weblogger-upload-url "http://foodomain.com/path/blog_files/") ;; base URL for web links

;; Upload a file to the server
(defun weblogger-upload-file (filename)
  (interactive "FFind file: ") ;; Let the user find the file interactively if no filename is supplied
  (setq destfname (car (last (split-string filename "/"))))
  (shell-command (concat "scp " filename " " weblogger-upload-dest destfname) "*Upload Output*")
  (concat weblogger-upload-url destfname)  
)

;; Upload a file to server and insert a link at point
(defun weblogger-insert-file (filename)
  (interactive "FFind file: ") ;; Let the user find the file interactively if no filename is supplied
  (insert (concat "<a href='" (weblogger-upload-file filename)  "' alt=''></a>"))
  (backward-char 4)
)

;; Upload an image to server and insert a <img...> tag at point
(defun weblogger-insert-image (filename)
  (interactive "FFind file: ") ;; Let the user find the file interactively if no filename is supplied
  (insert "<img src=\"" (weblogger-upload-file filename) "\" alt=\"\" />")
)

(defun weblogger-insert-image-scale (filename)
  (interactive "FFind file: ") ;; Let the user find the file interactively if no filename is supplied
  (setq image-url (weblogger-upload-file filename))
  (insert "<a href=" image-url " alt=\"Click to view un-scaled version\"> <img src=" image-url " alt=\"\" width='600' /> </a>")
)

;; Load TexDrive to get LaTeX support
(load-file "~/.emacs.d/texdrive.el")

;;
;; NOTE: Ugly code. This screws up a good lot of defintions from
;; texdrive. Don't use this if you are going to use texdrive without
;; for purposes other than your blog.
;;

;; Override texdrive-insert-formula to prepend the upload URL to the
;; filename
(defun weblogger-insert-formula (tex title)
  (interactive "sFormula (TeX):\nsTitle:")
  (insert
    (concat
      "<img " 
      "src=\"" weblogger-upload-url (texdrive-target-png title) "\" "
      "title=\"" title "\" "
      "class=\"texdrive-formula\" "
      "alt=\"" tex   "\" "    
      "border=\"0\">")))

;; Tailored version of texdrive-buffer-formulae-assoc for weblogger
;; purposes
(defun weblogger-tex-buffer-formulae-assoc ()
  "return an assoc of (<name> <formula>) starting for the whole buffer"
  (save-excursion
    (goto-char 0)
    (weblogger-tex-formulae-assoc)))


;; Tailor texdrive-formulae-assoc to avoid capturing the prepended
;; base URL (weblogger-upload-url)
(defun weblogger-tex-formulae-assoc ()
  "return an assoc of (<name> <formula>) starting from point"
  (when 
    (re-search-forward
      (concat "<img src=\"" weblogger-upload-url "\\(.+?\\)\.png\".*?class=\"texdrive-formula\".*?alt=\"\\(.+?\\)\"") 
      nil t)
    (cons (list 
	    (match-string-no-properties 1) 
	    (match-string-no-properties 2)) 
      (weblogger-tex-formulae-assoc))))

;; Provide a modified version of texdrive-generate-images to generate
;; and also upload all the tex images
(defun weblogger-upload-tex-images ()
  "generate png images for all the texdrive formulae in the buffer"
  (interactive)
  (let ((eqs (weblogger-tex-buffer-formulae-assoc)))
    (weblogger-upload-tex-images-lst eqs)))


(defun weblogger-upload-tex-images-lst (lst)
  (when lst
    (let ((name (car (car lst))) (formula (cadr (car lst))))
      (when (texdrive-create-png name formula)
	(weblogger-upload-file (texdrive-target-png name))
	(weblogger-upload-tex-images-lst (cdr lst))))))