Re: Combine 2 commands in a toggle-function

[Andreas Röhler]

Am 13.10.2012 11:54, schrieb Martin Butz:
> Pete,
>
> thanks. So far I know what to do. What I do not now is, how to combine the two 
> commands in one function, in order to toggle them. A hint would be helpful.
>
> Greetings
> Martin
>
> Am 13.10.2012 11:06, schrieb Martin Butz:
> > Hi,
> >
> > as my lisp-knowledge is less than basic (up to now), I wonder if someone
> > can help:
> >
> > I would like to create a toggle function binded to a key and combining
> > two commands, such as:
> >
> > 'escreen-menu [1]
> > 'kill-buffer-other-window
> >
> > Martin
> >
> > [1] I quite like escreen, but calling the menu leaves me with a new
> > frame an a buffer, which I only need temporarily for reference. I do not
> > know an escreen function, which does close the menu (such as /q/ closing
> > the agenda in org-mode)

maybe like this:

(defvar my-toggled-commands-p nil
  "When switched on, commands are run ")

(defun my-commands-toggle ()
  (interactive)
  (if my-toggled-commands-p
      (progn
        (setq my-toggled-commands-p nil)
        (message "%s" "my-toggled-commands-p switched off"))
    (message "%s" "Running my-toggled-commands")
    (setq my-toggled-commands-p t)
    (funcall 'FIRST)
    (funcall 'SECOND)))


WRT the the function called, you might need to figure out the details, which 
arguments to pass etc.

Andreas