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

FUEL: $synopsis markup implemented.

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

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

@ -593,10 +593,17 @@
(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--null (e))
(defun fuel-markup--synopsis (e) (defun fuel-markup--synopsis (e)
(insert (format " %S " e))) (let* ((word (nth 1 e))
(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))
(provide 'fuel-markup) (provide 'fuel-markup)