FUEL: Small refactoring.

diff --git a/misc/fuel/fuel-markup.el b/misc/fuel/fuel-markup.el
index 4a5df8e7ea17c175d8ede67101b980193305ab6c..0c2fe91551bded83838304e892b4406f99af263b 100644 (file)
--- a/misc/fuel/fuel-markup.el
+++ b/misc/fuel/fuel-markup.el
@@ -583,9 +583,9 @@
 (defun fuel-markup--notes (e)
   (fuel-markup--elem-with-heading e "Notes"))
 
-(defun fuel-markup--see (e)
+(defun fuel-markup--word-info (e s)
   (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)))
          (res (and (not (fuel-eval--retort-error ret))
                    (fuel-eval--retort-output ret))))
@@ -593,15 +593,11 @@
         (fuel-markup--code (list '$code res))
       (fuel-markup--snippet (list '$snippet " " word)))))
 
+(defun fuel-markup--see (e)
+  (fuel-markup--word-info e 'see))
+
 (defun fuel-markup--synopsis (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)))))
+  (fuel-markup--word-info e 'synopsis))
 
 (defun fuel-markup--null (e))