;; .emacs 
;; Alexandre Dulaunoy (adulau@foo.be) emacs startup file
;; History :

  ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 '(add-hook (quote news-reply-mode-hook) t)
 '(canlock-password "94f948cbae82689db601f9a33006856be84322f9")
 '(case-fold-search t)
 '(setq smtpmail-smtp-server t))

  (iso-accents-mode t)
					;(require 'iso-insert)
					;(standard-display-european 1)
					;(set-input-mode nil nil 1) 

;;; Cut-and-paste with the correct extensions
(setq selection-coding-system 'compound-text-with-extensions)
;; Europe
;(iso-accents-mode t)
;(standard-display-european 1)

;;; mailcrypt / GnuPG
(load-library "mailcrypt")
(mc-setversion "gpg")
(autoload 'mc-install-write-mode "mailcrypt" nil t)
(autoload 'mc-install-read-mode "mailcrypt" nil t)
;;(setq mc-gpg-user-id adulau)
(setq mc-gpg-user-id "adulau")
(setq mc-encrypt-for-me t)
(setq mc-gpg-comment "http://pgp.ael.be:11371/pks/lookup?op=get&search=0x44E6CBCD")
(setq mc-pgp-keyserver-address "pgp.ael.be")
(setq mc-pgp-keyserver-port 11371)
(setq mc-pgp-keyserver-url-template

;;(setq mc-pgp-keyserver-address "pgp.ael.be")
;;(setq mc-pgp-keyserver-port 11371)

  ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.

(load "emacs-wiki")

(setq emacs-wiki-publishing-footer "<lisp>(my-publishing-footer)</lisp>")

(defun my-publishing-footer ()
    (if (file-readable-p "footer.wiki")
        (ignore (insert-file-contents "footer.wiki"))
      "Copyrights (C) 2002,2003 Alexandre Dulaunoy - released under the GNU Free Documentation license without any options\n"))

;;; temp update 

;(require 'mule)
;(require 'un-define)

;(set-language-environment "Latin-1")
;;(set-input-method "latin-1-postfix") ;; or "latin-1-postfix"

;(set-language-environment "Latin-9")
;(set-default-coding-systems 'iso-8859-15)
;;(prefer-coding-system 'utf-8)

;; Add my nasty signature when composing in draft mode

(add-hook 'mew-draft-mode-hook
           (lambda ()
             (let ((p (point)))
               (goto-char (point-max))
               (insert-file ".signature")
               (goto-char p)))))

(setq mew-header-alist
      '(("X-fingerprint:" . "3B12 DCC2 82FA 2931 2F5B  709A 09E2 CD49 44E6 CBCD")
        ("X-URL:" . "http://www.foo.be/")
	("X-DMCA-EUCD:" . "False")))


(autoload 'add-signature "c-sig" "c-sig" t)
(autoload 'delete-signature "c-sig" "c-sig" t)
(autoload 'insert-signature-eref "c-sig" "c-sig" t)         
(autoload 'insert-signature-automatically "c-sig" "c-sig" t) 
(autoload 'insert-signature-randomly "c-sig" "c-sig" t)  

;; Optional setup (Read Mail menu for Emacs 21):
(if (boundp 'read-mail-command)
    (setq read-mail-command 'mew))

(autoload 'mc-install-write-mode "mailcrypt" nil t)
(autoload 'mc-install-read-mode "mailcrypt" nil t)
(add-hook 'mail-mode-hook 'mc-install-write-mode)

(autoload 'w3m "w3m" "Interface for w3m on Emacs." t)
;;(require 'mime-w3m)

;; Optional setup (e.g. C-xm for sending a message):
;;(autoload 'mew-user-agent-compose "mew" nil t)
;;(if (boundp 'mail-user-agent)
;;    (setq mail-user-agent 'mew-user-agent))
;;(if (fboundp 'define-mail-user-agent)
;;    (define-mail-user-agent
;;      'mew-user-agent
;;      'mew-user-agent-compose
;;      'mew-draft-send-message
;;      'mew-draft-kill
;;      'mew-send-hook))

;; Dictionary

(autoload 'dictionary-search "dictionary"
  "Ask for a word and search it in all dictionaries" t)
(autoload 'dictionary-match-words "dictionary"
  "Ask for a word and search all matching words in the dictionaries" t)
(autoload 'dictionary-lookup-definition "dictionary"
  "Unconditionally lookup the word at point." t)
(autoload 'dictionary "dictionary"
  "Create a new dictionary buffer" t)
(autoload 'dictionary-mouse-popup-matching-words "dictionary"
  "Display entries matching the word at the cursor" t)
(autoload 'dictionary-popup-matching-words "dictionary"
  "Display entries matching the word at the point" t)
(autoload 'dictionary-tooltip-mode "dictionary"
  "Display tooltips for the current word" t)
(autoload 'global-dictionary-tooltip-mode "dictionary"
  "Enable/disable dictionary-tooltip-mode for all buffers" t)

;; Custom european stuff

(add-hook 'diary-display-hook 'fancy-diary-display)
(add-hook 'list-diary-entries-hook 'sort-diary-entries)
(setq mark-diary-entries-in-calendar t)
(setq european-calendar-style t)
(setq all-christian-calendar-holidays t)
(setq calendar-date-display-form 
      '((if dayname (concat dayname ", ")) day " " monthname " " year))
(setq calendar-time-display-form
      '(24-hours ":" minutes
		 (if time-zone " (") time-zone (if time-zone ")")))
(setq ps-paper-type 'a4)

;; Time set and display

(setq display-time-day-and-date t
      display-time-24hr-format t)

;; Theme load 

(require 'color-theme)
(global-font-lock-mode 1)

;; set custom nntp value

(setq gnus-nntp-server "news.restena.lu")

;; Antiword plug

(add-to-list 'auto-mode-alist '("\\.doc\\'" . no-word))

(defun no-word ()
  "Run antiword on the entire buffer."
  (shell-command-on-region (point-min) (point-max) "antiword - " t t))

;; Perl 

(fset 'perl-mode 'cperl-mode)

(add-to-list 'auto-mode-alist '("\\.\\([pP][Llm]\\|al\\)\\'" . cperl-mode))
(add-to-list 'interpreter-mode-alist '("perl" . cperl-mode))
(add-to-list 'interpreter-mode-alist '("perl5" . cperl-mode))
(add-to-list 'interpreter-mode-alist '("miniperl" . cperl-mode))
;(add-hook 'cperl-mode-hook 'hide-body)
;(setq outline-minor-mode-prefix "\C-co")

;; Browse RFC via ERC button
;;(require 'erc-button)
(require 'erc)

;;(add-to-list 'erc-button-alist '("\\brfc[: ]\\([0-9]+\\)" 0 t rfc-browse 1))

;;(defun rfc-browse (rfc)
;;      "Browse RFC, where RFC is a string with several digits such as \"1958\"."
;;      (browse-url (format "http://www.faqs.org/rfcs/rfc%s.html" rfc)))

;; for PHP
;(load-library "php-mode-102")
;(add-hook 'php-mode-user-hook 'turn-on-font-lock)

;; for LaTeX 
;; ref: ftp://sunsite.dk/packages/auctex/auctex.tar.gz

(require 'tex-site)

;; for htmlize
;; ref: http://fly.srk.fer.hr/~hniksic/emacs/htmlize.el

(require 'htmlize)

;; for semantic
;; ref: http://sourceforge.net/projects/cedet

;(add-to-list 'load-path "/usr/share/emacs/site-lisp/semantic-1.3.3") ; so Emacs can find semantic
;(require 'semantic-c) ; for C code integration
;(require 'semantic-el) ; for Emacs Lisp code integration
;(require 'semantic-make) ; for Makefile integration
;(require 'semantic-imenu) ; if you use imenu or wich-function
;(add-hook 'speedbar-load-hook (lambda () (require 'semantic-sb)))
			; for speedbar integration
;(autoload 'semantic-bnf-mode "semantic-bnf" "Mode for Bovine Normal Form." t)
;(add-to-list 'auto-mode-alist '("\\.bnf$" . semantic-bnf-mode))
			; for editing .bnf parser files.
;(autoload 'semantic-minor-mode "semantic-mode" "Mode managing semantic parsing." t)
			; for semantic-minor-mode

;; for data compression

(auto-compression-mode 1)

;; for imaxima
;; ref: http://www.ifa.au.dk/~harder/imaxima.html
;;(require 'imaxima)

;; yatex
;;      (setq auto-mode-alist
;;           (cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist))
;;     (autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)

;; rfcr.el
;; (require 'rfcr)

;; for ansi-term & so on
(defun danl-ansi-term ()
  (ansi-term "/bin/bash"))

(add-hook 'term-mode-hook
	   (lambda ()
	     (set-face-foreground 'term-default-bg-inv "white")
	     (set-face-background 'term-default-bg-inv "gray60")
	     (set-face-foreground 'term-bold "orange")
	     (set-face-underline-p 'term-underline nil)
	     (set-face-foreground 'term-underline "lightslategrey")
	     (set-face-bold-p 'term-underline t)
	     (setq term-prompt-regexp "^[^#$%>\n]*[#$%>] *\\|^[<]*[>]")
	     (make-local-variable 'mouse-yank-at-point)
	     (make-local-variable 'transient-mark-mode)

	     (setq transient-mark-mode nil)
	     (auto-fill-mode -1)
	     (setq tab-width 8 ))))
;; 	     (setq mode-line-format '((:eval (getenv "USER")) "@" 
;; 				      (:eval (getenv "HOSTNAME")) 
;; 				      ":" (:eval default-directory) ))
;;	     (define-key term-raw-map [?\M-x] 'execute-extended-command))))

;; Input high ascii in terminal

(set-input-mode (car (current-input-mode))
               (nth 1 (current-input-mode))

;; buffer navigation

;(require 'iswitchb)

;; Auto fill

(add-hook 'text-mode-hook 
          (lambda ()
            (auto-fill-mode t)
            (setq default-justification 'full))

(setq auto-mode-alist
      (append '(("\\.php.*$" . perl-mode)
		("\\.c$"     . c-mode)
		("\\.cc$"    . c++-mode)
                ("\\.pl$"    . cperl-mode)
		("\\.perl$"  . cperl-mode)
                ("\\.pm$"    . perl-mode)
		("\\.sql$"   . sql-mode)
		("\\.asc$"   . text-mode)
                ("\\.txt$"   . text-mode))

(global-set-key "\C-h" 'delete-backward-char)

;; mgp
(autoload 'mgp-mode "mgp-mode-cd" "MGP mode." t)
(add-to-list 'auto-mode-alist '("\\.mgp$" . mgp-mode))

;; mutt & Emacs

(require 'mutt)

(defvar default-mail-user-agent 'mutt
  "Default MUA to use. Can be mutt or vm.")

(defun read-mail-with-mutt ()
  "Run mutt in gnome-terminal."
  (call-process "gnome-terminal" nil 0 nil "-e" "mutt"))

Generated by GNU enscript 1.6.3.