fundamental-mode

(sign "-- DZ " (format-time-string "%Y-%m-%d"))

prog-mode

(vip-title (if (derived-mode-p 'emacs-lisp-mode) ";; " comment-start) " " (make-string (length str) ?=) " " n
	   (if (derived-mode-p 'emacs-lisp-mode) ";; " comment-start) " " (s str) " " n
	   (if (derived-mode-p 'emacs-lisp-mode) ";; " comment-start) " " (make-string (length str) ?=) " " n)

(fixme (if (derived-mode-p 'emacs-lisp-mode) ";; " comment-start) "FIXME ")
(todo (if (derived-mode-p 'emacs-lisp-mode) ";; " comment-start) "TODO ")
(bug (if (derived-mode-p 'emacs-lisp-mode) ";; " comment-start) "BUG ")
(hack (if (derived-mode-p 'emacs-lisp-mode) ";; " comment-start) "HACK ")

;; Local Variables:
;; mode: lisp-data
;; outline-regexp: "[a-z]"
;; End: