bin/txt2web.ros

#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#

(defpackage :ros.script.txt2web.3802182867
  (:use :cl))
(in-package :ros.script.txt2web.3802182867)

(defparameter *green* (format nil "~c[32m" #\Esc))
(defparameter *yellow* (format nil "~c[33m" #\Esc))
(defparameter *reset* (format nil "~c[0m" #\Esc))

(ros:ensure-asdf)
(push (uiop/pathname:pathname-parent-directory-pathname
        (uiop:getcwd))
      ql:*local-project-directories*)

(format t "** ~ALoading ~Atxt2web ~Asystem~A...~%" *green* *yellow* *green* *reset*)
(ql:quickload :txt2web :silent t)

(defun main (&rest argv)
  (uiop:symbol-call :txt2web :entry-point argv))
;;; vim: set ft=lisp lisp: