/home/wwwwolf/.emacs
; -*- emacs-lisp -*-
; =====================================================================
; WWWWolf's XEmacs startup file
; =====================================================================
; $Id: .emacs,v 1.1 2000/10/12 14:37:09 wwwwolf Exp $
; Load my own hacks ---------------------------------------------------
; Set some variables for the hacks themselves
(setq rgrnca-index-template
"/home/wwwwolf/public_html/games/nethack/index-TEMPLATE.html")
(setq daymetanoder-script
"/home/wwwwolf/bin/daymetanoder")
; Load the small hacks
(load (concat (getenv "HOME") "/src/prog/elisp/rgrnca-funx"))
(load (concat (getenv "HOME") "/src/prog/e2/daymetanoder-launch"))
; Load Mortar
(load (concat (getenv "HOME") "/src/projects/usenet/mortar/mortar"))
(setq mortar-nocem-issuer "Weyfour WWWWolf <wwwwolf@iki.fi>")
(setq mortar-nocem-type "killfile")
(setq mortar-nocem-action "hide")
(setq mortar-nocem-newsgroup "rec.games.roguelike.nethack")
(setq mortar-nocem-noticeidpre "wwwwolf-")
(setq mortar-notice-message "/home/wwwwolf/rgrnca/nocemheader.txt")
; Load libraries ------------------------------------------------------
; Mailcrypt
(load-library "mailcrypt")
(mc-setversion "5.0")
; No comments.
(setq mc-pgp-comment "")
(setq mc-pgp50-comment "")
(setq mc-gpg-comment "")
; BeOpen OO-browser
(load "br-start")
(global-set-key "\C-c\C-o" 'oo-browser)
; Version Control would be cool if it'd be loaded by default...
(load-library "vc")
; Random settings -----------------------------------------------------
; Backspace hack.
(setq delete-key-deletes-forward t)
(global-set-key (kbd "<backspace>") #'backward-delete-char-untabify)
; I HATE THOSE BACKUP FILES THAT CLUTTER MY PRECIOUS DISKSPACE! And you?
(setq make-backup-files nil)
; We want 8-bit cleanliness and as such be able to punch in some ä's and ö's...
; Like: Äläkärääkkääsitäräkättiänoenhänminärääkkääkään...
(standard-display-european 1)
(set-input-mode (car (current-input-mode))
(nth 1 (current-input-mode))
'accept-8bit-input)
;(require 'iso-syntax)
; We do text files by default.
(setq default-major-mode 'text-mode)
(add-hook 'text-mode-hook 'turn-on-auto-fill)
(setq next-line-add-newlines nil)
(setq require-final-newline t)
; Use syntax coloring on all languages I need to edit...
(add-hook 'c-mode-hook 'turn-on-font-lock)
(add-hook 'c++-mode-hook 'turn-on-font-lock)
(add-hook 'java-mode-hook 'turn-on-font-lock)
(add-hook 'cperl-mode-hook 'turn-on-font-lock)
(add-hook 'lisp-mode-hook 'turn-on-font-lock)
(add-hook 'emacs-lisp-mode-hook 'turn-on-font-lock)
(add-hook 'scheme-mode-hook 'turn-on-font-lock)
(add-hook 'html-mode-hook 'turn-on-font-lock)
(add-hook 'tex-mode-hook 'turn-on-font-lock)
; It doesn't find all info files by default, so we're glad to
; tell where those actually are.
(setq Info-directory-list
'("/usr/info" "/usr/share/info"
"/usr/local/info" "/usr/local/allegro/info"
"/usr/share/xemacs21/packages/info"))
; When I was a newbie (and tumbled a lot of invalid keys), I started to
; hate those darn *BEEEEEEP*s. So, visible bell was enabled.
(setq visible-bell t)
; Some highlightings, then...
(setq search-highlight t)
(setq query-replace-highlight t)
; Clock must be in 24-hour format.
(display-time)
(setq display-time-24hr-format t)
; We want line numbers and column numbers to be visible.
(line-number-mode 1)
(column-number-mode 1)
(setq scroll-step 1)
; I don't use vm anymore, but it is cool to use have these
; here Just In Case...
(setq user-mail-address "wwwwolf@iki.fi")
(setq vm-reply-subject-prefix "Re: ")
(setq vm-included-text-prefix ">")
; XEmacs customized variables -----------------------------------------
; (These are NOT edited by hand!)
(custom-set-variables
'(w3-netscape-compatible-comments (quote t))
'(w3-configuration-directory "~/.config/emacs/w3/")
'(w3-image-mappings (quote (("image/x-xbitmap" . xbm) ("image/xbitmap" . xbm) ("image/xbm" . xbm) ("image/jpeg" . jpeg) ("image/gif" . gif) ("image/png" . png) ("image/x-fax" . g3fax) ("image/x-raster" . rast) ("image/windowdump" . xwd) ("image/x-icon" . icon) ("image/portable-graymap" . pgm) ("image/portable-pixmap" . ppm) ("image/x-pixmap" . xpm) ("image/x-xpixmap" . xpm) ("image/pict" . pict) ("image/x-rgb" . sgi) ("image/x-sgi" . sgi) ("image/x-macpaint" . macpt) ("image/x-targa" . tga) ("image/tiff" . tiff))))
'(w3-honor-stylesheets (quote t))
'(w3-mode-hook (quote nil))
'(w3-preferences-ok-hook (quote nil) t)
'(w3-default-homepage (quote "http://localhost/"))
'(gnuserv-program (concat exec-directory "/gnuserv"))
'(w3-load-hook (quote nil))
'(w3-preferences-setup-hook (quote nil) t)
'(w3-toolbar-orientation (quote default) t)
'(w3-preferences-default-hook (quote nil) t)
'(html-helper-htmldtd-version "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">
")
'(url-privacy-level (quote (email)))
'(w3-user-colors-take-precedence (quote nil))
'(w3-default-stylesheet "/home/urpo/.config/emacs/w3/w3-def.css")
'(nnmail-spool-file "/var/spool/mail/$user")
'(url-honor-refresh-requests (quote t))
'(url-cookie-confirmation (quote nil))
'(w3-use-menus (quote (file edit view go bookmark options buffers style emacs nil help)))
'(w3-source-file-hook (quote nil))
'(w3-toolbar-type (quote both) t)
'(w3-preferences-cancel-hook (quote nil) t)
'(html-helper-new-buffer-template (quote (html-helper-htmldtd-version "<html lang=\"en\">
" " <head>
" " <link rev=made href=\"mailto:wwwwolf@iki.fi\">
" " <meta name=\"description\" content=\"\">
" " <meta name=\"keywords\" content=\"\">
" " <title>" (p "Document Title: " title) "</title>
" " <style type=\"text/css\"><!--
" " BODY { background: white; color: black; }
" " -->
" " </style>
" " </head>
" " <body>
" " <h1>" (s title) "</h1>
" p "
<hr><!-- ================================================= -->
" " <p style=\"text-align: right;\">
" " <a href=\"./\">[Index]</a> <a href=\"../\">[Up]</a>
" " <a href=\"http://www.iki.fi/wwwwolf/\">[Main]</a>
" " <a href=\"mailto:wwwwolf@iki.fi\">[Weyfour WWWWolf]</a></p>
" " <p lang=\"en\" style=\"text-align: right;\">
" "<!-- Made with XEmacs -->
" (html-helper-return-created-string) html-helper-timestamp-start html-helper-timestamp-end "
</body>
" "</html>
")))
'(w3-delay-image-loads (quote nil)))
(custom-set-faces)
Generated by GNU enscript
1.6.2.