2023-10-01 14:53:35 +02:00
|
|
|
;;;; -*- mode: lisp; coding: utf-8; tab-width: 4; fill-column: 100; indent-tabs-mode: nil; -*-
|
2024-01-24 13:05:23 +01:00
|
|
|
;;;; main - Provide general functions.
|
|
|
|
|
|
2023-11-25 09:59:03 +01:00
|
|
|
(defpackage dev.metalisp.sbt
|
2023-07-01 16:30:10 +02:00
|
|
|
(:use :cl)
|
2023-07-14 16:20:55 +02:00
|
|
|
(:export
|
2023-10-01 14:03:08 +02:00
|
|
|
:*cdn-css*
|
|
|
|
|
:*cdn-js*
|
2023-08-25 15:10:01 +02:00
|
|
|
:write-html-to-file
|
2023-09-08 13:33:48 +02:00
|
|
|
:with-page
|
2023-09-22 18:11:52 +02:00
|
|
|
:*l10n*
|
2023-09-08 13:33:48 +02:00
|
|
|
:find-l10n))
|
2023-07-01 16:30:10 +02:00
|
|
|
|
2023-11-25 09:59:03 +01:00
|
|
|
(in-package :dev.metalisp.sbt)
|
2023-07-03 14:43:58 +02:00
|
|
|
|
2023-07-22 13:58:46 +02:00
|
|
|
(setq spinneret:*fill-column* 120)
|
2023-07-16 13:57:42 +02:00
|
|
|
|
2023-08-25 15:10:01 +02:00
|
|
|
(defun write-html-to-file (filename string &key (lang "en") (style :tree) (fc 120))
|
|
|
|
|
(let ((spinneret:*html-lang* lang)
|
|
|
|
|
(spinneret:*html-style* style)
|
|
|
|
|
(spinneret:*fill-column* fc))
|
|
|
|
|
(with-open-file (stream filename :direction :output :if-exists :supersede)
|
|
|
|
|
(write-string string stream))))
|
