(custom-set-variables
;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
;; Your init file should contain only one such instance.
'(canlock-password "8516d6bf23385b0834882d82845c0a17bb8c90c0")
'(case-fold-search t)
'(current-language-environment "UTF-8")
'(default-input-method "rfc1345")
'(global-font-lock-mode t nil (font-lock))
'(transient-mark-mode t))
(custom-set-faces
;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
;; Your init file should contain only one such instance.
)
;; set CVS environment variables
(setq cvs-cvsroot ":ext:user@example.com:/srv/scm/cvs")
(setenv "CVS_RSH" "/usr/bin/ssh")
;; set encoding for xml and xhtml files to utf-8
(setq file-coding-system-alist
(append '(("\\.xml$" . utf-8)
("\\.x?html$" . utf-8)
("\\.ldif$" . utf-8))
file-coding-system-alist))
;; functions to convert from DOS endline to UNIX endline
(defun dos2unix ()
(interactive)
(goto-char (point-min))
(while (search-forward "\r" nil t) (replace-match "")))
(defun unix2dos ()
(interactive)
(goto-char (point-min))
(while (search-forward "\n" nil t) (replace-match "\r\n")))
;; I want auto-fill in text-mode
(add-hook 'text-mode-hook
(lambda()
(turn-on-auto-fill)))
;; date function
(defun insert-date()
"Insert date at point."
(interactive)
(insert (format-time-string "%a %b %e, %Y, %l:%M %p")))
;; remove auto-fill in xml and java mode
(add-hook 'xml-mode-hook
(lambda ()
(turn-off-auto-fill)))
(add-hook 'java-mode-hook
(lambda()
(turn-off-auto-fill)))
;; SGML section
;; create faces to assign markup categories
(make-face 'sgml-doctype-face)
(make-face 'sgml-pi-face)
(make-face 'sgml-comment-face)
(make-face 'sgml-sgml-face)
(make-face 'sgml-start-tag-face)
(make-face 'sgml-end-tag-face)
(make-face 'sgml-entity-face)
; assign attributes to faces
(set-face-foreground 'sgml-doctype-face "saddle brown")
(set-face-foreground 'sgml-sgml-face "cyan1")
(set-face-foreground 'sgml-pi-face "magenta")
(set-face-foreground 'sgml-comment-face "red")
(set-face-foreground 'sgml-start-tag-face "forest green")
(set-face-foreground 'sgml-end-tag-face "forest green")
(set-face-foreground 'sgml-entity-face "Blue")
; assign faces to markup categories
(setq sgml-markup-faces
'((doctype . sgml-doctype-face)
(pi . sgml-pi-face)
(comment . sgml-comment-face)
(sgml . sgml-sgml-face)
(start-tag . sgml-start-tag-face)
(end-tag . sgml-end-tag-face)
(entity . sgml-entity-face)))
(setq sgml-custom-dtd '
(
( "HTML 4.01 Strict"
"\n" )
( "HTML 4.01 Transitional"
"\n" )
( "HTML 4.01 Frameset"
"\n" )
( "XHTML 1.0 Strict"
"\n\n" )
( "XHTML 1.0 Transitional"
"\n\n" )
( "XHTML 1.0 Frameset"
"\n\n" )
( "XHTML 1.1"
"\n\n" )
)
)
;; autodetect xml
(defun sgml-autodetect-xml ()
"Check for initial declaration and set flags accordingly.
Used to determine whether the HTML is SGML or XML (XHTML).
Code inspired by tdtd.el"
(interactive)
(save-excursion
(goto-char (point-min))
(skip-chars-forward "\\s-")
(cond
((looking-at "<\\?xml")
(xml-mode))
(t
(sgml-mode))
))
)
;; PSGML -enable face settings
(setq sgml-set-face t)
(setq sgml-auto-activate-dtd t)
(setq sgml-indent-data t)
;; automatic timestamp, taking from html-helper.el
(defvar sgml-timestamp-start ""
"*Begin delimiter for timestamps.")
(defvar sgml-timestamp-end ""
"*End delimiter for timestamps.")
(defvar sgml-timestamp-hook 'sgml-insert-timestamp
"*Hook called for timestamp insertion.")
(defun sgml-update-timestamp ()
"Basic function for updating timestamps.
It finds the timestamp in the buffer by looking for
'sgml-timestamp-start', deletes all text up to
'sgml-timestamp-end', and runs 'sgml-insert-timestamp'."
(save-excursion
(goto-char (point-max))
(if (not (search-backward sgml-timestamp-start nil t))
(message "timestamp delimiter start was not found")
(let ((ts-start (+ (point) (length sgml-timestamp-start)))
(ts-end (if (search-forward sgml-timestamp-end nil t)
(- (point) (length sgml-timestamp-end))
nil)))
(if (not ts-end)
(message "timestamp delimiter end was not found. Type C-c C-t to insert one.")
(delete-region ts-start ts-end)
(goto-char ts-start)
(insert "\n")
(run-hooks 'sgml-timestamp-hook)
(insert "\n")))))
nil)
(defun sgml-insert-timestamp ()
"Default timestamp insertion function"
(let ((time (current-time-string)))
(insert "Last modified: "
(substring time 0 20)
(nth 1 (current-time-zone))
" "
(substring time -4)
" ")))
(defun sgml-insert-timestamp-delimiter ()
"Simple function that inserts delimiters at point."
(interactive)
(insert sgml-timestamp-start)
(insert "\n")
(insert sgml-timestamp-end))
(defun xhtml-mode ()
(interactive)
(sgml-autodetect-xml)
(make-local-variable 'sgml-default-doctype-name)
(setq sgml-default-doctype-name "html")
(add-hook 'local-write-file-hooks 'sgml-update-timestamp)
(turn-off-auto-fill)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Useful skeletons
(setq html-web-address "user@example.com")
; HTML skeleton
(define-skeleton html-skeleton
"HTML skeleton for xhtml 1.0"
nil
"\n"
"" \n
"" \n
"" \n
"" \n
"" \n
"" \n
"" _ "" \n
-2 "" \n
"" \n \n
"" \n
-2 "" \n
-2 "\n")
; XHTML skeleton
; XHTML skeleton is slightly different from HTML because of the
; content type
(define-skeleton xhtml-skeleton
"HTML skeleton for xhtml 1.1"
nil
"\n"
"" \n
"" \n
"" \n
"" \n
"" \n
"" \n
"" _ "" \n
-2 "" \n
"" \n \n
"
" \n
"Webmaster" \n
"" \n
"\n"
sgml-timestamp-start "\n"
sgml-timestamp-end \n
-2 "
" \n
"" \n
"This page was created using
Emacs" \n
-2 "