From 8d522caa82967e2d97bd50cf2a03cb7828528eea Mon Sep 17 00:00:00 2001 From: "Jose A. Ortega Ruiz" Date: Fri, 30 Jan 2009 00:44:15 +0100 Subject: [PATCH] FUEL: $synopsis markup implemented. --- misc/fuel/fuel-markup.el | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/misc/fuel/fuel-markup.el b/misc/fuel/fuel-markup.el index 9e508b802d..4a5df8e7ea 100644 --- a/misc/fuel/fuel-markup.el +++ b/misc/fuel/fuel-markup.el @@ -593,10 +593,17 @@ (fuel-markup--code (list '$code res)) (fuel-markup--snippet (list '$snippet " " word))))) -(defun fuel-markup--null (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)