From: Stefan Monnier <monnier@iro.umontreal.ca>
To: emacs-devel@gnu.org
Subject: Re: mykie.el
Date: Fri, 03 Jan 2014 23:34:01 -0500 [thread overview]
Message-ID: <jwv7gagpe86.fsf-monnier+emacs@gnu.org> (raw)
In-Reply-To: <87bnzshlo5.fsf@flea.lifelogs.com> (Ted Zlatanov's message of "Fri, 03 Jan 2014 15:09:46 -0500")
> Here's an example of context-dependent usage:
> (mykie:global-set-key "C-j"
> :default '(progn
> (delete-trailing-whitespace)
> (case major-mode
> (org-mode (org-return-indent))
> (t (newline-and-indent))))
> :C-u&eolp '(fill-region (point-at-bol) (point-at-eol))
> :region 'query-replace-regexp)
> (many other keywords are available, e.g. :prog for activating only in
> programming modes)
Is that really much better than:
(global-set-key "\C-j"
(lambda ()
(interactive)
(cond
(current-prefix-arg (fill-region (point-at-bol) (point-at-eol)))
((and (use-region-p) (eolp))
(call-interactively 'query-replace-regexp))
(t
(delete-trailing-whitespace)
(case major-mode
(org-mode (org-return-indent))
(t (newline-and-indent)))))))
IIUC the need for "context dependent bindings" becomes more interesting
when you want the different cases to be specified independently.
As in
(my-global-set-key "\C-j"
:predicate current-prefix-arg
:action (fill-region (point-at-bol) (point-at-eol)))
(my-global-set-key "\C-j"
:predicate (and (use-region-p) (eolp))
:action 'query-replace-regexp)
I'm not sure exactly how best to do that, tho.
Stefan
next prev parent reply other threads:[~2014-01-04 4:34 UTC|newest]
Thread overview: 66+ messages / expand[flat|nested] mbox.gz Atom feed top
2014-01-03 20:09 mykie.el Ted Zlatanov
2014-01-03 21:37 ` mykie.el Bozhidar Batsov
2014-01-04 1:08 ` mykie.el Yuta Yamada
2014-01-06 22:47 ` mykie.el, mykie.el Ted Zlatanov
2014-01-06 23:00 ` enable MELPA & Marmalade by defaul [was: mykie.el] Drew Adams
2014-01-06 23:42 ` Óscar Fuentes
2014-01-07 0:29 ` Drew Adams
2014-01-07 1:08 ` Eric Brown
2014-01-07 5:39 ` Drew Adams
2014-01-07 8:33 ` Nic Ferrier
2014-01-07 8:38 ` David Kastrup
2014-01-07 14:41 ` Grim Schjetne
2014-01-07 15:12 ` Stephen Berman
2014-01-07 17:44 ` Drew Adams
2014-01-07 20:55 ` Stephen Berman
2014-01-08 11:52 ` Tassilo Horn
2014-01-08 13:19 ` David Kastrup
2014-01-08 14:02 ` Stefan Monnier
2014-01-08 17:19 ` enable MELPA & Marmalade by defaul Glenn Morris
2014-01-07 17:44 ` enable MELPA & Marmalade by defaul [was: mykie.el] Drew Adams
2014-01-08 3:41 ` Richard Stallman
2014-01-08 4:26 ` Bob Bobeck
2014-01-08 10:50 ` Nic Ferrier
2014-01-08 17:54 ` Achim Gratz
2014-01-09 3:00 ` Andy Moreton
2014-01-09 6:55 ` Nic Ferrier
2014-01-09 7:55 ` Tassilo Horn
2014-01-09 11:24 ` chad
2014-01-09 18:15 ` Achim Gratz
2014-01-08 3:23 ` Stephen J. Turnbull
2014-01-08 10:32 ` David Kastrup
2014-01-07 16:53 ` Richard Stallman
2014-01-08 3:15 ` Stephen J. Turnbull
2014-01-08 9:27 ` Richard Stallman
[not found] ` <<a62bb795-44d9-44dd-b17a-d5294c21d2b0@default>
[not found] ` <<E1W0Zto-0000A5-VX@fencepost.gnu.org>
2014-01-07 17:44 ` Drew Adams
2014-01-07 16:16 ` Ted Zlatanov
2014-01-07 17:44 ` Drew Adams
2014-01-08 3:41 ` Richard Stallman
2014-01-04 2:02 ` mykie.el Yuta Yamada
2014-01-04 4:34 ` Stefan Monnier [this message]
2014-01-04 8:36 ` mykie.el Leo Liu
2014-01-05 8:10 ` mykie.el Mitchel Humpherys
2014-01-05 10:29 ` mykie.el Leo Liu
2014-01-06 16:09 ` mykie.el Nicolas Richard
2014-01-06 22:38 ` mykie.el Ted Zlatanov
2014-01-07 0:37 ` mykie.el Stefan Monnier
2014-01-07 23:21 ` mykie.el Ted Zlatanov
2014-01-08 3:24 ` mykie.el Stefan Monnier
2014-01-08 15:44 ` mykie.el Ted Zlatanov
2014-01-08 16:11 ` mykie.el Stefan Monnier
2014-01-08 16:38 ` mykie.el Ted Zlatanov
2014-01-08 17:24 ` mykie.el Stefan Monnier
2014-01-09 8:13 ` mykie.el Tassilo Horn
2014-01-09 15:29 ` mykie.el Stefan Monnier
2014-01-09 18:43 ` mykie.el Yuta Yamada
2014-01-11 20:23 ` mykie.el Yuta Yamada
2014-01-12 14:45 ` mykie.el Stefan Monnier
2014-01-12 18:32 ` mykie.el Yuta Yamada
2014-01-12 19:46 ` mykie.el Stefan Monnier
2014-01-12 22:51 ` mykie.el Yuta Yamada
2014-01-13 3:38 ` mykie.el Stefan Monnier
2014-01-13 4:59 ` mykie.el Yuta Yamada
2014-01-13 14:03 ` mykie.el Stefan Monnier
2014-01-13 16:09 ` mykie.el Yuta Yamada
2014-01-08 21:21 ` mykie.el Yuta Yamada
2014-01-06 5:31 ` mykie.el Yuta Yamada
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=jwv7gagpe86.fsf-monnier+emacs@gnu.org \
--to=monnier@iro.umontreal.ca \
--cc=emacs-devel@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.