Find file
Fetching contributors…
Cannot retrieve contributors at this time
53 lines (38 sloc) 822 Bytes
;; vdiary.el --- Von's Diary mode
;; $Id$
;; This file may be freely distributed, modified and used.
(require 'font-lock)
(require 'outline)
(defun vdiary-new-entry()
"Insert date string at current point."
(goto-char (point-max))
(insert (concat
"* "
": "
(defvar vdiary-mode-map nil)
(if vdiary-mode-map
(setq vdiary-mode-map outline-mode-map)
(define-key vdiary-mode-map "\^ce" 'vdiary-new-entry)
(defun vdiary-mode ()
"Major mode for a diary file.
(use-local-map vdiary-mode-map)
(goto-char (point-max))
;; Turn on auto-fill
(auto-fill-mode 1)
(run-hooks 'vdiary-mode-hook)
(provide 'vdiary-mode)