From: Heime <heimeborgia@protonmail.com>
To: Heime via Users list for the GNU Emacs text editor
<help-gnu-emacs@gnu.org>
Subject: Changes to mode-line-format for non-truncated buffer identification
Date: Tue, 23 Jul 2024 19:09:45 +0000 [thread overview]
Message-ID: <CPaFkC3VTcokTIyd3QI0o1DL0z9r-8UaRJL4Wk0dZwac-3W1PVlhvrEgykbTiN-ocsuf-EPvzAMEU2cbDtjRcVgLUAy7KjVOsQqDd0bo-7w=@protonmail.com> (raw)
I want to change the modeline so that the buffer identification
is not truncated. Have copied the text properties from position
0, and set 'local-map . Finally changing mode-line-format.
I am doing things correctly this way, or does the code require changes?
(defun vodil-buffer-name ()
(format " %s " (buffer-name)))
(defun vodil-face ()
(if (mode-line-window-selected-p)
'vodil-active-facespk
'vodil-inaktv-facespk))
(defface vodil-mouse-facespk
`((t :background ,vodil-white
:foreground ,vodil-orange-red)))
(defun vodil-bfgestion ()
(format-mode-line mode-line-buffer-identification))
(defun vodil-properties ()
(text-properties-at 0 (vodil-bfgestion)))
(defvar-local vodil-panel
'(:eval
(let ((propiets (vodil-properties)))
(apply 'propertize
(vodil-buffer-name)
(append propiets
(list 'face (vodil-face)
'mouse-face 'vodil-mouse-facespk
'local-map
(get-text-property 0 'local-map
(vodil-bfgestion))))))))
(setq-default mode-line-format '( "%e" vodil-panel))
reply other threads:[~2024-07-23 19:09 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
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='CPaFkC3VTcokTIyd3QI0o1DL0z9r-8UaRJL4Wk0dZwac-3W1PVlhvrEgykbTiN-ocsuf-EPvzAMEU2cbDtjRcVgLUAy7KjVOsQqDd0bo-7w=@protonmail.com' \
--to=heimeborgia@protonmail.com \
--cc=help-gnu-emacs@gnu.org \
/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.