* Abbreviating modeline items related to Gnus
@ 2004-11-22 15:23 Nelson Ferreira
2004-11-23 3:53 ` Nelson Ferreira
0 siblings, 1 reply; 6+ messages in thread
From: Nelson Ferreira @ 2004-11-22 15:23 UTC (permalink / raw)
Hi all,
I did some searching on the info for Gnus and the reference about mode
lines that I found only spoke about chopping Gnus contribution to it
by setting gnus-mode-non-string-length.
While this is useful, I'd like to get feedback from you guys on how I
could configure the actual strings that form the modeline
contribution, for instance, abbreviate the Message mode string that
goes into the modeline to Msg, hook a defun to abbreviate the main
method (or just remove it), a defun to massage the summary and article
modeline with regards.
I appreciate any pointers to variables or info nodes I missed, or
Lisp snippets :)
TIA,
Nelson
--
Nelson Ferreira
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Abbreviating modeline items related to Gnus
2004-11-22 15:23 Abbreviating modeline items related to Gnus Nelson Ferreira
@ 2004-11-23 3:53 ` Nelson Ferreira
2004-11-23 13:21 ` Simon Josefsson
0 siblings, 1 reply; 6+ messages in thread
From: Nelson Ferreira @ 2004-11-23 3:53 UTC (permalink / raw)
[-- Attachment #1: Type: text/plain, Size: 1066 bytes --]
Answering my own email :)
"njsf" == Nelson Ferreira <nelson.ferreira@verizon.net> writes:
njsf> Hi all, I did some searching on the info for Gnus and the
njsf> reference about mode lines that I found only spoke about
njsf> chopping Gnus contribution to it by setting
njsf> gnus-mode-non-string-length.
Ok, so in addition to this I found the following:
;-------------------
; gnus-article-mode-line-format
; User Option: *The format specification for the article mode line.
; gnus-category-mode-line-format
; Variable: The format specification for the category mode line.
; gnus-group-mode-line-format
; User Option: *The format specification for the group mode line.
; gnus-server-mode-line-format
; User Option: The format specification for the server mode line.
; gnus-summary-mode-line-format
; User Option: *The format specification for the summary mode line.
;-------------------
[...]
I am also attaching a patch to allow customizing of all Gnus related
major and minor modes for any interested.
Best regards,
Nelson
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: the patch --]
[-- Type: text/x-patch, Size: 21689 bytes --]
diff -u -u -b -r7.2 dig.el
--- dig.el 20 May 2004 08:02:38 -0000 7.2
+++ dig.el 23 Nov 2004 03:44:38 -0000
@@ -47,6 +47,12 @@
:type 'file
:group 'dig)
+(defcustom dig-mode-name "dig"
+ "Dig Mode name for the modeline"
+ :type 'string
+ :group 'dig
+ :group 'gnus-mode-names)
+
(defcustom dig-dns-server nil
"DNS server to query.
If nil, use system defaults."
@@ -139,7 +145,7 @@
"Major mode for displaying dig output."
(interactive)
(kill-all-local-variables)
- (setq mode-name "dig")
+ (setq mode-name dig-mode-name)
(setq major-mode 'dig-mode)
(use-local-map dig-mode-map)
(buffer-disable-undo)
diff -u -u -b -r7.7 dns-mode.el
--- dns-mode.el 14 Sep 2004 11:14:28 -0000 7.7
+++ dns-mode.el 23 Nov 2004 03:44:38 -0000
@@ -117,8 +117,14 @@
;; Mode.
+(defcustom dns-mode-name "DNS"
+ "DNS mode name for the modeline"
+ :type 'string
+ :group 'dns-mode
+ :group 'gnus-mode-names)
+
;;;###autoload
-(define-derived-mode dns-mode text-mode "DNS"
+(define-derived-mode dns-mode text-mode dns-mode-name
"Major mode for viewing and editing DNS master files.
This mode is inherited from text mode. It add syntax
highlighting, and some commands for handling DNS master files.
diff -u -u -b -r7.35 gnus-agent.el
--- gnus-agent.el 2 Nov 2004 02:54:23 -0000 7.35
+++ gnus-agent.el 23 Nov 2004 03:44:40 -0000
@@ -2550,6 +2550,12 @@
(gnus-run-hooks 'gnus-category-menu-hook)))
+(defcustom gnus-category-mode-name "Category"
+ "Category Mode name for the modeline"
+ :type 'string
+ :group 'gnus-agent
+ :group 'gnus-mode-names)
+
(defun gnus-category-mode ()
"Major mode for listing and editing agent categories.
@@ -2567,7 +2573,7 @@
(kill-all-local-variables)
(gnus-simplify-mode-line)
(setq major-mode 'gnus-category-mode)
- (setq mode-name "Category")
+ (setq mode-name gnus-category-mode-name)
(gnus-set-default-directory)
(setq mode-line-process nil)
(use-local-map gnus-category-mode-map)
diff -u -u -b -r7.63 gnus-art.el
--- gnus-art.el 14 Nov 2004 23:46:46 -0000 7.63
+++ gnus-art.el 23 Nov 2004 03:44:44 -0000
@@ -58,6 +58,13 @@
:link '(custom-manual "(gnus)Article Hiding")
:group 'gnus-article)
+(defcustom gnus-article-mode-name "Article"
+ "Article Mode name for the modeline"
+ :type 'string
+ :group 'gnus-article
+ :group 'gnus-mode-names)
+
+
(defgroup gnus-article-hiding nil
"Hiding article parts."
:link '(custom-manual "(gnus)Article Hiding")
@@ -3719,7 +3726,7 @@
\\[gnus-info-find-node]\t Go to the Gnus info node"
(interactive)
(gnus-simplify-mode-line)
- (setq mode-name "Article")
+ (setq mode-name gnus-article-mode-name)
(setq major-mode 'gnus-article-mode)
(make-local-variable 'minor-mode-alist)
(use-local-map gnus-article-mode-map)
@@ -5646,7 +5653,14 @@
["Body" message-goto-body t]
["Signature" message-goto-signature t]))
-(define-derived-mode gnus-article-edit-mode message-mode "Article Edit"
+(defcustom gnus-article-edit-mode-name "Article Edit"
+ "Gnus Article Edit mode name for the modeline"
+ :type 'string
+ :group 'gnus-article-various
+ :group 'gnus-mode-names)
+
+
+(define-derived-mode gnus-article-edit-mode message-mode gnus-article-edit-mode-name
"Major mode for editing articles.
This is an extended text-mode.
diff -u -u -b -r7.7 gnus-cus.el
--- gnus-cus.el 24 Aug 2004 06:54:33 -0000 7.7
+++ gnus-cus.el 23 Nov 2004 03:44:45 -0000
@@ -36,6 +36,12 @@
;;; Widgets:
+
+(defcustom gnus-custom-mode-name "Gnus Customize"
+ "Gnus Customize Mode name for the modeline"
+ :type 'string
+ :group 'gnus-mode-names)
+
(defun gnus-custom-mode ()
"Major mode for editing Gnus customization buffers.
@@ -50,7 +56,7 @@
if that value is non-nil."
(kill-all-local-variables)
(setq major-mode 'gnus-custom-mode
- mode-name "Gnus Customize")
+ mode-name gnus-custom-mode-name)
(use-local-map widget-keymap)
;; Emacs 21 stuff:
(when (and (facep 'custom-button-face)
diff -u -u -b -r7.3 gnus-dired.el
--- gnus-dired.el 20 May 2004 08:02:39 -0000 7.3
+++ gnus-dired.el 23 Nov 2004 03:44:45 -0000
@@ -62,6 +62,11 @@
"\C-c\C-m\C-l" gnus-dired-find-file-mailcap
"\C-c\C-m\C-p" gnus-dired-print))
+(defcustom gnus-dired-mode-name ""
+ "Gnus DirEd mode name for the modeline"
+ :type 'string
+ :group 'gnus-mode-names)
+
(defun gnus-dired-mode (&optional arg)
"Minor mode for intersections of gnus and dired.
@@ -72,7 +77,7 @@
(if (null arg) (not gnus-dired-mode)
(> (prefix-numeric-value arg) 0)))
(when gnus-dired-mode
- (add-minor-mode 'gnus-dired-mode "" gnus-dired-mode-map)
+ (add-minor-mode 'gnus-dired-mode gnus-dired-mode-name gnus-dired-mode-map)
(gnus-run-hooks 'gnus-dired-mode-hook))))
;;;###autoload
diff -u -u -b -r7.7 gnus-draft.el
--- gnus-draft.el 20 May 2004 08:02:39 -0000 7.7
+++ gnus-draft.el 23 Nov 2004 03:44:45 -0000
@@ -62,6 +62,11 @@
["Send all messages" gnus-draft-send-all-messages t]
["Delete draft" gnus-summary-delete-article t]))))
+(defcustom gnus-draft-mode-name " Draft"
+ "Gnus Draft mode name for the modeline"
+ :type 'string
+ :group 'gnus-mode-names)
+
(defun gnus-draft-mode (&optional arg)
"Minor mode for providing a draft summary buffers.
@@ -74,7 +79,7 @@
;; Set up the menu.
(when (gnus-visual-p 'draft-menu 'menu)
(gnus-draft-make-menu-bar))
- (add-minor-mode 'gnus-draft-mode " Draft" gnus-draft-mode-map)
+ (add-minor-mode 'gnus-draft-mode gnus-draft-mode-name gnus-draft-mode-map)
(mml-mode)
(gnus-run-hooks 'gnus-draft-mode-hook))))
diff -u -u -b -r7.3 gnus-eform.el
--- gnus-eform.el 24 Aug 2004 06:54:33 -0000 7.3
+++ gnus-eform.el 23 Nov 2004 03:44:45 -0000
@@ -69,6 +69,12 @@
["Exit" gnus-edit-form-exit t]))
(gnus-run-hooks 'gnus-edit-form-menu-hook)))
+(defcustom gnus-edit-form-mode-name "Edit Form"
+ "Gnus Edit Form Mode name for the modeline"
+ :type 'string
+ :group 'gnus-edit-form
+ :group 'gnus-mode-names)
+
(defun gnus-edit-form-mode ()
"Major mode for editing forms.
It is a slightly enhanced emacs-lisp-mode.
@@ -79,7 +85,7 @@
(gnus-edit-form-make-menu-bar))
(kill-all-local-variables)
(setq major-mode 'gnus-edit-form-mode)
- (setq mode-name "Edit Form")
+ (setq mode-name gnus-edit-form-mode-name)
(use-local-map gnus-edit-form-mode-map)
(make-local-variable 'gnus-edit-form-done-function)
(make-local-variable 'gnus-prev-winconf)
diff -u -u -b -r7.32 gnus-group.el
--- gnus-group.el 23 Oct 2004 07:45:12 -0000 7.32
+++ gnus-group.el 23 Nov 2004 03:44:48 -0000
@@ -124,6 +124,13 @@
:group 'gnus-group-levels
:type 'boolean)
+(defcustom gnus-group-mode-name "Group"
+ "Group Mode name for the modeline"
+ :type 'string
+ :group 'gnus-group-list
+ :group 'gnus-mode-names)
+
+
(defcustom gnus-group-sort-function 'gnus-group-sort-by-alphabet
"*Function used for sorting the group buffer.
This function will be called with group info entries as the arguments
@@ -1038,7 +1045,7 @@
(gnus-group-make-tool-bar))
(gnus-simplify-mode-line)
(setq major-mode 'gnus-group-mode)
- (setq mode-name "Group")
+ (setq mode-name gnus-group-mode-name)
(gnus-group-set-mode-line)
(setq mode-line-process nil)
(use-local-map gnus-group-mode-map)
diff -u -u -b -r7.4 gnus-kill.el
--- gnus-kill.el 20 May 2004 08:02:39 -0000 7.4
+++ gnus-kill.el 23 Nov 2004 03:44:48 -0000
@@ -38,6 +38,12 @@
:group 'gnus-score-kill
:type 'hook)
+(defcustom gnus-kill-file-mode-name "Kill"
+ "Kill file Mode name for the modeline"
+ :type 'string
+ :group 'gnus-score-kill
+ :group 'gnus-mode-names)
+
(defcustom gnus-kill-expiry-days 7
"*Number of days before expiring unused kill file entries."
:group 'gnus-score-kill
@@ -159,7 +165,7 @@
(use-local-map gnus-kill-file-mode-map)
(set-syntax-table emacs-lisp-mode-syntax-table)
(setq major-mode 'gnus-kill-file-mode)
- (setq mode-name "Kill")
+ (setq mode-name gnus-kill-file-mode-name)
(lisp-mode-variables nil)
(gnus-run-hooks 'emacs-lisp-mode-hook 'gnus-kill-file-mode-hook))
diff -u -u -b -r7.4 gnus-ml.el
--- gnus-ml.el 20 May 2004 08:02:39 -0000 7.4
+++ gnus-ml.el 23 Nov 2004 03:44:48 -0000
@@ -89,6 +89,11 @@
(gnus-mailing-list-mode 1))
(gnus-message 1 "no list-post in this message."))))
+(defcustom gnus-mailing-list-mode-name " Mailing-List"
+ "Gnus Mailing list mode name for the modeline"
+ :type 'string
+ :group 'gnus-mode-names)
+
;;;###autoload
(defun gnus-mailing-list-mode (&optional arg)
"Minor mode for providing mailing-list commands.
@@ -102,7 +107,7 @@
;; Set up the menu.
(when (gnus-visual-p 'mailing-list-menu 'menu)
(gnus-mailing-list-make-menu-bar))
- (add-minor-mode 'gnus-mailing-list-mode " Mailing-List" gnus-mailing-list-mode-map)
+ (add-minor-mode 'gnus-mailing-list-mode gnus-mailing-list-mode-name gnus-mailing-list-mode-map)
(gnus-run-hooks 'gnus-mailing-list-mode-hook))))
;;; Commands
diff -u -u -b -r7.6 gnus-salt.el
--- gnus-salt.el 10 Sep 2004 15:04:33 -0000 7.6
+++ gnus-salt.el 23 Nov 2004 03:44:49 -0000
@@ -46,6 +46,8 @@
:type 'boolean
:group 'gnus-summary-pick)
+
+
(defcustom gnus-pick-mode-hook nil
"Hook run in summary pick mode buffers."
:type 'hook
@@ -106,6 +108,12 @@
["Start reading" gnus-pick-start-reading t]
["Switch pick mode off" gnus-pick-mode gnus-pick-mode]))))
+(defcustom gnus-pick-mode-name " Pick"
+ "Gnus Pick mode name for the modeline"
+ :type 'string
+ :group 'gnus-summary-pick
+ :group 'gnus-mode-names)
+
(defun gnus-pick-mode (&optional arg)
"Minor mode for providing a pick-and-read interface in Gnus summary buffers.
@@ -128,7 +136,7 @@
;; Set up the menu.
(when (gnus-visual-p 'pick-menu 'menu)
(gnus-pick-make-menu-bar))
- (add-minor-mode 'gnus-pick-mode " Pick" gnus-pick-mode-map
+ (add-minor-mode 'gnus-pick-mode gnus-pick-mode-name gnus-pick-mode-map
nil 'gnus-pick-mode)
(gnus-run-hooks 'gnus-pick-mode-hook))))
@@ -345,6 +353,11 @@
'("Pick"
["Switch binary mode off" gnus-binary-mode t]))))
+(defcustom gnus-binary-mode-name " Binary"
+ "Gnus Binary mode name for the modeline"
+ :type 'string
+ :group 'gnus-mode-names)
+
(defun gnus-binary-mode (&optional arg)
"Minor mode for providing a binary group interface in Gnus summary buffers."
(interactive "P")
@@ -362,7 +375,7 @@
;; Set up the menu.
(when (gnus-visual-p 'binary-menu 'menu)
(gnus-binary-make-menu-bar))
- (add-minor-mode 'gnus-binary-mode " Binary"
+ (add-minor-mode 'gnus-binary-mode gnus-binary-mode-name
gnus-binary-mode-map nil 'gnus-binary-mode)
(gnus-run-hooks 'gnus-binary-mode-hook))))
@@ -421,6 +434,12 @@
(function :tag "Other" nil))
:group 'gnus-summary-tree)
+(defcustom gnus-tree-mode-name "Tree"
+ "Category Mode name for the modeline"
+ :type 'string
+ :group 'gnus-summary-tree
+ :group 'gnus-mode-names)
+
(defcustom gnus-tree-mode-hook nil
"*Hook run in tree mode buffers."
:type 'hook
@@ -486,7 +505,7 @@
(gnus-tree-make-menu-bar))
(kill-all-local-variables)
(gnus-simplify-mode-line)
- (setq mode-name "Tree")
+ (setq mode-name gnus-tree-mode-name)
(setq major-mode 'gnus-tree-mode)
(use-local-map gnus-tree-mode-map)
(buffer-disable-undo)
@@ -980,6 +999,11 @@
(defvar gnus-carpal-header-face 'bold-italic
"*Face used on carpal buffer headers.")
+(defcustom gnus-carpal-mode-name "Gnus Carpal"
+ "Category Mode name for the modeline"
+ :type 'string
+ :group 'gnus-mode-names)
+
(defvar gnus-carpal-mode-map nil)
(put 'gnus-carpal-mode 'mode-class 'special)
@@ -1003,7 +1027,7 @@
(kill-all-local-variables)
(setq mode-line-modified (cdr gnus-mode-line-modified))
(setq major-mode 'gnus-carpal-mode)
- (setq mode-name "Gnus Carpal")
+ (setq mode-name gnus-carpal-mode-name)
(setq mode-line-process nil)
(use-local-map gnus-carpal-mode-map)
(buffer-disable-undo)
diff -u -u -b -r7.12 gnus-srvr.el
--- gnus-srvr.el 2 Nov 2004 02:54:22 -0000 7.12
+++ gnus-srvr.el 23 Nov 2004 03:44:49 -0000
@@ -233,6 +233,12 @@
:group 'gnus-server-visual
:type 'face)
+(defcustom gnus-server-mode-name "Server"
+ "Server mode name for the modeline"
+ :type 'string
+ :group 'gnus-server
+ :group 'gnus-mode-names)
+
(defvar gnus-server-font-lock-keywords
(list
'("(\\(agent\\))" 1 gnus-server-agent-face)
@@ -258,7 +264,7 @@
(kill-all-local-variables)
(gnus-simplify-mode-line)
(setq major-mode 'gnus-server-mode)
- (setq mode-name "Server")
+ (setq mode-name gnus-server-mode-name)
(gnus-set-default-directory)
(setq mode-line-process nil)
(use-local-map gnus-server-mode-map)
@@ -833,6 +839,11 @@
(gnus-message 5 "Connecting to %s...done" (nth 1 method))
t))))
+(defcustom gnus-browse-mode-name "Browse Server"
+ "Browse Server Mode name for the modeline"
+ :type 'string
+ :group 'gnus-mode-name)
+
(defun gnus-browse-mode ()
"Major mode for browsing a foreign server.
@@ -854,7 +865,7 @@
(gnus-browse-make-menu-bar))
(gnus-simplify-mode-line)
(setq major-mode 'gnus-browse-mode)
- (setq mode-name "Browse Server")
+ (setq mode-name gnus-browse-mode-name)
(setq mode-line-process nil)
(use-local-map gnus-browse-mode-map)
(buffer-disable-undo)
diff -u -u -b -r7.29 gnus-start.el
--- gnus-start.el 15 Nov 2004 05:31:51 -0000 7.29
+++ gnus-start.el 23 Nov 2004 03:44:51 -0000
@@ -2911,9 +2911,14 @@
(defvar gnus-slave-mode nil)
+(defcustom gnus-slave-mode-name " Slave"
+ "Gnus Slave mode name for the modeline"
+ :type 'string
+ :group 'gnus-mode-names)
+
(defun gnus-slave-mode ()
"Minor mode for slave Gnusae."
- (add-minor-mode 'gnus-slave-mode " Slave" (make-sparse-keymap))
+ (add-minor-mode 'gnus-slave-mode gnus-slave-mode-name (make-sparse-keymap))
(gnus-run-hooks 'gnus-slave-mode-hook))
(defun gnus-slave-save-newsrc ()
diff -u -u -b -r7.66 gnus-sum.el
--- gnus-sum.el 7 Nov 2004 22:00:10 -0000 7.66
+++ gnus-sum.el 23 Nov 2004 03:44:58 -0000
@@ -2731,6 +2731,11 @@
(list (nreverse outh))))))))
\f
+(defcustom gnus-summary-mode-name "Summary"
+ "Summary Mode name for the modeline"
+ :type 'string
+ :group 'gnus-summary
+ :group 'gnus-mode-name)
(defun gnus-summary-mode (&optional group)
"Major mode for reading articles.
@@ -2763,7 +2768,7 @@
(gnus-make-thread-indent-array)
(gnus-simplify-mode-line)
(setq major-mode 'gnus-summary-mode)
- (setq mode-name "Summary")
+ (setq mode-name gnus-summary-mode-name)
(make-local-variable 'minor-mode-alist)
(use-local-map gnus-summary-mode-map)
(buffer-disable-undo)
@@ -6833,6 +6838,11 @@
(defvar gnus-dead-summary-mode nil
"Minor mode for Gnus summary buffers.")
+
+(defcustom gnus-dead-summary-mode-name " Dead"
+ "Gnus dead summary ode name for the modeline"
+ :type 'string
+ :group 'gnus-mode-names)
(defun gnus-dead-summary-mode (&optional arg)
"Minor mode for Gnus summary buffers."
diff -u -u -b -r7.10 gnus-topic.el
--- gnus-topic.el 5 Oct 2004 23:13:27 -0000 7.10
+++ gnus-topic.el 23 Nov 2004 03:44:59 -0000
@@ -1120,6 +1120,12 @@
["Edit parameters" gnus-topic-edit-parameters t])
["List active" gnus-topic-list-active t]))))
+(defcustom gnus-topic-mode-name " Topic"
+ "Gnus Topic mode name for the modeline"
+ :type 'string
+ :group 'gnus-topic
+ :group 'gnus-mode-names)
+
(defun gnus-topic-mode (&optional arg redisplay)
"Minor mode for topicsifying Gnus group buffers."
(interactive (list current-prefix-arg t))
@@ -1134,7 +1140,7 @@
(when (gnus-visual-p 'topic-menu 'menu)
(gnus-topic-make-menu-bar))
(gnus-set-format 'topic t)
- (add-minor-mode 'gnus-topic-mode " Topic"
+ (add-minor-mode 'gnus-topic-mode gnus-topic-mode-name
gnus-topic-mode-map nil (lambda (&rest junk)
(interactive)
(gnus-topic-mode nil t)))
diff -u -u -b -r7.5 gnus-undo.el
--- gnus-undo.el 26 Sep 2004 18:40:31 -0000 7.5
+++ gnus-undo.el 23 Nov 2004 03:44:59 -0000
@@ -98,6 +98,12 @@
(cons "Undo" 'gnus-undo-actions)
[menu-bar file whatever])))
+(defcustom gnus-undo-mode-name ""
+ "Gnus Undo mode name for the modeline"
+ :type 'string
+ :group 'gnus-undo
+ :group 'gnus-mode-names)
+
(defun gnus-undo-mode (&optional arg)
"Minor mode for providing `undo' in Gnus buffers.
@@ -112,7 +118,7 @@
;; Set up the menu.
(when (gnus-visual-p 'undo-menu 'menu)
(gnus-undo-make-menu-bar))
- (add-minor-mode 'gnus-undo-mode "" gnus-undo-mode-map)
+ (add-minor-mode 'gnus-undo-mode gnus-undo-mode-name gnus-undo-mode-map)
(gnus-make-local-hook 'post-command-hook)
(add-hook 'post-command-hook 'gnus-undo-boundary nil t)
(gnus-run-hooks 'gnus-undo-mode-hook)))
diff -u -u -b -r7.31 gnus.el
--- gnus.el 2 Nov 2004 02:54:23 -0000 7.31
+++ gnus.el 23 Nov 2004 03:45:01 -0000
@@ -41,6 +41,10 @@
:group 'news
:group 'mail)
+(defgroup gnus-mode-names nil
+ "Dealing with mode names on the modeline."
+ :group 'gnus)
+
(defgroup gnus-format nil
"Dealing with formatting issues."
:group 'gnus)
diff -u -u -b -r7.59 message.el
--- message.el 14 Nov 2004 14:27:44 -0000 7.59
+++ message.el 23 Nov 2004 03:45:05 -0000
@@ -2447,8 +2447,14 @@
(remove-text-properties (car from-to) (cdr from-to)
message-forbidden-properties))))
+(defcustom message-mode-name "Message"
+ "Message mode name for the modeline"
+ :type 'string
+ :group 'message
+ :group 'gnus-mode-names)
+
;;;###autoload
-(define-derived-mode message-mode text-mode "Message"
+(define-derived-mode message-mode text-mode message-mode-name
"Major mode for editing mail and news to be sent.
Like Text Mode but with these additional commands:\\<message-mode-map>
C-c C-s `message-send' (send the message) C-c C-c `message-send-and-exit'
diff -u -u -b -r7.19 mml.el
--- mml.el 12 Oct 2004 02:26:51 -0000 7.19
+++ mml.el 23 Nov 2004 03:45:06 -0000
@@ -886,6 +886,11 @@
(defvar mml-mode nil
"Minor mode for editing MML.")
+(defcustom mml-mode-name " MML"
+ "MML mode name for the modeline"
+ :type 'string
+ :group 'gnus-mode-names)
+
(defun mml-mode (&optional arg)
"Minor mode for editing MML.
MML is the MIME Meta Language, a minor mode for composing MIME articles.
@@ -896,7 +901,7 @@
(when (set (make-local-variable 'mml-mode)
(if (null arg) (not mml-mode)
(> (prefix-numeric-value arg) 0)))
- (add-minor-mode 'mml-mode " MML" mml-mode-map)
+ (add-minor-mode 'mml-mode mml-mode-name mml-mode-map)
(easy-menu-add mml-menu mml-mode-map)
(when (boundp 'x-dnd-protocol-alist)
(set (make-local-variable 'x-dnd-protocol-alist)
diff -u -u -b -r7.3 score-mode.el
--- score-mode.el 24 Aug 2004 06:54:33 -0000 7.3
+++ score-mode.el 23 Nov 2004 03:45:06 -0000
@@ -56,6 +56,12 @@
;; We need this to cope with non-ASCII scoring.
(defvar score-mode-coding-system mm-universal-coding-system)
+
+(defcustom gnus-score-mode-name "Score"
+ "Score Mode name for the modeline"
+ :type 'string
+ :group 'gnus-mode-name)
+
;;;###autoload
(defun gnus-score-mode ()
"Mode for editing Gnus score files.
@@ -68,7 +74,7 @@
(gnus-score-make-menu-bar)
(set-syntax-table score-mode-syntax-table)
(setq major-mode 'gnus-score-mode)
- (setq mode-name "Score")
+ (setq mode-name gnus-score-mode-name)
(lisp-mode-variables nil)
(make-local-variable 'gnus-score-edit-exit-function)
(run-hooks 'emacs-lisp-mode-hook 'gnus-score-mode-hook))
diff -u -u -b -r7.3 sieve-mode.el
--- sieve-mode.el 20 May 2004 08:02:41 -0000 7.3
+++ sieve-mode.el 23 Nov 2004 03:45:06 -0000
@@ -171,8 +171,14 @@
;; Code for Sieve editing mode.
+(defcustom sieve-mode-name "Sieve"
+ "Sieve mode name for the modeline"
+ :type 'string
+ :group 'sieve
+ :group 'gnus-mode-names)
+
;;;###autoload
-(define-derived-mode sieve-mode c-mode "Sieve"
+(define-derived-mode sieve-mode c-mode sieve-mode-name
"Major mode for editing Sieve code.
This is much like C mode except for the syntax of comments. Its keymap
inherits from C mode's and it has the same variables for customizing
diff -u -u -b -r7.5 sieve.el
--- sieve.el 2 Nov 2004 02:54:22 -0000 7.5
+++ sieve.el 23 Nov 2004 03:45:06 -0000
@@ -139,9 +139,16 @@
["Activate script" sieve-activate t]
["Deactivate script" sieve-deactivate t]))
-(define-derived-mode sieve-manage-mode fundamental-mode "SIEVE"
+(defcustom sieve-manage-mode-name "SIEVE"
+ "Sieve mode name for the modeline"
+ :type 'string
+ :group 'sieve
+ :group 'gnus-mode-names)
+
+
+(define-derived-mode sieve-manage-mode fundamental-mode sieve-manage-mode-name
"Mode used for sieve script management."
- (setq mode-name "SIEVE")
+ (setq mode-name sieve-manage-mode-name)
(buffer-disable-undo (current-buffer))
(setq truncate-lines t)
(easy-menu-add sieve-manage-mode-menu sieve-manage-mode-map))
diff -u -u -b -r7.5 smime.el
--- smime.el 19 Sep 2004 20:24:26 -0000 7.5
+++ smime.el 23 Nov 2004 03:45:06 -0000
@@ -569,6 +569,12 @@
(define-key smime-mode-map "q" 'smime-exit)
(define-key smime-mode-map "f" 'smime-certificate-info))
+(defcustom smime-mode-name "SMIME"
+ "SMIME mode name for the modeline"
+ :type 'string
+ :group 'smime
+ :group 'gnus-mode-names)
+
(defun smime-mode ()
"Major mode for browsing, viewing and fetching certificates.
@@ -581,7 +587,7 @@
(interactive)
(kill-all-local-variables)
(setq major-mode 'smime-mode)
- (setq mode-name "SMIME")
+ (setq mode-name smime-mode-name)
(setq mode-line-process nil)
(use-local-map smime-mode-map)
(buffer-disable-undo)
[-- Attachment #3: Type: text/plain, Size: 22 bytes --]
--
Nelson Ferreira
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Abbreviating modeline items related to Gnus
2004-11-23 3:53 ` Nelson Ferreira
@ 2004-11-23 13:21 ` Simon Josefsson
2004-11-23 13:37 ` Nelson Ferreira
0 siblings, 1 reply; 6+ messages in thread
From: Simon Josefsson @ 2004-11-23 13:21 UTC (permalink / raw)
Nelson Ferreira <nelson.ferreira@verizon.net> writes:
> I am also attaching a patch to allow customizing of all Gnus related
> major and minor modes for any interested.
Why is this useful? It seems confusing to make mode names
customizable. Would the same rationale also argue for making
"Fundamental" and "Text" customizable?
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Abbreviating modeline items related to Gnus
2004-11-23 13:21 ` Simon Josefsson
@ 2004-11-23 13:37 ` Nelson Ferreira
2004-11-23 17:31 ` Simon Josefsson
0 siblings, 1 reply; 6+ messages in thread
From: Nelson Ferreira @ 2004-11-23 13:37 UTC (permalink / raw)
"Simon" == Simon Josefsson <jas@extundo.com> writes:
Simon> Nelson Ferreira <nelson.ferreira@verizon.net> writes:
>> I am also attaching a patch to allow customizing of all Gnus
>> related major and minor modes for any interested.
Simon> Why is this useful? It seems confusing to make mode names
Simon> customizable. Would the same rationale also argue for
Simon> making "Fundamental" and "Text" customizable?
Yes it would. And some are. apropos for mode-line-string (in
retrospect I should probably followed that convention).
I find it useful. If there are takers, cool. If you don't feel it
belongs in Gnus I don't mind maintaining it in my private Gnus.
Just sharing the wealth.
--
Nelson Ferreira
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Abbreviating modeline items related to Gnus
2004-11-23 13:37 ` Nelson Ferreira
@ 2004-11-23 17:31 ` Simon Josefsson
2004-11-23 18:00 ` Romain Francoise
0 siblings, 1 reply; 6+ messages in thread
From: Simon Josefsson @ 2004-11-23 17:31 UTC (permalink / raw)
Nelson Ferreira <nelson.ferreira@verizon.net> writes:
> "Simon" == Simon Josefsson <jas@extundo.com> writes:
>
> Simon> Nelson Ferreira <nelson.ferreira@verizon.net> writes:
> >> I am also attaching a patch to allow customizing of all Gnus
> >> related major and minor modes for any interested.
>
> Simon> Why is this useful? It seems confusing to make mode names
> Simon> customizable. Would the same rationale also argue for
> Simon> making "Fundamental" and "Text" customizable?
>
> Yes it would. And some are. apropos for mode-line-string (in
> retrospect I should probably followed that convention).
>
> I find it useful. If there are takers, cool. If you don't feel it
> belongs in Gnus I don't mind maintaining it in my private Gnus.
I don't have a strong opinion. Others? Using mode-line-string seem
better, though.
Perhaps this could be discussed more generally, on emacs-devel? It
seems define-derived-mode could define the variable
MODE-mode-line-string that default to the NAME parameter. That would
be cleaner, and would have the same as your patch for several modes.
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Abbreviating modeline items related to Gnus
2004-11-23 17:31 ` Simon Josefsson
@ 2004-11-23 18:00 ` Romain Francoise
0 siblings, 0 replies; 6+ messages in thread
From: Romain Francoise @ 2004-11-23 18:00 UTC (permalink / raw)
Simon Josefsson <jas@extundo.com> writes:
> I don't have a strong opinion. Others? Using mode-line-string seem
> better, though.
I don't think that would be useful for me, either.
> Perhaps this could be discussed more generally, on emacs-devel? It
> seems define-derived-mode could define the variable
> MODE-mode-line-string that default to the NAME parameter. That would
> be cleaner, and would have the same as your patch for several modes.
That would be nice. Nelson seems to be using XEmacs, though.
--
Romain Francoise <romain@orebokech.com> | Don't forget to breathe, and
it's a miracle -- http://orebokech.com/ | pay before you leave.
^ permalink raw reply [flat|nested] 6+ messages in thread
end of thread, other threads:[~2004-11-23 18:00 UTC | newest]
Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2004-11-22 15:23 Abbreviating modeline items related to Gnus Nelson Ferreira
2004-11-23 3:53 ` Nelson Ferreira
2004-11-23 13:21 ` Simon Josefsson
2004-11-23 13:37 ` Nelson Ferreira
2004-11-23 17:31 ` Simon Josefsson
2004-11-23 18:00 ` Romain Francoise
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).