Могут ли результаты org-babel выводиться как комментарии к коду?

В блогах, учебниках и т. Д. Действительно часто результаты кода отображаются в виде комментариев, например:

(+ 1 1) ;=> 2

Есть ли способ автоматически отображать такие результаты, используя функцию Babel в Org-Mode?

В частности, я хотел бы иметь возможность указать заголовок, такой:

#+begin_src scheme <some headers>
(+ 1 1)
(/ 4 (* 2 2))
#+end_src

Превратился бы в следующее, когда я C-c C-c:

#+begin_src scheme <some headers>
(+ 1 1) ;=> 2
(/ 4 (* 2 2)) ;=> 1
#+end_src

И потом, если я внесу некоторые изменения, например, так ...

#+begin_src scheme <some headers>
(+ 1 5) ;=> 2
(/ 8 (* 2 2)) ;=> 1
#+end_src

... и C-c C-cэто заменит комментарии на обновленные:

#+begin_src scheme <some headers>
(+ 1 5) ;=> 6
(/ 8 (* 2 2)) ;=> 2
#+end_src

Или, если не считать того, о чем я мечтал выше, есть ли простой способ отображения результатов с помощью средства визуализации org-файлов в github, так что будет видно следующее (в идеале с форматированием, которое я задаю на уровне документа):

#+RESULTS:
: 2

попробуй это

Используйте именованные блоки кода и nowebзаголовок, чтобы превратить ваш код в грамотную программу.

#+NAME: my-code
#+BEGIN_SRC elisp :exports none 
(+ 1 1)
#+END_SRC

#+NAME: my-other-code 
#+BEGIN_SRC elisp :exports none 
(/ 4 (* 2 2))
#+END_SRC

Создайте orgблок кода для форматирования кода с вашим результатом

#+BEGIN_SRC org :results drawer replace :noweb yes :exports results 

  ,#+NAME: my-code-with-answer
  ,#+BEGIN_SRC elisp  :exports code 
  <<my-code>> ;=> <<my-code()>>
  <<my-other-code>> ;=> <<my-other-code()>>
  ,#+END_SRC


#+END_SRC

Сделайте C-c C-cна orgблоке кода , и вы должны увидеть результаты , аналогичные коду ниже:

#+RESULTS:
:RESULTS:

#+NAME: my-code-with-answer
#+BEGIN_SRC elisp  :exports code 
(+ 1 1) ;=> 2
(/ 4 (* 2 2)) ;=> 1
#+END_SRC

:END:

Если вы отправите код на Github, вы должны увидеть

(+ 1 1) ;=> 2
(/ 4 (* 2 2)) ;=> 1

Этот код был протестирован с
GNU Emacs 24.5.1 (x86_64-unknown-cygwin, GTK + версия 3.14.13) Версия в режиме
Org: 8.3.2
и github.

Самое близкое, что мне удалось сделать с существующей функциональностью Babel, это следующее:

Сначала я определяю функцию emacs-lisp для добавления результатов ";=> ":

#+name: commentify
#+begin_src emacs-lisp :var result="" :exports none
(concat ";=> " (format "%s" result))
#+end_src

Затем я обрабатываю результаты, используя :postзаголовок:

#+begin_src scheme :post commentify(*this*) :results code :exports both
(+ 5 7)
#+end_src

При этом возвращается следующее значение C-c C-c, которое отображается на github из-за :exports bothзаголовка, но оно находится в отдельном блоке кода.

#+RESULTS:
#+BEGIN_SRC scheme
;=> 12
#+END_SRC

Я думаю, что эта стратегия оставляет файл org слишком загроможденным, чтобы того стоить. И, если я не отключу подтверждение оценки кода, я должен принять два сообщения: «Вы уверены, что хотите оценить код?» приглашения (один для блока схемы и один для elisp commentify).

Вы можете сделать что-то вроде этого:

1. Напишите ваш названный многострочный блок исходного кода как обычно

2. Измените упаковку с BEGIN/END_SRCна …-EXAMPLE:

    # + ИМЯ: реальный источник
    # + BEGIN_EXAMPLE emacs-lisp
    (+ 3 4)
    (* 4 47)
    # + END_EXAMPLE

3. Вставьте и выполните этот блок под первым блоком кода.

    # + ИМЯ: LispBlock
    # + HEADER:: var lcmds = real-source
    # + BEGIN_SRC emacs-lisp: вывод результатов: wrap src emacs-lisp
    (dolist (cmd (разделенная строка lcmds "\ n"))
      (если (string = "" cmd)
        (Princ
         (формат "% s \ t; →% s \ n"
                 cmd (eval (автомобиль (чтение из строки cmd)))))))
    # + END_SRC

4. Результат:

    # + РЕЗУЛЬТАТЫ: LispBlock
    # + BEGIN_src emacs-lisp
    (+ 3 4); → 7
    (* 4 47); → 188
    # + END_src

5. Добавьте дополнительные многострочные исходные блоки с индивидуальными именами по мере необходимости в ваш текст

6. Добавьте #+CALL:строки, где вы даете имя блока в качестве lcmdsпеременной. Вышеуказанный блок преобразования требуется только один раз для каждого документа.

Обратите внимание, что блок Transforming должен быть написан на языке, который вы обрабатываете.

Сначала я попытался «автоматизировать» хорошее решение от @melioratus, но столкнулся с проблемами, когда столкнулся с вышеуказанным решением.

@jpkotta, спасибо за указание на исправление, необходимое для избежания проблемы с числом-списком-кодом-блоком.