From: daniela-spit@gmx.it
To: Jean Louis <bugs@gnu.support>
Cc: Michael Heerdegen <michael_heerdegen@web.de>, help-gnu-emacs@gnu.org
Subject: Re: Removing line and column number settings from some buffers
Date: Sat, 5 Dec 2020 05:42:33 +0100 [thread overview]
Message-ID: <trinity-164bdcea-ca22-4249-8cb8-9114a7d67f9e-1607143352945@3c-app-mailcom-bs04> (raw)
In-Reply-To: <X8njAxyR6W9Jf5zu@protected.rcdrun.com>
Have tried using your suggestion. The file is being created
with the correct information. However, when the code gets to
option 3, the Mode Line is not being reverted to its original
state.
Daniela
(defun change-mode-line (n)
"Toggles Mode Line Information."
(make-local-variable 'mode-line-position)
(make-local-variable 'line-number-mode)
(make-local-variable 'column-number-mode)
(make-local-variable 'mode-line-modes)
(make-local-variable 'mode-line-format)
(make-local-variable 'original-mode-line-format)
(make-local-variable 'mode-line-format)
(cond
((= n 1)
;; Store current value of mode-line-format
(setq original-mode-line-format mode-line-format)
(data-to-file
mode-line-format "~/.emacs.d/mode-line-frmt.el")
(setq mode-line-position nil)
(setq line-number-mode nil)
(setq column-number-mode nil)
(setq mode-line-modes nil)
;; Set format and discard System Load Averages indicator
(setq display-time-format "W%W %H:%M")
(make-local-variable 'display-time-default-load-average)
(setq display-time-default-load-average nil)
(display-time))
((= n 2)
(setq display-time-format "W%W %H:%M %a %b %d %Y")
(display-time))
((= n 3)
;; Put original mode-line-format
(message "Doing 3")
;(setq mode-line-position t)
;(setq line-number-mode t)
;(setq column-number-mode t)
;(setq mode-line-modes t)
;(make-local-variable 'display-time-default-load-average)
;(setq display-time-default-load-average t)
;(display-time)
(setq mode-line-format
(data-from-file "~/.emacs.d/mode-line-frmt.el"))
)))
(defun time-frmt-cycle ()
(interactive)
(unless (get 'time-frmt-cycle 'state)
(put 'time-frmt-cycle 'state 1))
(setq n (get 'time-frmt-cycle 'state))
(when (= n 1)
(change-mode-line 1)
(put 'time-frmt-cycle 'state 2))
(when (= n 2)
(change-mode-line 2)
(put 'time-frmt-cycle 'state 3))
(when (= n 3)
(message "3")
(change-mode-line 3)
(put 'time-frmt-cycle 'state 1)) )
(global-set-key (kbd "H-i H-i") #'time-frmt-cycle)
> Sent: Friday, December 04, 2020 at 8:19 AM
> From: "Jean Louis" <bugs@gnu.support>
> To: daniela-spit@gmx.it
> Cc: "Christopher Dimech" <dimech@gmx.com>, "Michael Heerdegen" <michael_heerdegen@web.de>, help-gnu-emacs@gnu.org
> Subject: Re: Removing line and column number settings from some buffers
>
> (make-local-variable 'anything-here) will work, but toggle-mode-line
> is function and not variable
>
> * daniela-spit@gmx.it <daniela-spit@gmx.it> [2020-12-04 08:58]:
> > There is something wrong in resetting the mode line, after trying to save the
> > original value. Michael has said that code only works if evaluated in a buffer.
> >
> > Would there be some other call to use?
> >
> > (defun toggle-mode-line (n)
> > "Changes Mode Line Information."
> >
> > (make-local-variable 'mode-line-position)
> > (make-local-variable 'line-number-mode)
> > (make-local-variable 'column-number-mode)
> > (make-local-variable 'mode-line-modes)
> > (make-local-variable 'mode-line-format)
> > (make-local-variable 'original-mode-line-format)
> > (make-local-variable 'mode-line-format)
> >
> > (cond
> > ((= n 1)
> > ;; Store current value of mode-line-format
> > (setq original-mode-line-format mode-line-format)
> >
> > (setq mode-line-position nil)
> > (setq line-number-mode nil)
> > (setq column-number-mode nil)
> > (setq mode-line-modes nil)
> >
> > ;; Set format and discard System Load Averages indicator
> > (setq display-time-format "W%W %H:%M")
> > (make-local-variable 'display-time-default-load-average)
> > (setq display-time-default-load-average nil)
> >
> > (display-time))
> >
> > ((= n 2)
> > (setq display-time-format "W%W %H:%M %a %b %d %Y")
> > (display-time))
> >
> > ((= n 3)
> > ;; Put original mode-line-format
> > (setq mode-line-position t)
> > (setq line-number-mode t)
> > (setq column-number-mode t)
> > (setq mode-line-modes t)
> >
> > (setq mode-line-format original-mode-line-format)
> > (force-mode-line-update)) ))
> >
> > (make-local-variable 'toggle-mode-line)
>
next prev parent reply other threads:[~2020-12-05 4:42 UTC|newest]
Thread overview: 45+ messages / expand[flat|nested] mbox.gz Atom feed top
2020-12-02 15:34 Removing line and column number settings from some buffers daniela-spit
2020-12-02 21:18 ` Emanuel Berg via Users list for the GNU Emacs text editor
2020-12-02 23:21 ` daniela-spit
2020-12-02 23:28 ` Emanuel Berg via Users list for the GNU Emacs text editor
2020-12-02 23:32 ` daniela-spit
2020-12-02 23:56 ` Emanuel Berg via Users list for the GNU Emacs text editor
2020-12-02 23:57 ` daniela-spit
2020-12-03 0:04 ` Emanuel Berg via Users list for the GNU Emacs text editor
2020-12-03 22:14 ` Michael Heerdegen
2020-12-03 22:19 ` daniela-spit
2020-12-03 22:22 ` Jean Louis
2020-12-03 22:33 ` daniela-spit
2020-12-03 22:52 ` Jean Louis
2020-12-03 23:09 ` daniela-spit
2020-12-04 0:38 ` Christopher Dimech
2020-12-04 1:16 ` Michael Heerdegen
2020-12-04 1:33 ` Christopher Dimech
2020-12-04 2:10 ` daniela-spit
2020-12-04 2:42 ` Christopher Dimech
2020-12-04 6:10 ` Jean Louis
2020-12-04 6:31 ` Christopher Dimech
2020-12-04 8:40 ` Eli Zaretskii
2020-12-05 5:13 ` Christopher Dimech
2020-12-05 15:41 ` Drew Adams
2020-12-05 17:58 ` Jean Louis
2020-12-05 18:16 ` Drew Adams
2020-12-05 18:57 ` Jean Louis
2020-12-04 2:46 ` Michael Heerdegen
2020-12-04 3:12 ` Christopher Dimech
2020-12-04 4:16 ` daniela-spit
2020-12-04 4:36 ` daniela-spit
2020-12-04 5:58 ` daniela-spit
2020-12-04 7:19 ` Jean Louis
2020-12-05 4:42 ` daniela-spit [this message]
2020-12-05 21:32 ` Michael Heerdegen
2020-12-05 21:35 ` Michael Heerdegen
2020-12-05 22:54 ` daniela-spit
2020-12-05 22:57 ` Drew Adams
2020-12-05 23:05 ` daniela-spit
2020-12-05 23:37 ` Drew Adams
2020-12-05 23:53 ` daniela-spit
2020-12-04 7:40 ` Jean Louis
2020-12-04 6:07 ` Jean Louis
2020-12-03 23:24 ` Michael Heerdegen
2020-12-03 23:36 ` daniela-spit
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=trinity-164bdcea-ca22-4249-8cb8-9114a7d67f9e-1607143352945@3c-app-mailcom-bs04 \
--to=daniela-spit@gmx.it \
--cc=bugs@gnu.support \
--cc=help-gnu-emacs@gnu.org \
--cc=michael_heerdegen@web.de \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.