[elpa] externals/ergoemacs-mode 2f6dcd0 184/325: Remove some translation stuff

[Stefan Monnier]

branch: externals/ergoemacs-mode
commit 2f6dcd07a7534ab9abac8386bdad72f2dc18d2d6
Author: Walter Landry <wlandry@caltech.edu>
Commit: Walter Landry <wlandry@caltech.edu>

    Remove some translation stuff
---
 ergoemacs-macros.el | 34 ----------------------------------
 ergoemacs-themes.el |  7 -------
 2 files changed, 41 deletions(-)

diff --git a/ergoemacs-macros.el b/ergoemacs-macros.el
index e25e442..45632db 100644
--- a/ergoemacs-macros.el
+++ b/ergoemacs-macros.el
@@ -748,40 +748,6 @@ When arg1 can be a property.  The following properties are 
supported:
       `(ergoemacs-map-- ,arg1)))))
 
 ;;;###autoload
-(defmacro ergoemacs-translation (&rest body-and-plist)
-  "Defines an `ergoemacs-mode' translation.
-
-:text -- Text to display while completing this translation
-:keymap -- Local Keymap for translation
-:keymap-modal -- Modal keymap for overrides.
-:modal-always -- If the modal state is always on, regardless of
-                 the values of `minibufferp'
-The following arguments allow the keyboard presses to be translated:
- - :meta
- - :control
- - :shift
- - :meta-control
- - :meta-shift
- - :control-shift
- - :meta-control-shift
- - :unchorded (no modifiers)
-
-This also creates functions:
-- ergoemacs-translate--NAME-universal-argument
-- ergoemacs-translate--NAME-digit-argument
-- ergoemacs-translate--NAME-negative-argument
-- ergoemacs-translate--NAME-modal"
-  (declare (doc-string 2)
-           (indent 2))
-  (let ((kb (make-symbol "kb")))
-    (setq kb (ergoemacs-theme-component--parse-keys-and-body body-and-plist))
-    
-    `(progn (puthash ,(intern (concat ":" (plist-get (nth 0 kb) ':name)))
-                     (lambda() ,(plist-get (nth 0 kb) ':description)
-                       (ergoemacs-translate--create :key ,(intern (concat ":" 
(plist-get (nth 0 kb) ':name)))
-                                                    ,@(nth 0 kb))) 
ergoemacs-translation-hash))))
-
-;;;###autoload
 (defmacro ergoemacs-advice (function args &rest body-and-plist)
   "Defines an `ergoemacs-mode' advice.
 
diff --git a/ergoemacs-themes.el b/ergoemacs-themes.el
index 81fb59d..a0ceefa 100644
--- a/ergoemacs-themes.el
+++ b/ergoemacs-themes.el
@@ -1279,11 +1279,4 @@ keys (e.g. M-O A == <up>) or regular M-O keybinding."
   )
 (add-hook 'calc-load-hook #'ergoemacs-install-calc-bindings)
 
-(ergoemacs-translation normal ()
-  "Identify transformation"
-  :keymap (let ((map (make-sparse-keymap)))
-            (define-key map [f1] 'ergoemacs-read-key-help)
-            (define-key map (read-kbd-macro "C-h") 'ergoemacs-read-key-help)
-            map))
-
 (provide 'ergoemacs-themes)