;;; LiveJournal
(require 'ljupdate)
(require 'lj-pcomplete)
(require 'lj-edit)

(setq lj-music-external-program "logjam-xmms-client")

(add-hook 'lj-compose-init-headers-hook #'lj-pcomplete-setup)

(add-hook 'lj-compose-init-headers-hook
	  #'(lambda () (insert "Music: "
			  (shell-command-to-string lj-music-external-program)
			  "\n")))

(add-hook 'lj-compose-init-headers-hook
	  #'(lambda () (insert "Picture: \n")))

(add-hook 'lj-compose-init-body-hook
	  #'(lambda ()
	      (save-excursion 
		(let ((beg-point (point)))
		  (insert "<lj-raw>\n</lj-raw>")
		  (indent-region beg-point (point) 2)))))

(define-skeleton cke-lj-blockquote
  ""
  > "<blockquote style=\"text-align: justify;\">" \n
  > str \n
  > "</blockquote>")

(define-skeleton cke-lj-paragraph
  ""
  \n > "<p>" \n
  > str
  > "</p>")

(defun cke-lj-blockquote-region (cke-start cke-end)
  (interactive "r")
  (save-excursion
    (save-restriction
      (narrow-to-region cke-start cke-end)
      (set-mark (point-min))
      (goto-char (point-min))
      (while (< (mark) (point-max))
	(forward-paragraph)
	(let ((cke-paragraph (buffer-substring (mark) (point))))
	  (delete-region (mark) (point))
	  (cke-lj-paragraph cke-paragraph))
	(set-mark (point)))
      (let ((cke-paragraphs (buffer-substring (point-min) (point-max))))
	(delete-region (point-min) (point-max))
	(cke-lj-blockquote cke-paragraphs)))))