magical
/
bbj
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

add a require; fall back to default spantag behaviour in .el

pull/4/head
Blake DeMarcy 2017-03-03 18:14:27 -06:00
parent 410bb78d1e
commit fc26126498
1 changed files with 4 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
bbj.el
View File

@ -1,4 +1,5 @@
(require 'json) (require 'json)
(require 'shr)
(require 'cl) (require 'cl)
(defvar bbj-host "localhost") (defvar bbj-host "localhost")
@ -412,28 +413,9 @@ or any of its children."
(bbj-insert-sep))) (bbj-insert-sep)))
;; (defun bbj-render-tag-span (dom)
;; "A slightly modified version of `shr-tag-span' which handles quotes and stuff."
;; (let ((class (if bbj-old-p
;; (assq :class (cdr dom))
;; (dom-attr dom 'class))))
;; (dolist (sub (if (consp (car dom)) (cddr (car dom)) (cddr dom)))
;; (if (stringp sub)
;; (cond
;; ((equal class "quote")
;; (insert (propertize sub
;; 'face 'font-lock-constant-face
;; 'type 'quote)))
;; ((equal class "linequote")
;; (insert (propertize sub
;; 'face 'font-lock-string-face
;; 'type 'linequote)))
;; (t (shr-insert sub)))
;; (shr-descend sub)))))
(defun bbj-render-tag-span (dom) (defun bbj-render-tag-span (dom)
"A highly bastardized version of `shr-tag-span', beaten and maimed until "A highly bastardized version of e25's `shr-tag-span', beaten and
it worked on emacs 24." maimed until it worked on emacs 24."
(let ((class (if bbj-old-p (let ((class (if bbj-old-p
(alist-get :class dom) (alist-get :class dom)
(dom-attr dom 'class))) (dom-attr dom 'class)))
@ -450,7 +432,7 @@ it worked on emacs 24."
(insert (propertize text (insert (propertize text
'face 'font-lock-string-face 'face 'font-lock-string-face
'type 'linequote))) 'type 'linequote)))
(text (shr-insert text))))) (t (shr-generic dom)))))
(defun bbj-mksep () (defun bbj-mksep ()