edd.hdr - enscript - GNU Enscript
 (HTM) git clone git://thinkerwim.org/enscript.git
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
 (DIR) LICENSE
       ---
       edd.hdr (1947B)
       ---
            1 %
            2 % `emacs.hdr' with file modification time and current time
            3 % Copyright (c) 1995, 1996, 1997 Markku Rossi.
            4 % Author: Markku Rossi <mtr@iki.fi>
            5 %
            6 
            7 % This file is part of GNU Enscript.
            8 %
            9 % Enscript is free software: you can redistribute it and/or modify
           10 % it under the terms of the GNU General Public License as published by
           11 % the Free Software Foundation, either version 3 of the License, or
           12 % (at your option) any later version.
           13 %
           14 % Enscript is distributed in the hope that it will be useful,
           15 % but WITHOUT ANY WARRANTY; without even the implied warranty of
           16 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
           17 % GNU General Public License for more details.
           18 %
           19 % You should have received a copy of the GNU General Public License
           20 % along with Enscript.  If not, see <http://www.gnu.org/licenses/>.
           21 %
           22 
           23 % -- code follows this line --
           24 %%DocumentNeededResources: font Helvetica
           25 %Format: fmodstr        $D{%a %b %d %H:%M:%S %Y}
           26 %Format: datestr        %D{%a %b %d %H:%M:%S %Y}
           27 %Format: pagenumstr        $V$%/$=
           28 
           29 % Fonts.
           30 /Helvetica /HeaderFont-Bold MF
           31 /HeaderF /HeaderFont-Bold findfont 13 scalefont def
           32 
           33 /Helvetica /HeaderFont-Large MF
           34 /HeaderLF /HeaderFont-Large findfont 13 1.3 mul scalefont def
           35 
           36 /do_header {        % print emacs header
           37   gsave
           38     d_header_x d_header_y translate
           39     0 setgray
           40     .5 setlinewidth
           41 
           42     % black shadow
           43     1 0 d_header_w 1 sub d_header_h 1 sub Box fill
           44 
           45     % gray box with black frames
           46     0 1 d_header_w 1 sub d_header_h 1 sub Box
           47     gsave
           48       .9 setgray fill
           49     grestore
           50     stroke
           51 
           52     % texts
           53 
           54     /xmarg 5 def
           55 
           56     % Top line.
           57     HeaderLF setfont
           58     /y d_header_h 12 div d_header_h 2 div add def
           59     xmarg y moveto fname show
           60 
           61     pagenumstr dup stringwidth pop
           62     d_header_w exch sub 1 sub xmarg sub y moveto show
           63 
           64     % Bottom line
           65     HeaderF setfont
           66     /y d_header_h 6 div def
           67     xmarg y moveto fmodstr show
           68 
           69     datestr dup stringwidth pop
           70     d_header_w exch sub 1 sub xmarg sub y moveto show
           71 
           72   grestore
           73 } def