b892847fa264

Merge.
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Sat, 13 Apr 2019 10:05:46 -0400
parents 07fcefed6b88 (current diff) 9dcc4278dc41 (diff)
children ad00851f9411
branches/tags (none)
files

Changes

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/enscript/clisp.st	Sat Apr 13 10:05:46 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:05:46 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