Permalink
Browse files

Use defcustom instead of defvar.

  • Loading branch information...
1 parent 4a40f22 commit 95b2865ec281ce23bdf8662b8bd8cbe907b842ee @jschaf jschaf committed Apr 2, 2011
Showing with 17 additions and 5 deletions.
  1. +17 −5 httpd.el
View
@@ -30,11 +30,23 @@
(require 'cl)
-(defvar httpd-port 8080
- "Web server port.")
-
-(defvar httpd-root "~/public_html"
- "Web server file root.")
+(defcustom httpd-port 8080
+ "Web server port."
+ :group 'httpd
+ :type 'integer)
+
+(defcustom httpd-root "~/public_html"
+ "Web server file root."
+ :group 'httpd
+ :type 'string)
+
+(defcustom httpd-host 'local
+ "The host to connect to. `httpd-host' should be a host name or
+ IP address or the symbol `local' for the the local
+ host."
+ :group 'httpd
+ :type (choice (string :tag "Host name or IP address")
+ (const 'local :tag "Local host")))
(defvar httpd-mime-types
'(("png" . "image/png")

0 comments on commit 95b2865

Please sign in to comment.