[Emacs-diffs] trunk r113298: lisp/simple.el (alternatives-define): New macro.

[Juanma Barranquero]

------------------------------------------------------------
revno: 113298
revision-id: address@hidden
parent: address@hidden
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Sat 2013-07-06 11:35:37 +0200
message:
  lisp/simple.el (alternatives-define): New macro.
  etc/NEWS: Document new "generic commands" support.
modified:
  etc/ChangeLog                  changelog-20091113204419-o5vbwnq5f7feedwu-1485
  etc/NEWS                       news-20100311060928-aoit31wvzf25yr1z-1
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/simple.el                 simple.el-20091113204419-o5vbwnq5f7feedwu-403

=== modified file 'etc/ChangeLog'
--- a/etc/ChangeLog     2013-06-27 09:08:14 +0000
+++ b/etc/ChangeLog     2013-07-06 09:35:37 +0000
@@ -1,3 +1,7 @@
+2013-07-06  Juanma Barranquero  <address@hidden>
+
+       * NEWS: Document new "generic commands" support.
+
 2013-06-27  Juanma Barranquero  <address@hidden>
 
        * NEWS: Document new Desktop option `desktop-save-windows'.

=== modified file 'etc/NEWS'
--- a/etc/NEWS  2013-07-04 10:25:54 +0000
+++ b/etc/NEWS  2013-07-06 09:35:37 +0000
@@ -133,6 +133,10 @@
 `x-display-pixel-width', `x-display-pixel-height', `display-mm-width',
 `display-mm-height', `x-display-mm-width', and `x-display-mm-height'.
 
+** New macro `alternatives-define' can be used to define generic commands.
+Generic commands are interactive functions whose implementation can be
+selected among several alternatives, as a matter of user preference.
+
 
 * Editing Changes in Emacs 24.4
 

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-07-06 00:10:54 +0000
+++ b/lisp/ChangeLog    2013-07-06 09:35:37 +0000
@@ -1,3 +1,7 @@
+2013-07-06  Juanma Barranquero  <address@hidden>
+
+       * simple.el (alternatives-define): New macro.
+
 2013-07-06  Stefan Monnier  <address@hidden>
 
        * subr.el (read-quoted-char): Use read-key.

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2013-06-26 00:50:50 +0000
+++ b/lisp/simple.el    2013-07-06 09:35:37 +0000
@@ -7346,6 +7346,67 @@
     (with-eval-after-load pkg
       (bad-package-check pkg))))
 
+
+;;; Generic dispatcher commands
+
+;; Macro `alternatives-define' is used to create generic commands.
+;; Generic commands are these (like web, mail, news, encrypt, irc, etc.)
+;; that can have different alternative implementations where choosing
+;; among them is exclusively a matter of user preference.
+
+;; (alternatives-define COMMAND) creates a new interactive command
+;; M-x COMMAND and a customizable variable COMMAND-alternatives.
+;; Typically, the user will not need to customize this variable; packages
+;; wanting to add alternative implementations should use
+;;
+;; ;;;###autoload (push '("My impl name" . my-impl-symbol) COMMAND-alternatives
+
+(defmacro alternatives-define (command &rest customizations)
+  "Define new command `COMMAND'.
+The variable `COMMAND-alternatives' will contain alternative
+implementations of COMMAND, so that running `C-u M-x COMMAND'
+will allow the user to chose among them.
+CUSTOMIZATIONS, if non-nil, should be composed of alternating
+`defcustom' keywords and values to add to the declaration of
+`COMMAND-alternatives' (typically to add new groups)."
+  (let* ((command-name (symbol-name command))
+         (varalt-name (concat command-name "-alternatives"))
+         (varalt-sym (intern varalt-name))
+         (varimp-sym (intern (concat command-name "--implementation"))))
+    `(progn
+
+       (defcustom ,varalt-sym nil
+         ,(format "Alist of alternative implementations for the `%s' command.
+
+Each entry must be a pair (ALTNAME . ALTFUN), where:
+ALTNAME - The name shown at user to describe the alternative implementation.
+ALTFUN  - The function called to implement this alternative."
+                  command-name)
+         :type '(alist :key-type string :value-type function)
+         :group 'dispatcher
+         ,@customizations)
+
+       (defvar ,varimp-sym nil "Internal use only.")
+
+       (defun ,command (&optional arg)
+         ,(format "Run generic command `%s'.
+If used for the first time, or with interactive ARG, ask the user which
+implementation to use for `%s'.  The variable `%s'
+contains the list of implementations currently supported for this command."
+                  command-name command-name varalt-name)
+         (interactive "P")
+         (when (or arg (null ,varimp-sym))
+           (let ((val (completing-read
+                       ,(format "Select implementation for command `%s': " 
command-name)
+                       ,varalt-sym nil t)))
+             (unless (string-equal val "")
+               (customize-save-variable ',varimp-sym
+                                        (cdr (assoc-string val 
,varalt-sym))))))
+         (if ,varimp-sym
+             (funcall ,varimp-sym)
+           (message ,(format "No implementation selected for command `%s'"
+                             command-name)))))))
+
 (provide 'simple)
 
 ;;; simple.el ends here