Re: File header/title box ??

[Tim Cross]

William Case <billlinux@rogers.com> writes:

> Hi;
>
> Does anyone know where I can find a File header/title box tool that I
> can use for C, Lisp and/or shell scripts written in GNUemacs?  I have
> visited the wiki and there is one called header2.el which seems far more
> complex than I need.
>
> Ideally, it would be something that just includes some kind of outline
> box (dependent on the modes comments style) with space for name of file,
> brief description of programs purpose, author, date and time of last
> modification.  That is all I need.
>
> I was about to write a macro to do the above, then thought someone has
> probably already created something simple I could use.  One style would
> suffice.  I could edit for different modes.
>

I use a 'tempo' template to do this (see below). I've also customized the
timestamp stuff so that now when I save the file in emacs, the last
modified timestamp is also updated. 

(require 'tempo)


(tempo-define-template "generic-header"
                       '((format "%s" comment-start)
                         "      Filename: " (buffer-file-name) 'n
                         (format "%s" comment-start) " Creation Date: "
                         (format-time-string "%A, %d %B %Y %I:%M %p %Z") 'n
                         (format "%s" comment-start) " Last Modified: " 'n
                         (format "%s" comment-start)
                         "           Job: " (p "Job: ") 'n
                         (format "%s" comment-start)
                         "        Author: Tim Cross <tcross@xxxxx>" 'n
                         (format "%s" comment-start) "   Description:" 'n
                         (format "%s" comment-start) 'n
                         'n))

;;; Lets setup some key bindings.

(global-set-key [(f5)] 'tempo-template-generic-header)

and I use this to get the timestamp stuff to be updated when I modify the
file and save it -

(add-hook 'write-file-hooks 'time-stamp)
(setq time-stamp-active t)
(setq time-stamp-format "%:a, %02d %:b %:y %02I:%02M %#P %Z")
(setq time-stamp-start "\\(Time-stamp:[         ]+\\\\?[\"<]+\\|Last Modified:[ 
        ]\\)")
(setq time-stamp-end "\\\\?[\">]\\|$")
(setq time-stamp-line-limit 10)





-- 
Tim Cross
tcross@rapttech.com.au

There are two types of people in IT - those who do not manage what they 
understand and those who do not understand what they manage.