Make Emacs column width configurable.

This change introduces a new metaconfiguration variable `emacs-width'
which defaults for 77 for the usual historical reasons.  It's used:

  * to set the default `loose' Emacs frame width, in `.Xdefaults', via
    some fiddly C preprocessor hacking;

  * to choose the initial Emacs frame size, in `.xinitrc';

  * to decide how to divvy up windows, refill text, highlight overlong
    lines, and all of that good stuff, in `.emacs' and `dot-emacs.el'.

Emacs itself now has two new variable, `mdw-column-width' which is the
`physical' column width, used to decide how big to make windows and
frames; and `mdw-text-width' which is a potentially buffer-local
variable holding the logical text width in the buffer, used for
refilling text and highlighting long lines.

This is probably not completely right yet, but it seems like a good
start for supporting environments where I'm expected to use a different
column width most of the time.

If `emacs-width' is unset, or left as its default, there should be no
change.

diff --git a/dot/Xdefaults b/dot/Xdefaults
index 2b200c46fa032a5587c765d749be45bcf4b0d55e..2787e0be2e530b0646af4faaf2b24419e28f63a4 100644 (file)
--- a/dot/Xdefaults
+++ b/dot/Xdefaults
@@ -71,7 +71,9 @@ XConsole*foreground:          #54ff9f
 XConsole*geometry:             485x455
 
 !! Emacs.
 XConsole*geometry:             485x455
 
 !! Emacs.

-emacs.geometry:                        77x33
+#define _GEOM(wd, ht) wd##x##ht
+#define GEOM(wd, ht) _GEOM(wd, ht)
+emacs.geometry:                        GEOM(EMACSWD,33)

 Emacs.pane.menubar.font:       NICEFONT
 Emacs.menu*.font:              NICEFONT
 Emacs.font:                    FIXED
 Emacs.pane.menubar.font:       NICEFONT
 Emacs.menu*.font:              NICEFONT
 Emacs.font:                    FIXED

diff --git a/dot/emacs b/dot/emacs
index 9bb23b2dfb287fbcdeac93d39b9b99a0346fc2aa..677338ce4a7eeea0fa52c3dc3438f8aa1ac391e0 100644 (file)
--- a/dot/emacs
+++ b/dot/emacs
@@ -312,7 +312,7 @@
 (setq read-quoted-char-radix 16)       ;C-q HEX-STUFF [RET]
 (setq case-fold-file-names nil)                ;Don't translate file names (grr...)
 (setq scroll-step 5)                   ;Don't scroll too much at a time
 (setq read-quoted-char-radix 16)       ;C-q HEX-STUFF [RET]
 (setq case-fold-file-names nil)                ;Don't translate file names (grr...)
 (setq scroll-step 5)                   ;Don't scroll too much at a time

-(setq-default fill-column 77)          ;I use rather narrow windows
+(setq-default fill-column mdw-text-width) ;I use rather narrow windows

 (setq-default comment-column 40)       ;Set a standard comment column
 (setq-default truncate-partial-width-windows nil
              truncate-lines t)
 (setq-default comment-column 40)       ;Set a standard comment column
 (setq-default truncate-partial-width-windows nil
              truncate-lines t)


@@ -320,7 +320,7 @@
 (setq view-read-only t)
 (setq whitespace-style '(trailing empty indentation face lines-tail
                         space-before-tab space-after-tab)
 (setq view-read-only t)
 (setq whitespace-style '(trailing empty indentation face lines-tail
                         space-before-tab space-after-tab)

-      whitespace-line-column 77)
+      whitespace-line-column mdw-text-width)

 (setq woman-use-own-frame nil          ;Keep man pages somewhere sensible
       woman-fill-column 72)            ;Right margin position.
 (setq diff-switches "-u"               ;I like reading unified diffs
 (setq woman-use-own-frame nil          ;Keep man pages somewhere sensible
       woman-fill-column 72)            ;Right margin position.
 (setq diff-switches "-u"               ;I like reading unified diffs


@@ -533,7 +533,8 @@
 
 (setq frame-background-mode (if mdw-black-background 'dark 'light)
       default-frame-alist
 
 (setq frame-background-mode (if mdw-black-background 'dark 'light)
       default-frame-alist

-      `((width . ,(if (>= emacs-major-version 21) 77 78))
+      `((width . ,(+ mdw-column-width
+                    (if (>= emacs-major-version 21) 0 1)))

        (height . 33)
        (vertical-scroll-bars . right)
        (cursor-type . bar)
        (height . 33)
        (vertical-scroll-bars . right)
        (cursor-type . bar)


@@ -546,7 +547,8 @@
        (cursor-color . "red")
        (background-mode . ,frame-background-mode))
       initial-frame-alist
        (cursor-color . "red")
        (background-mode . ,frame-background-mode))
       initial-frame-alist

-      `((width . ,(if (>= emacs-major-version 21) 77 78))
+      `((width . ,(+ mdw-column-width
+                    (if (>= emacs-major-version 21) 0 1)))

        (menu-bar-lines . ,(if window-system 1 0)))
       window-system-default-frame-alist
       '((pm (font . "-os2-System VIO-medium-r-normal--*-40-*-*-m-*-cp850")
        (menu-bar-lines . ,(if window-system 1 0)))
       window-system-default-frame-alist
       '((pm (font . "-os2-System VIO-medium-r-normal--*-40-*-*-m-*-cp850")

diff --git a/dot/xinitrc b/dot/xinitrc
index a1f6e0698c22071295fdc6c295424eb99beee7be..171024247c9c3397c86e4336bb569585c2ae0ba6 100755 (executable)
--- a/dot/xinitrc
+++ b/dot/xinitrc
@@ -233,7 +233,9 @@ term=$(pick_program terminal pterm Eterm xterm)
 ## e_lineht = height of a character line in pixels
 ## e_vextra = number of additional vertical cruft pixels
 ##     So an N-line Emacs frame takes N*e_lineht + e_vextra pixels
 ## e_lineht = height of a character line in pixels
 ## e_vextra = number of additional vertical cruft pixels
 ##     So an N-line Emacs frame takes N*e_lineht + e_vextra pixels

-e_colwd=492 e_colchars=82 e_lineht=13
+e_colsz=$(mdw-conf emacs-width 77) e_charwd=6 e_colextra=30
+e_colwd=$(( e_colsz*e_charwd + e_colextra ))
+e_colchars=$(( e_colsz + 5 )) e_lineht=13

 case "$emacs" in
   emacs21 | emacs) e_hextra=34 e_cextra=-2 e_vextra=52 ;;
   emacs22 | emacs23) e_hextra=8 e_cextra=-6 e_vextra=46 ;;
 case "$emacs" in
   emacs21 | emacs) e_hextra=34 e_cextra=-2 e_vextra=52 ;;
   emacs22 | emacs23) e_hextra=8 e_cextra=-6 e_vextra=46 ;;

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index d88366674e05cd264136fb5b4c8bab798740db35..950f2db69e8f04fde29a2eada26175139e4a0d45 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -102,6 +102,15 @@ (defun mdw-config (sym)
                    (concat "(" (buffer-string) ")")))))))
   (cdr (assq sym mdw-config)))
 
                    (concat "(" (buffer-string) ")")))))))
   (cdr (assq sym mdw-config)))
 

