Re: Emacs's Command Frequency and default keyboard shortcuts

Re: Emacs's Command Frequency and default keyboard shortcuts

[Miles Bader]

Pascal Bourguignon <pjb@informatimago.com> writes:
>> Rather have Caps Lock be an additional Control key.  When would you
>> _ever_ need Caps Lock?  The only use I can think of is to appear like
>> an idiot on Usenet, and there are other ways for doing that.
>
> Indeed, like M-x caps-mode RET   HOWDY! ;-)

On that note (only works in Emacs 22):


(define-minor-mode caps-lock-mode
  "When enabled, all self-inserting characters will be converted to uppercase."
  :lighter " CapsLock"
  (if caps-lock-mode
      (local-set-key [remap self-insert-command] 'self-insert-upcased)
    (local-unset-key [remap self-insert-command])))

(defun self-insert-upcased ()
  (interactive)
  (insert (upcase last-input-char)))


[THANKS, KIM, FOR THE WONDERFUL "[REMAP ...]"  KEY-BINDING MECHANISM!!!!]


-Miles
-- 
Suburbia: where they tear out the trees and then name streets after them.

Re: Emacs's Command Frequency and default keyboard shortcuts

[Miles Bader]

I wrote:
> (define-minor-mode caps-lock-mode ...
> (defun self-insert-upcased () ...

Better version of `self-insert-upcased':

(defun self-insert-upcased (arg)
  (interactive "p")
  (setq last-command-char (upcase last-command-char))
  (self-insert-command arg))

-Miles
-- 
Fast, small, soon; pick any 2.

Re: Emacs's Command Frequency and default keyboard shortcuts

[Stefan Monnier]

> (define-minor-mode caps-lock-mode
>   "When enabled, all self-inserting characters will be converted to uppercase."
>   :lighter " CapsLock"
>   (if caps-lock-mode
>       (local-set-key [remap self-insert-command] 'self-insert-upcased)
>     (local-unset-key [remap self-insert-command])))

You mean

  (defvar caps-lock-mode-map
    (let ((map (make-sparse-keymap)))
      (define-key map [remap self-insert-command] 'self-insert-upcased)
      map))
  (define-minor-mode caps-lock-mode
    "When enabled, convert all self-inserting characters to uppercase."
    :lighter " CapsLock")


-- Stefan

Re: Emacs's Command Frequency and default keyboard shortcuts

[Miles Bader]

Stefan Monnier <monnier@iro.umontreal.ca> writes:
> You mean
>
>   (defvar caps-lock-mode-map
>   (define-minor-mode caps-lock-mode

Ah yes indeed!

So now the complete goodness:

(defvar caps-lock-mode-map
  (let ((map (make-sparse-keymap)))
    (define-key map [remap self-insert-command] 'self-insert-upcased)
    map))

(define-minor-mode caps-lock-mode
  "When enabled, convert all self-inserting characters to uppercase."
  :lighter " CapsLock")

(defun self-insert-upcased (arg)
  (interactive "p")
  (setq last-command-char (upcase last-command-char))
  (self-insert-command arg))

-Miles
-- 
.Numeric stability is probably not all that important when you're guessing.

Re: Emacs's Command Frequency and default keyboard shortcuts

[Kim F. Storm]

Miles Bader <miles.bader@necel.com> writes:

> Stefan Monnier <monnier@iro.umontreal.ca> writes:
>> You mean
>>
>>   (defvar caps-lock-mode-map
>>   (define-minor-mode caps-lock-mode
>
> Ah yes indeed!
>
> So now the complete goodness:

Brilliant!

>
> (defvar caps-lock-mode-map
>   (let ((map (make-sparse-keymap)))
>     (define-key map [remap self-insert-command] 'self-insert-upcased)
>     map))
>
> (define-minor-mode caps-lock-mode
>   "When enabled, convert all self-inserting characters to uppercase."
>   :lighter " CapsLock")

I think "CAPS" is better (and shorter :-)

>
> (defun self-insert-upcased (arg)
>   (interactive "p")
>   (setq last-command-char (upcase last-command-char))
>   (self-insert-command arg))

-- 
Kim F. Storm <storm@cua.dk> http://www.cua.dk

Re: Emacs's Command Frequency and default keyboard shortcuts

[David Kastrup]

storm@cua.dk (Kim F. Storm) writes:

> Miles Bader <miles.bader@necel.com> writes:
>>
>> (define-minor-mode caps-lock-mode
>>   "When enabled, convert all self-inserting characters to uppercase."
>>   :lighter " CapsLock")
>
> I think "CAPS" is better (and shorter :-)

I think one should rather uppercase the whole mode line.  Then no
separate lighter is necessary.

-- 
David Kastrup, Kriemhildstr. 15, 44793 Bochum

Re: Emacs's Command Frequency and default keyboard shortcuts

[Kim F. Storm]

David Kastrup <dak@gnu.org> writes:

>> I think "CAPS" is better (and shorter :-)
>
> I think one should rather uppercase the whole mode line.  Then no
> separate lighter is necessary.

And hide it if the cursor moves into invisible text?  :-)

-- 
Kim F. Storm <storm@cua.dk> http://www.cua.dk