emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Toggle EOL


From: Stefan Monnier
Subject: Toggle EOL
Date: Fri, 28 Jun 2002 13:07:51 -0400

I think that the EOL information in the mode-line should be
better separated from the coding-system info.  The patch below
gives it its own help-echo and its own keymap (mouse-3 switches
between the three different possible EOL).

Any comment/objection ?


        Stefan


Index: bindings.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/bindings.el,v
retrieving revision 1.100
diff -u -u -b -r1.100 bindings.el
--- bindings.el 16 Apr 2002 14:55:13 -0000      1.100
+++ bindings.el 28 Jun 2002 17:01:15 -0000
@@ -135,6 +135,36 @@
   "Local keymap for the coding-system part of the mode line.")
 
 
+(defvar mode-line-eol-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map [mode-line mouse-3]
+      (lambda ()
+       (interactive)
+       (let ((eol (coding-system-eol-type buffer-file-coding-system)))
+         (set-buffer-file-coding-system
+          (cond ((eq eol 0) 'dos) ((eq eol 1) 'mac) (t 'unix))))))
+    (purecopy map))
+  "Local keymap for the `coding-system-eol-type' part of the mode line.")
+
+(defvar mode-line-eol-desc-cache nil)
+
+(defun mode-line-eol-desc ()
+  (let* ((eol (coding-system-eol-type buffer-file-coding-system))
+        (mnemonic (coding-system-eol-type-mnemonic buffer-file-coding-system))
+        (desc (assq eol mode-line-eol-desc-cache)))
+    (if (and desc (eq (cadr desc) mnemonic))
+       (cddr desc)
+      (setq desc
+           (propertize
+            mnemonic
+            'help-echo (format "%s end-of-line; mouse-3 to change"
+                               (if (eq eol 0) "Unix-style LF"
+                                 (if (eq eol 1) "Dos-style CRLF"
+                                   (if (eq eol 2) "Mac-style CR" 
"Undecided"))))
+              'keymap mode-line-eol-map))
+      (push (cons eol (cons mnemonic desc)) mode-line-eol-desc-cache)
+      desc)))
+
 (defvar mode-line-mule-info
   `(""
     (current-input-method
@@ -145,7 +175,7 @@
                             ".  mouse-2: disable, mouse-3: describe")
                  local-map ,mode-line-input-method-map))
     ,(propertize
-      "%Z"
+      "%z"
       'help-echo
       #'(lambda (window object point)
          (with-current-buffer (window-buffer window)
@@ -157,16 +187,17 @@
                          " buffer; mouse-3: describe coding system")
                (concat "Unibyte " (symbol-name buffer-file-coding-system)
                        " buffer")))))
-      'local-map mode-line-coding-system-map))
+      'local-map mode-line-coding-system-map)
+    (:eval (mode-line-eol-desc))))
   "Mode-line control for displaying information of multilingual environment.
 Normally it displays current input method (if any activated) and
 mnemonics of the following coding systems:




reply via email to

[Prev in Thread] Current Thread [Next in Thread]