Re: Combine 2 commands in a toggle-function

["Andreas Röhler" <andreas.roehler@easy-emacs.de>]

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