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