dot/emacs: Don't display the diary when starting up or every morning.

[profile] / dot / emacs

diff --git a/dot/emacs b/dot/emacs
index 293a9c9..3988df7 100644 (file)
--- a/dot/emacs
+++ b/dot/emacs
@@ -133,7 +133,9 @@
      (progn (setq server-temp-file-regexp (concat "^" tmpdir "\\|/draft$")
                  edit-server-new-frame nil
                  gnuserv-frame t)
-           (trap (server-start))
+           (trap (let ((warning-suppress-types
+                        (cons '(server) warning-suppress-types)))
+                   (server-start)))
            (trap (progn
                    (require 'edit-server)
                    (edit-server-start)
@@ -370,6 +372,7 @@
 (setq bookmark-save-flag 0)            ;Save bookmarks automatically
 (setq vc-follow-symlinks t)
 (setq x-gtk-file-dialog-help-text nil)
+(setq use-dialog-box nil)
 (setq Info-fontify-maximum-menu-size 100000)
 (setq set-mark-command-repeat-pop t)
 (setq password-cache-expiry nil)
@@ -430,7 +433,7 @@
 (setq url-cookie-untrusted-urls '("."))
 
 (setq browse-url-browser-function (mdw-good-url-browser)
-      browse-url-generic-program "chromium"
+      browse-url-generic-program "mdw-chrome"
       browse-url-mozilla-program "mdw-iceweasel")
 
 (setq w3m-default-display-inline-images t
@@ -505,9 +508,10 @@
 ;; Appointment management.
 
 (add-hook 'diary-hook 'appt-make-list)
-(setq appt-issue-message t)
-(setq appt-display-interval 3)
-(setq appt-message-warning-time 10)
+(setq appt-issue-message t
+      appt-display-interval 3
+      appt-message-warning-time 10
+      appt-display-diary nil)
 (and (not mdw-fast-startup)
      (trap (require 'org)
           (require 'bbdb)
@@ -740,6 +744,7 @@
 
 (setq auto-mode-alist
       (append `(("\\.p[lm]$" . cperl-mode)
+               ("\\.sage$" . python-mode)
                ("\\.m$" . objc-mode)
                ("\\.mxd$" . c-mode)
                ("\\.cs$" . csharp-mode)
@@ -780,6 +785,7 @@
       (append `(("runlisp" . lisp-mode)
                ("@BASH@" . sh-mode)
                ("@PYTHON@" . python-mode)
+               ("sage" . python-mode)
                ("@PERL@" . cperl-mode)
                ("perl" . cperl-mode)
                ("@TCLSH@" . tcl-mode)