dot/emacs, el/dot-emacs.el: Define user variables with `defcustom'.

[profile] / dot / emacs

diff --git a/dot/emacs b/dot/emacs
index ad17a56..8715c25 100644 (file)
--- a/dot/emacs
+++ b/dot/emacs
@@ -460,7 +460,9 @@
   (sit-for 2))
 ;;(add-hook 'viper-vi-state-hook 'mdw-set-viper-cursor-colour)
 
-(defvar mdw-black-background t)
+(defcustom mdw-black-background t
+  "Whether the Emacs background is black (or dark, at any rate)."
+  :type 'boolean)
 
 (eval-after-load "outline"
   '(progn
@@ -676,10 +678,13 @@
 
 ;; Other frame fiddling.
 
-(defvar mdw-hostname
+(defcustom mdw-hostname
   (if (string-match "\\." system-name)
       (substring system-name 0 (match-beginning 0))
-    system-name))
+    system-name)
+  "Unqualified hostname Emacs is running on."
+  :type 'string
+  :safe 'stringp)
 (setq frame-title-format '("Emacs " user-login-name "@" mdw-hostname " – %b")
       icon-title-format frame-title-format)