From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail
From: =?UTF-8?Q?Aleix_Conchillo_Flaqu=C3=A9?= <aconchillo@gmail.com>
Newsgroups: gmane.lisp.guile.user,gmane.lisp.guile.devel
Subject: avoid character encoding/escaping in sxml->xml or htmlprag's
 sxml->html
Date: Sat, 20 Aug 2022 12:59:39 -0700
Message-ID: <CA+XASoUW2m9WfYgxJs8CazX=d_nBtUDU456fVsJLPBLrvnB3jg@mail.gmail.com>
Mime-Version: 1.0
Content-Type: text/plain; charset="UTF-8"
Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214";
	logging-data="10531"; mail-complaints-to="usenet@ciao.gmane.io"
To: guile-user <guile-user@gnu.org>, guile-devel <guile-devel@gnu.org>
Original-X-From: guile-user-bounces+guile-user=m.gmane-mx.org@gnu.org Sat Aug 20 22:00:18 2022
Return-path: <guile-user-bounces+guile-user=m.gmane-mx.org@gnu.org>
Envelope-to: guile-user@m.gmane-mx.org
Original-Received: from lists.gnu.org ([209.51.188.17])
	by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
	(Exim 4.92)
	(envelope-from <guile-user-bounces+guile-user=m.gmane-mx.org@gnu.org>)
	id 1oPUdk-0002V3-TQ
	for guile-user@m.gmane-mx.org; Sat, 20 Aug 2022 22:00:16 +0200
Original-Received: from localhost ([::1]:58186 helo=lists1p.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.90_1)
	(envelope-from <guile-user-bounces+guile-user=m.gmane-mx.org@gnu.org>)
	id 1oPUdj-0004qj-Up
	for guile-user@m.gmane-mx.org; Sat, 20 Aug 2022 16:00:15 -0400
Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:40498)
 by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <aconchillo@gmail.com>)
 id 1oPUdO-0004qT-U2; Sat, 20 Aug 2022 15:59:54 -0400
Original-Received: from mail-vk1-xa31.google.com ([2607:f8b0:4864:20::a31]:38695)
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128)
 (Exim 4.90_1) (envelope-from <aconchillo@gmail.com>)
 id 1oPUdN-0005Zz-9d; Sat, 20 Aug 2022 15:59:54 -0400
Original-Received: by mail-vk1-xa31.google.com with SMTP id n28so296401vkm.5;
 Sat, 20 Aug 2022 12:59:52 -0700 (PDT)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112;
 h=to:subject:message-id:date:from:mime-version:from:to:cc;
 bh=fjnfkwG9p0pS6t/YovZ5uDh4or/myK+vXVbZ3ZLcuNE=;
 b=i+Cyvb14K6CPMFA8ifVIxRrRCQinRGgmtyvJfA1EA6EiwT1AXoo2gP5bzF24ezDwpX
 beF7ngvRMGiHqWL2zgvZUxsHvraBu6YM3mi/kqYFaZFukDPwkpQr8AAwlYlBg3Ul7hVd
 zd+/2qZxVyVYmtqNUkJ7lgn+/iqJYZW+F3pvfqlMECcvo6XM2qZf/Fi8Cs1vHnmMKIIn
 dn3fXXDo8P/miPuiuETWWX5sPme9gNYgfmfbzKGpshzeBrGojR509ssIIyyySTKannEL
 QFWhwDBzQqmxQOnA2HzjWWe7Cn4i2CLNgegRxTcXoUt5Qgmmigcdx4NG2YuXfowtnpBA
 GH0w==
X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
 d=1e100.net; s=20210112;
 h=to:subject:message-id:date:from:mime-version:x-gm-message-state
 :from:to:cc;
 bh=fjnfkwG9p0pS6t/YovZ5uDh4or/myK+vXVbZ3ZLcuNE=;
 b=NWOAB9/0HqjoCcO7PXuatn/n15SFzJkC1nspHLLxKpD5HaMTrFLre0bv1AbbAli5eb
 6e6W0G3QtpzFOzKeo3ItKUc8VMpN9ndz65reY938XPQDaxvtzNQNk2alJ0nlB3oLFPef
 9JQIcK4op6ozpoqWaQEcp7m5UD5ekdNvzQisCvnmj/wZYcJCNmhsv3gMzjCpsIFmyTSN
 PZYmkfGz9YKLr73ypbMxkg96NlMWWGOD1aN8oyotQNVf/5IXkjrzOhq4BKm3DaiKisVj
 iKZ2azHlHkqKfBCezzTcuGGQ38VpkDTxmuyqeeeVWoM/mm3PZEr3YdqDlqKpz0FjgKp7
 3OYQ==
