Re: mykie.el

[Stefan Monnier]

> 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