steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

FUEL: Small refactoring.

db4
Jose A. Ortega Ruiz 2009-01-30 00:48:24 +01:00
parent 8d522caa82
commit ba3c188b3c
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
misc/fuel/fuel-markup.el
View File

@ -583,9 +583,9 @@
(defun fuel-markup--notes (e) (defun fuel-markup--notes (e)
(fuel-markup--elem-with-heading e "Notes")) (fuel-markup--elem-with-heading e "Notes"))
(defun fuel-markup--see (e) (defun fuel-markup--word-info (e s)
(let* ((word (nth 1 e)) (let* ((word (nth 1 e))
(cmd (and word `(:fuel* ((:quote ,(format "%s" word)) see) "fuel"))) (cmd (and word `(:fuel* ((:quote ,(format "%s" word)) ,s) "fuel")))
(ret (and cmd (fuel-eval--send/wait cmd))) (ret (and cmd (fuel-eval--send/wait cmd)))
(res (and (not (fuel-eval--retort-error ret)) (res (and (not (fuel-eval--retort-error ret))
(fuel-eval--retort-output ret)))) (fuel-eval--retort-output ret))))
@ -593,15 +593,11 @@
(fuel-markup--code (list '$code res)) (fuel-markup--code (list '$code res))
(fuel-markup--snippet (list '$snippet " " word))))) (fuel-markup--snippet (list '$snippet " " word)))))
(defun fuel-markup--see (e)
(fuel-markup--word-info e 'see))
(defun fuel-markup--synopsis (e) (defun fuel-markup--synopsis (e)
(let* ((word (nth 1 e)) (fuel-markup--word-info e 'synopsis))
(cmd (and word `(:fuel* ((:quote ,(format "%s" word)) synopsis) "fuel")))
(ret (and cmd (fuel-eval--send/wait cmd)))
(res (and (not (fuel-eval--retort-error ret))
(fuel-eval--retort-output ret))))
(if res
(fuel-markup--code (list '$code res))
(fuel-markup--snippet (list '$snippet " " word)))))
(defun fuel-markup--null (e)) (defun fuel-markup--null (e))