+;; Width configuration.
+
+(defvar mdw-column-width
+  (string-to-number (or (mdw-config 'emacs-width) "77"))
+  "Width of Emacs columns.")
+(defvar mdw-text-width mdw-column-width
+  "Expected width of text within columns.")
+(put 'mdw-text-width 'safe-local-variable 'integerp)
+

 ;; Local variables hacking.
 
 (defun run-local-vars-mode-hook ()
 ;; Local variables hacking.
 
 (defun run-local-vars-mode-hook ()


@@ -196,8 +205,8 @@ (defun mdw-divvy-window (&optional width)
   (interactive "P")
   (setq width (cond (width (prefix-numeric-value width))
                    ((and window-system (mdw-emacs-version-p 22))
   (interactive "P")
   (setq width (cond (width (prefix-numeric-value width))
                    ((and window-system (mdw-emacs-version-p 22))

-                    77)
-                   (t 78)))
+                    mdw-column-width)
+                   (t (1+ mdw-column-width))))

   (let* ((win (selected-window))
         (sb-width (mdw-horizontal-window-overhead))
         (c (/ (+ (window-width) sb-width)
   (let* ((win (selected-window))
         (sb-width (mdw-horizontal-window-overhead))
         (c (/ (+ (window-width) sb-width)


@@ -981,7 +990,7 @@ (defun mdw-misc-mode-config ()
   (setq page-delimiter "\f\\|^.*-\\{6\\}.*$")
   (setq comment-column 40)
   (auto-fill-mode 1)
   (setq page-delimiter "\f\\|^.*-\\{6\\}.*$")
   (setq comment-column 40)
   (auto-fill-mode 1)

-  (setq fill-column 77)
+  (setq fill-column mdw-text-width)

   (and (fboundp 'gtags-mode)
        (gtags-mode))
   (if (fboundp 'hs-minor-mode)
   (and (fboundp 'gtags-mode)
        (gtags-mode))
   (if (fboundp 'hs-minor-mode)


@@ -991,6 +1000,7 @@ (defun mdw-misc-mode-config ()
   (trap (turn-on-font-lock)))
 
 (defun mdw-post-local-vars-misc-mode-config ()
   (trap (turn-on-font-lock)))
 
 (defun mdw-post-local-vars-misc-mode-config ()

+  (setq whitespace-line-column mdw-text-width)

   (when (and mdw-do-misc-mode-hacking
             (not buffer-read-only))
     (setq show-trailing-whitespace t)
   (when (and mdw-do-misc-mode-hacking
             (not buffer-read-only))
     (setq show-trailing-whitespace t)

diff --git a/setup b/setup
index c4eb953400ce5e74d04a177e86198e68aeb54cf5..057a1bab2691ffbddfbb4e37dd8416816ac1319e 100755 (executable)
--- a/setup
+++ b/setup
@@ -185,6 +185,8 @@ cppfiles=""
 [ "$xstuff" ] && cppfiles="$cppfiles
   Xdefaults"
 echo "Hacking files with C preprocessor..."
 [ "$xstuff" ] && cppfiles="$cppfiles
   Xdefaults"
 echo "Hacking files with C preprocessor..."

+defs="-DHOME=$HOME -DPROFILE=$here"
+defs="$defs -DEMACSWD=$(mdw-conf emacs-width 77)"

 for c in $cppfiles; do
   target=.$c
   case $c in
 for c in $cppfiles; do
   target=.$c
   case $c in


@@ -193,7 +195,7 @@ for c in $cppfiles; do
   ft=$HOME$sub/$target
   dir=${ft%/*}
   mkdir -p $dir
   ft=$HOME$sub/$target
   dir=${ft%/*}
   mkdir -p $dir

-  cpp -P dot/$c -o $ft.new
+  cpp -P $defs dot/$c -o $ft.new

   mv $ft.new $ft
   echo "  $target"
 done
   mv $ft.new $ft
   echo "  $target"
 done