--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/enscript/clisp.st Sat Apr 13 10:04:13 2019 -0400
@@ -0,0 +1,31 @@
+/**
+ * Name: clisp
+ * Description: Common Lisp.
+ */
+
+state clisp extends HighlightEntry
+{
+ /* Comments. */
+ /(;.*)(\n)/ {
+ comment_face (true);
+ language_print ($1);
+ comment_face (false);
+ language_print ($2);
+ }
+
+ /* String constants. */
+ /\"/ {
+ string_face (true);
+ language_print ($0);
+ call (c_string);
+ string_face (false);
+ }
+
+}
+
+
+/*
+Local variables:
+mode: c
+End:
+*/
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/enscript/sjl.hdr Sat Apr 13 10:04:13 2019 -0400
@@ -0,0 +1,49 @@
+%
+% Default simple header.
+% Copyright (c) 1995 Markku Rossi.
+% Author: Markku Rossi <mtr@iki.fi>
+%
+
+%
+% This file is part of GNU Enscript.
+%
+% Enscript is free software: you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation, either version 3 of the License, or
+% (at your option) any later version.
+%
+% Enscript is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with Enscript. If not, see <http://www.gnu.org/licenses/>.
+%
+
+% -- code follows this line --
+%Format: fmodstr $D{%a %b %d %H:%M:%S %Y}
+%Format: pagenumstr $V$%
+%HeaderHeight: 36
+
+/do_header { % print default simple header
+ gsave
+ d_header_x d_header_y HFpt_h 3 div add translate
+
+ HF setfont
+ user_header_p {
+ 5 0 moveto user_header_left_str show
+
+ d_header_w user_header_center_str stringwidth pop sub 2 div
+ 0 moveto user_header_center_str show
+
+ d_header_w user_header_right_str stringwidth pop sub 5 sub
+ 0 moveto user_header_right_str show
+ } {
+ 5 0 moveto fname show
+ 45 0 rmoveto fmodstr show
+ 45 0 rmoveto pagenumstr show
+ } ifelse
+
+ grestore
+} def