tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

eldo.el: Minor tweaks

This commit is contained in:
Bastien Guerry 2012-09-10 09:21:14 +02:00
parent 27101a3e0e
commit f7f0445cc1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mk/eldo.el
View File

@ -90,7 +90,7 @@
(d (get h 'variable-documentation)))
(if (> (length val) 30) (setq val (concat (substring val 0 30) "...")))
(insert
" ~" val "~\n"
" =" val "=\n"
(if version (format "- *Since:* Emacs version %s\n" version) "")
(format (concat "- *In file:* [[" eldo-git-raw-file "][%s]]\n") f f)
(format (concat "- [[" eldo-git-search-string
@ -109,7 +109,7 @@
(key (mapconcat 'key-description (where-is-internal c eldo-keymaps) ", "))
(args (help-function-arglist c t))
(d (documentation c)))
(insert "\n** " (symbol-name c) (if args (format " =%s=\n" args) "\n"))
(insert "\n** " (symbol-name c) (if args (format " =%s=\n" args) "\n"))
(org-set-property "CUSTOM_ID" (symbol-name c))
(insert
(if (and key (not (string= key ""))) (format "\n- *Access:* ~%s~" key) "")
@ -136,7 +136,7 @@
(if (> (length val) 30) (setq val (concat (substring val 0 30) "...")))
(if (> (length type) 30) (setq type (concat (substring type 0 30) "...")))
(insert
" ~" val "~\n\n"
" =" val "=\n\n"
(format "- *Type:* %s\n" type)
(if version (format "- *Since:* Emacs version %s\n" version) "")
(format (concat "- *In file:* [[" eldo-git-raw-file "][%s]]\n") f f)