FUEL: $synopsis markup implemented.

diff --git a/misc/fuel/fuel-markup.el b/misc/fuel/fuel-markup.el
index 9e508b802d6237f891daeb2d7011122b14d7a7f4..4a5df8e7ea17c175d8ede67101b980193305ab6c 100644 (file)
--- 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))
 
 \f
 (provide 'fuel-markup)