* Minibuffer selection that changes cursor-type
@ 2022-06-12 10:31 carlmarcos--- via Users list for the GNU Emacs text editor
[not found] ` <N4MSvyd--F-2@tutanota.com-N4MT1CU----2>
0 siblings, 1 reply; 3+ messages in thread
From: carlmarcos--- via Users list for the GNU Emacs text editor @ 2022-06-12 10:31 UTC (permalink / raw)
To: Help Gnu Emacs
Would like to change cursor-type by selecting type in the minibuffer. What can I do?
^ permalink raw reply [flat|nested] 3+ messages in thread[parent not found: <N4MSvyd--F-2@tutanota.com-N4MT1CU----2>]
* Re: Minibuffer selection that changes cursor-type [not found] ` <N4MSvyd--F-2@tutanota.com-N4MT1CU----2> @ 2022-06-12 11:21 ` carlmarcos--- via Users list for the GNU Emacs text editor 2022-06-12 11:58 ` goncholden 0 siblings, 1 reply; 3+ messages in thread From: carlmarcos--- via Users list for the GNU Emacs text editor @ 2022-06-12 11:21 UTC (permalink / raw) To: carlmarcos; +Cc: Help Gnu Emacs Jun 12, 2022, 10:31 by help-gnu-emacs@gnu.org: > Would like to change cursor-type by selecting type in the minibuffer. What can I do? > Started like this, Need to select from minibuffer to call the set-default commands. (defun cursort () "" (interactive) (completing-read "Chose one: " '(("find-file" . 'find-file) ("switch-to-buffer" . 'switch-to-buffer)))) (set-default 'cursor-type 'box) (set-default 'cursor-type 'hollow) (set-default 'cursor-type 'bar) (set-default 'cursor-type 'hbar)) ^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: Minibuffer selection that changes cursor-type 2022-06-12 11:21 ` carlmarcos--- via Users list for the GNU Emacs text editor @ 2022-06-12 11:58 ` goncholden 0 siblings, 0 replies; 3+ messages in thread From: goncholden @ 2022-06-12 11:58 UTC (permalink / raw) To: carlmarcos; +Cc: Help Gnu Emacs ------- Original Message ------- On Sunday, June 12th, 2022 at 11:21 PM, carlmarcos--- via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org> wrote: > Jun 12, 2022, 10:31 by help-gnu-emacs@gnu.org: > > > Would like to change cursor-type by selecting type in the minibuffer. What can I do? > > Started like this, Need to select from minibuffer to call the set-default commands. > > (defun cursort () > "" > (interactive) > (completing-read "Chose one: " > '(("find-file" . 'find-file) > ("switch-to-buffer" . 'switch-to-buffer)))) > > (set-default 'cursor-type 'box) > (set-default 'cursor-type 'hollow) > (set-default 'cursor-type 'bar) > (set-default 'cursor-type 'hbar)) (defun typex-cursor () "Modify the cursor form. M-x typex-cursor Select cursor choice from list using arrow keys (up, down). Hit RETURN key." (interactive) (let* ( (cser '("box" "hollow" "bar" "hbar")) (csel (completing-read "Cursor: " cser nil t)) ) (pcase csel ("box" (set-default 'cursor-type 'box)) ("hollow" (set-default 'cursor-type 'hollow)) ("bar" (set-default 'cursor-type 'bar)) ("hbar" (set-default 'cursor-type 'hbar))) )) ^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2022-06-12 11:58 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2022-06-12 10:31 Minibuffer selection that changes cursor-type carlmarcos--- via Users list for the GNU Emacs text editor
[not found] ` <N4MSvyd--F-2@tutanota.com-N4MT1CU----2>
2022-06-12 11:21 ` carlmarcos--- via Users list for the GNU Emacs text editor
2022-06-12 11:58 ` goncholden
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 read-only IMAP folder(s) and NNTP newsgroup(s).