txt2web.ros
25 lines
| 675 B
| text/plain
|
TextLexer
/ bin / txt2web.ros
r57 | #!/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: | ||||