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

FUEL: fix rendering of $synopsis markup. 

It is rendered exactly the same as $see markup. It works well and was
the easiest fix to the problem.
factor-shell
Björn Lindqvist 2018-02-01 15:43:27 +01:00
parent 8eb76bdee0
commit d4e8d0a1fe
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -145,7 +145,7 @@
($quotation . fuel-markup--quotation) ($quotation . fuel-markup--quotation)
($references . fuel-markup--references) ($references . fuel-markup--references)
($related . fuel-markup--related) ($related . fuel-markup--related)
($see . fuel-markup--see) ($see . fuel-markup--word-info)
($see-also . fuel-markup--see-also) ($see-also . fuel-markup--see-also)
($shuffle . fuel-markup--shuffle) ($shuffle . fuel-markup--shuffle)
($side-effects . fuel-markup--side-effects) ($side-effects . fuel-markup--side-effects)
@ -155,7 +155,7 @@
($subheading . fuel-markup--subheading) ($subheading . fuel-markup--subheading)
($subsection . fuel-markup--subsection) ($subsection . fuel-markup--subsection)
($subsections . fuel-markup--subsections) ($subsections . fuel-markup--subsections)
($synopsis . fuel-markup--synopsis) ($synopsis . fuel-markup--word-info)
($syntax . fuel-markup--syntax) ($syntax . fuel-markup--syntax)
($table . fuel-markup--table) ($table . fuel-markup--table)
($tag . fuel-markup--tag) ($tag . fuel-markup--tag)
@ -663,9 +663,13 @@ the 'words.' word emits."
(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--word-info (e s) (defun fuel-markup--word-info (e)
"Uses the 'see' word to lookup info about a given word. Note
that this function is called in contexts where it is impossible
to guess the correct usings, so a static using list is used."
(let* ((word (nth 1 e)) (let* ((word (nth 1 e))
(cmd (and word `(:fuel* ((:quote ,(format "%s" word)) ,s) "fuel"))) (cmd `(:fuel* ((:quote ,(symbol-name word)) see)
"fuel" ("kernel" "lexer" "see" "sequences")))
(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))))
@ -673,12 +677,6 @@ the 'words.' word emits."
(fuel-markup--code (list '$code res) nil) (fuel-markup--code (list '$code res) nil)
(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)
(fuel-markup--word-info e 'synopsis))
(defun fuel-markup--null (e)) (defun fuel-markup--null (e))