X-Gm-Message-State: ACgBeo0iaka8Q9QiRzgV4H+AHu+xB1yzB8vA0xY0svpSGKPoT4QaoBTI
 n5o4jiotvNO5qranr842GkGTGGq8/WgSM36WUaFf7K0S3rE=
X-Google-Smtp-Source: AA6agR7wT7QFZOnGyyPq99OKm26+bk4WgKxpSNap/qSapTukGc3tFBpZj6Taa5l0D9dt/8kuRFwbe8PvEFK+d5XhIX0=
X-Received: by 2002:a1f:a289:0:b0:38c:5df3:40ea with SMTP id
 l131-20020a1fa289000000b0038c5df340eamr334003vke.10.1661025591350; Sat, 20
 Aug 2022 12:59:51 -0700 (PDT)
Received-SPF: pass client-ip=2607:f8b0:4864:20::a31;
 envelope-from=aconchillo@gmail.com; helo=mail-vk1-xa31.google.com
X-Spam_score_int: -20
X-Spam_score: -2.1
X-Spam_bar: --
X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1,
 DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001,
 HTML_MESSAGE=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001,
 SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no
X-Spam_action: no action
X-Content-Filtered-By: Mailman/MimeDel 2.1.29
X-BeenThere: guile-user@gnu.org
X-Mailman-Version: 2.1.29
Precedence: list
List-Id: General Guile related discussions <guile-user.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/guile-user>,
 <mailto:guile-user-request@gnu.org?subject=unsubscribe>
List-Archive: <https://lists.gnu.org/archive/html/guile-user>
List-Post: <mailto:guile-user@gnu.org>
List-Help: <mailto:guile-user-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/guile-user>,
 <mailto:guile-user-request@gnu.org?subject=subscribe>
Errors-To: guile-user-bounces+guile-user=m.gmane-mx.org@gnu.org
Original-Sender: "guile-user" <guile-user-bounces+guile-user=m.gmane-mx.org@gnu.org>
Xref: news.gmane.io gmane.lisp.guile.user:18533 gmane.lisp.guile.devel:21320
Archived-At: <http://permalink.gmane.org/gmane.lisp.guile.user/18533>

Hi there,

I have a GuileScript example that it's basically a web server written in
Guile that returns a basic HTML and also a <script> with some code
generated with GuileScript. Something like this:

------------------------------------------------
(use-modules ((language guilescript compile) #:prefix gs:) ....)

(define js-fibonacci
  '(begin
     (define (fib n)
       (if (<= n 1)
           1
           (+ (fib (- n 2)) (fib (- n 1)))))

     (define (computeFibonacci)
       (let ((elem (js-invoke document 'getElementById "number"))
             (n (js-ref elem 'value)))
         (alert (+ "Fibonacci of " n " is " (fib n)))))

     (alert "Let's compute some fibonacci numbers!")))

(define js-script
  (receive (js _)
      (gs:compile js-fibonacci)
    js))

;;
;; This is the web page.
;;
(define (main-form request body)
  `(html
    (head (title "Fibonacci GuileScript Server")
          (script ,js-script))
    (body
     (input (@ (id "number") (type "text") (size "50") (value "")))
     (button (@ (type "button") (onclick "computeFibonacci()")) "Compute
Fibonacci"))))
------------------------------------------------

However, I'm not able to find a way to avoid character encoding/escaping
and the generated code inside <script> will always have "&lt;", etc. And
<script> is a place where encodings can be avoided. This is true for both
Guile and guile-lib's (htmlprag), even though htmlprag's escapes less
characters (e.g. double quotes).

One way I found to solve this was to have <script src="fib.js"> and then
have a handler for fib.js that would just return the transpiled string. But
it's not as nice, it's extra work and it's also an additional roundtrip to
the server.

Has anyone ran into this issue? Would is make sense to add a keyword
argument to (sxml->xml)? For example, (sxml->xml SXML PORT #:escape #f).

Best,

Aleix