ryuslash/avandu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add possibility of choosing rendering functions

Browse source 
* avandu.el (avandu-article-render-function): New defcustom.

  (avandu-view-possibly-external):
  (avandu-view-w3m): New functions.

  (avandu-view-article): Call rendering function at the end so that
  the buffer has been loaded and minor modes and such _should_ load
  correctly.
This commit is contained in:
Tom Willemsen 2012-08-22 23:08:42 +02:00
parent 91e25431c4
commit a9d0b80d81
1 changed files with 33 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
avandu.el
View file

@ -122,19 +122,24 @@
:group 'avandu) :group 'avandu)
;; User options ;; User options
(defcustom avandu-article-render-function nil
"A function to call that will render the content of an article."
:group 'avandu
:type 'function)
(defcustom avandu-tt-rss-api-url nil (defcustom avandu-tt-rss-api-url nil
"URL of your Tiny Tiny RSS instance. For example: "URL of your Tiny Tiny RSS instance. For example:
http://tt-rss.org/demo/api/" http://tt-rss.org/demo/api/"
:group 'avandu :group 'avandu
:type 'string) :type 'string)
(defcustom avandu-user nil (defcustom avandu-html2text-command nil
"Username of your Tiny Tiny RSS account." "Shell command to call to change HTML to plain text."
:group 'avandu :group 'avandu
:type 'string) :type 'string)
(defcustom avandu-html2text-command nil (defcustom avandu-user nil
"Shell command to call to change HTML to plain text." "Username of your Tiny Tiny RSS account."
:group 'avandu :group 'avandu
:type 'string) :type 'string)
@ -640,6 +645,19 @@ feeds."
version)) version))
(defun avandu-view-possibly-external (start end)
"If `avandu-html2text-command' has been specified use that on
the given region, otherwise just leave it alone."
(when avandu-html2text-command
(shell-command-on-region
start end avandu-html2text-command t t)))
(defun avandu-view-w3m (start end)
"Use w3m to view an article."
(when (require 'w3m nil t)
(w3m-region start end)
(w3m-minor-mode)))
;; Overview ;; Overview
(define-derived-mode avandu-overview-mode special-mode (define-derived-mode avandu-overview-mode special-mode
avandu-overview-mode-name avandu-overview-mode-name
@ -699,7 +717,9 @@ by feed."
(interactive "nArticle id: ") (interactive "nArticle id: ")
(let* ((data (avandu-get-article id)) (let* ((data (avandu-get-article id))
(buffer (get-buffer-create "*avandu-article*")) (buffer (get-buffer-create "*avandu-article*"))
(inhibit-read-only t)) (inhibit-read-only t)
content-start
content-end)
(with-current-buffer buffer (with-current-buffer buffer
(erase-buffer) (erase-buffer)
(mapc #'(lambda (item) (mapc #'(lambda (item)
@ -711,12 +731,9 @@ by feed."
(propertize (concat "by: " (avu-prop item author)) (propertize (concat "by: " (avu-prop item author))
'face 'avandu-article-author)) 'face 'avandu-article-author))
(newline)(newline) (newline)(newline)
(let ((pos (point))) (setq content-start (point))
(insert (avu-prop item content)) (insert (avu-prop item content))
(setq content-end (point))
(when avandu-html2text-command
(shell-command-on-region
pos (point) avandu-html2text-command buffer t)))
(newline)(newline)) (newline)(newline))
data) data)
(setq buffer-read-only t) (setq buffer-read-only t)
@ -724,7 +741,11 @@ by feed."
(avandu-article-mode)) (avandu-article-mode))
(avandu-mark-article-read id) (avandu-mark-article-read id)
(avandu-ui-mark-article-read) (avandu-ui-mark-article-read)
(switch-to-buffer buffer))) (switch-to-buffer buffer)
(when avandu-article-render-function
(funcall
avandu-article-render-function content-start
(min content-end (point-max))))))
(provide 'avandu) (provide 'avandu)