dot/emacs, el/dot-emacs.el: Experimental full-screen toggle.

[profile] / dot / emacs

diff --git a/dot/emacs b/dot/emacs
index 0eddaa1..2128756 100644 (file)
--- a/dot/emacs
+++ b/dot/emacs
@@ -125,7 +125,8 @@
 
 (setq mdw-backup-disable-regexps
       '("/\\.git/COMMIT_EDITMSG$"
-       "/\\.stgit\\(-edit\\.txt\\|msg\\.txt\\|\\.msg\\)$"))
+       "/\\.stgit\\(-edit\\.txt\\|msg\\.txt\\|\\.msg\\)$"
+       "^/tmp/" "^/var/tmp/"))
 
 ;; Safe variables.
 
@@ -312,7 +313,7 @@
 
 (setq browse-url-browser-function (mdw-good-url-browser)
       browse-url-generic-program "mdw-chrome"
-      browse-url-mozilla-program "firefox")
+      browse-url-mozilla-program "mdw-iceweasel")
 
 (setq w3m-default-display-inline-images t
       w3m-use-cookies t)
@@ -443,6 +444,9 @@
       '((pm (font . "-os2-System VIO-medium-r-normal--*-40-*-*-m-*-cp850")
            (menu-font . "8.Helv")
            (background-color . "lightgrey"))
+       (w32 (font . "fixed613 10")
+            (background-color . "black")
+            (foreground-color . "white"))
        (nil (menu-bar-lines . 0))))
 
 ;; Other frame fiddling.
@@ -494,6 +498,9 @@
                  #'(lambda () (interactive)))
   (global-set-key [M-S-mouse-3] 'imenu)
   (global-set-key [XF86WakeUp] "")
+  (global-set-key [?\C-c ?d ?w] 'devhelp-word-at-point)
+  (global-set-key [?\C-c ?d ?a] 'devhelp-assistant-word-at-point)
+  (global-set-key [f11] 'mdw-toggle-full-screen)
   (and (not mdw-fast-startup) (fboundp 'hippie-expand)
        (global-set-key [?\M-/] 'hippie-expand)))
 
@@ -530,7 +537,7 @@
 ;; Recognising types of files.
 
 (setq auto-mode-alist
-      (append `(("\\.p[lm]$" . perl-mode)
+      (append `(("\\.p[lm]$" . cperl-mode)
                ("\\.m$" . objc-mode)
                ("\\.mxd$" . c-mode)
                ("\\.cs$" . csharp-mode)
@@ -572,7 +579,8 @@
       (append `(("runlisp" . lisp-mode)
                ("@BASH@" . sh-mode)
                ("@PYTHON@" . python-mode)
-               ("@PERL@" . perl-mode)
+               ("@PERL@" . cperl-mode)
+               ("/perl" . cperl-mode)
                ("@TCLSH@" . tcl-mode)
                ("@WISH@" . tcl-mode)
                ("/tclsh" . tcl-mode)
@@ -610,7 +618,6 @@
        arm-assembler-mode-hook))
 
 (global-font-lock-mode t)
-(defalias 'perl-mode 'cperl-mode)
 
 ;;;--------------------------------------------------------------------------
 ;;; Rootly editingness.