emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Jonathan Gregory <jgrg@autistici.org>
To: Ihor Radchenko <yantar92@posteo.net>
Cc: "Dr. Arne Babenhauserheide" <arne_bab@web.de>,
	"Victor A. Stoichita" <victor@svictor.net>,
	emacs-orgmode@gnu.org
Subject: Re: [BUG] WORG example for ob-lilypond is no longer working as described (was: Moving some lisp/ob-*.el files to org-contrib - your advice?)
Date: Wed, 19 Jul 2023 09:17:40 -0300	[thread overview]
Message-ID: <878rbchyt9.fsf@autistici.org> (raw)
In-Reply-To: <87sf9lv9ta.fsf@localhost>

[-- Attachment #1: Type: text/plain, Size: 1410 bytes --]


On 18 Jul 2023, Ihor Radchenko wrote:

> Jonathan Gregory <jgrg@autistici.org> writes:
>
>>> I also checked what will happen with future versions, and it 
>>> looks like \version "2.24.1" actually means >=.
>>
>> That's good to know.
>>
>> I know version 2.20.0 works without the update, so perhaps we 
>> could set those variables conditionally, WDYT?
>>
>> \version "2.20"
>> #(if (ly:get-option 'use-paper-size-for-page)
>>      (begin (ly:set-option 'use-paper-size-for-page #f)
>>             (ly:set-option 'tall-page-formats 'pdf)))
>
> I do not mind. But remember that we are talking just about an 
> example file. What you are suggesting appears to be closer to 
> what we might do in ob-lilypond itself, when calculating default 
> layout.

That would be even better, I agree.

Can you test my patch?

Command-line options are normally added to 
`org-babel-lilypond-ly-command`, but since we're trying to set 
variables conditionally to accommodate different versions, I don't 
see how we can do this without using scheme. WDYT?

> Side note: ob-lilypond even has 
> `org-babel-lilypond-toggle-midi-play' that plays sound 
> corresponding to the lilypond source. Pretty cool, especially in 
> the context of the discussion about non-textual output types in 
> babel. 
> https://list.orgmode.org/orgmode/87ttu95xst.fsf@localhost/

Sure, I'll think about adding a MIDI example as well.


-- 
Jonathan

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: ob-lilypond.el.diff --]
[-- Type: text/x-diff, Size: 1069 bytes --]

diff --git a/lisp/ob-lilypond.el b/lisp/ob-lilypond.el
index 9693b89e2..3cbdd2b27 100644
--- a/lisp/ob-lilypond.el
+++ b/lisp/ob-lilypond.el
@@ -183,6 +183,12 @@ specific arguments to =org-babel-tangle=."
 	 (in-file (org-babel-temp-file "lilypond-")))
 
     (with-temp-file in-file
+      ;; To create music fragments suitable for mixing music and text,
+      ;; newer versions of lilypond require setting at least the
+      ;; following two variables introduced in version 2.22.
+      (insert "#(if (ly:get-option 'use-paper-size-for-page)
+(begin (ly:set-option 'use-paper-size-for-page #f)
+(ly:set-option 'tall-page-formats 'pdf)))\n")
       (insert (org-babel-expand-body:generic body params)))
     (org-babel-eval
      (concat
@@ -199,7 +205,9 @@ specific arguments to =org-babel-tangle=."
       (file-name-sans-extension out-file)
       " "
       cmdline
-      in-file) "")) nil)
+      in-file)
+     ""))
+  nil)
 
 (defun org-babel-prep-session:lilypond (_session _params)
   "Return an error because LilyPond exporter does not support sessions."

  reply	other threads:[~2023-07-19 12:28 UTC|newest]

Thread overview: 77+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2021-05-03 15:13 Moving some lisp/ob-*.el files to org-contrib - your advice? Bastien
2021-05-03 17:49 ` Timothy
2021-05-03 18:05   ` Bastien
2021-05-03 19:36     ` Palak Mathur
2021-05-03 19:44       ` Timothy
2021-05-03 19:47         ` Palak Mathur
2021-05-03 20:34         ` Bastien
2021-05-03 20:33       ` Bastien
2021-05-04  7:55   ` Eric S Fraga
2021-05-19  3:36     ` Jack Kamm
2021-05-03 20:52 ` Victor A. Stoichita
2021-05-04 10:19   ` Dr. Arne Babenhauserheide
2021-05-04 11:28     ` Bastien
2021-05-04 18:38       ` Victor A. Stoichita
2023-07-12 13:40     ` [BUG] WORG example for ob-lilypond is no longer working as described (was: Moving some lisp/ob-*.el files to org-contrib - your advice?) Ihor Radchenko
2023-07-12 22:35       ` Jonathan Gregory
2023-07-13  6:52         ` Dr. Arne Babenhauserheide
2023-07-13 10:08         ` Ihor Radchenko
2023-07-13 11:04           ` Jonathan Gregory
2023-07-14 12:38           ` Jonathan Gregory
2023-07-14 13:15             ` Dr. Arne Babenhauserheide
2023-07-14 13:52               ` Ihor Radchenko
2023-07-14 18:06             ` Ihor Radchenko
2023-07-17 17:02               ` Jonathan Gregory
2023-07-18  9:38                 ` Ihor Radchenko
2023-07-19 12:17                   ` Jonathan Gregory [this message]
2023-07-20  7:13                     ` Ihor Radchenko
2023-07-20 17:53                       ` Jonathan Gregory
2023-07-21  7:36                         ` Ihor Radchenko
2023-07-21 11:38                           ` Jonathan Gregory
2023-07-22  8:12                             ` Ihor Radchenko
2023-07-25 16:16                               ` Henrik Frisk
2023-07-25 16:26                                 ` Henrik Frisk
2023-07-25 17:17                                   ` Jonathan Gregory
2023-07-25 21:40                                     ` Henrik Frisk
2023-07-25 17:29                               ` Jonathan Gregory
2023-07-26  8:15                                 ` Ihor Radchenko
2023-07-26 12:35                                   ` Jonathan Gregory
2023-07-27  7:21                                     ` Ihor Radchenko
2023-07-27 12:42                                       ` Jonathan Gregory
2023-07-28  7:37                                         ` Ihor Radchenko
2023-07-28 14:02                                           ` Jonathan Gregory
2023-07-29  7:16                                             ` Ihor Radchenko
2023-07-31 11:14                                               ` Jonathan Gregory
2023-07-31 11:58                                                 ` Ihor Radchenko
2023-07-31 12:42                                                   ` Jonathan Gregory
2023-08-08 13:01                                                     ` Ihor Radchenko
2023-08-10 11:05                                                       ` Jonathan Gregory
2023-08-11  7:04                                                         ` Ihor Radchenko
2023-08-15  7:33                                                           ` Henrik Frisk
2023-08-15 10:41                                                             ` Ihor Radchenko
2023-08-15 15:57                                                               ` Henrik Frisk
2023-08-15 16:04                                                                 ` Ihor Radchenko
2023-08-16 12:54                                                           ` Jonathan Gregory
2023-08-17 10:26                                                             ` Ihor Radchenko
2023-08-19 12:56                                                           ` Jonathan Gregory
2023-08-20  7:20                                                             ` Ihor Radchenko
2023-08-20 12:47                                                               ` Jonathan Gregory
2023-08-20 13:46                                                                 ` Dr. Arne Babenhauserheide
2023-08-21  7:48                                                                 ` Ihor Radchenko
2023-07-13  6:33       ` [BUG] WORG example for ob-lilypond is no longer working as described Dr. Arne Babenhauserheide
2023-07-13  7:03         ` Dr. Arne Babenhauserheide
2023-07-13  8:03         ` Jean Abou Samra
2023-07-16 12:21           ` Graham King
2023-07-16 12:30             ` Ihor Radchenko
2021-05-04 11:32   ` Moving some lisp/ob-*.el files to org-contrib - your advice? Bastien
2021-05-03 22:19 ` Tim Cross
2021-05-03 23:15   ` Bastien
2021-05-04 10:19 ` Dr. Arne Babenhauserheide
2021-05-04 11:10   ` Bastien
2021-09-26  8:17   ` Bastien
2021-05-06  9:19 ` Jean Louis
2021-05-06  9:39   ` Bastien
2021-05-14 18:23 ` Greg Minshall
2021-05-17 16:39   ` Greg Minshall
2021-09-26 12:50 ` Bastien Guerry
2021-10-02 17:11 ` Bastien Guerry

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=878rbchyt9.fsf@autistici.org \
    --to=jgrg@autistici.org \
    --cc=arne_bab@web.de \
    --cc=emacs-orgmode@gnu.org \
    --cc=victor@svictor.net \
    --cc=yantar92@posteo.net \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).