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

Make type names bold

Browse source
This commit is contained in:
Tom Willemse 2013-12-28 16:59:13 +01:00
parent 3a7936e385
commit 4297d6955a
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
edocs.el
View file

@ -171,10 +171,13 @@ See the docstring for `edocs--module-name' for more information."
(let ((docs (edocs--get-docs (car symbol) (cdr symbol)))) (let ((docs (edocs--get-docs (car symbol) (cdr symbol))))
(mapc (lambda (doc) (mapc (lambda (doc)
(edocs--with-tag "div" nil (edocs--with-tag "div" nil
(insert "– " (insert "– ")
(edocs--get-type-display (car symbol)) (edocs--with-tag "strong" nil
": <tt>" (cdr symbol) "</tt> " (insert (edocs--get-type-display (car symbol))))
(if (consp doc) (car doc) "")) (insert ": ")
(edocs--with-tag "tt" nil
(insert (cdr symbol)))
(insert " " (if (consp doc) (car doc) ""))
(edocs--with-tag "div" '(("class" . "docstring")) (edocs--with-tag "div" '(("class" . "docstring"))
(edocs--with-tag "p" nil (edocs--with-tag "p" nil
(insert (or (edocs--format-doc doc) (insert (or (edocs--format-doc doc)