Re: Add moc to Non-GNU ELPA

[Eduardo Ochs <eduardoochs@gmail.com>]

On Tue, 17 Dec 2024 at 02:03, Psionic K <psionik@positron.solutions> wrote:
>
> > Can you please explain what Delide does?
>
> Present anything Emacs can do with programmable, extensible, configurable slides & presentation steps made from org mode headings
>
> Longer introductions are available in the documentation:
> https://raw.githubusercontent.com/positron-solutions/dslide/refs/heads/unstable/doc/README.org
> https://raw.githubusercontent.com/positron-solutions/dslide/refs/heads/unstable/doc/manual.org
>
> The latest (upcoming) changes are available via the news file:
> https://raw.githubusercontent.com/positron-solutions/dslide/refs/heads/unstable/NEWS.org
>
> You can install it from Non-GNU ELPA.  The package symbol is dslide.


Hi Psionic,

I was trying to find your code for playing back macros with pauses
between certain keys and I found this,

  https://github.com/positron-solutions/dslide/issues/18

that gave me the impression that this is a planned feature, not
implemented yet...

I am trying to do something similar, but I am looking for a minimal
solution that fits in a few lines of code. What I currently have is
this:

  http://anggtwu.net/eev-current/eev-blinks.el.html#eek2

Here is its code:

  (defun eek2 (str &optional norecord)
    "Execute STR as a keyboard macro. See `edmacro-mode' for the exact format.\n
  This is a variant of `eek' that pushes events into `unread-command-events'.
  An example: (eek2 \"C-x 4 C-h\")"
    (interactive "sKeys: ")
    (setq unread-command-events
          (nconc unread-command-events (ee-eek2 str))))

  (defun ee-eek2 (str &optional norecord)
    "An internal function used by `eek2'."
    (cl-loop for ev in (listify-key-sequence (read-kbd-macro str))
             collect (cons (or norecord t) ev)))

If we run

  (eek2 "RET Hello")

it plays back RET, `H', `e', `l', `l', `o', and if we run this

  (ee-eek2 "RET Hello")

is shows the events that eek2 would push into `unread-command-events',
that are:

  '((t . 13) (t . ?H) (t . ?e) (t . ?l) (t . ?l) (t . ?o))

How would you implement pauses? Any pointers would help me very much!
Thanks in advance,

  Eduardo Ochs
  http://anggtwu.net/emacsconf2024.html