`("Riece"
["Version" riece-version t]
"----"
- ["Change Window Layout"
- riece-command-change-layout t]
+ ("Change Window Layout..." :filter riece-menu-create-layouts-menu)
["Toggle Freeze Channel Buffer"
riece-command-toggle-freeze t]
["Toggle Freeze Channel Buffer Until Next Message"
"----"
["Join Channel" riece-command-join t]
["Change Nickname" riece-command-change-nickname t]
+ ["Mark As Away" riece-command-toggle-away t]
["Quit IRC" riece-command-quit t]
"----"
+ ["Part Channel" riece-command-part riece-current-channel]
+ ["Set Channel Topic" riece-command-topic riece-current-channel]
+ ["Kick User" riece-command-kick riece-current-channel]
+ ["Invite User" riece-command-invite riece-current-channel]
+ "----"
("Channels" :filter riece-menu-create-channels-menu)
("Servers" :filter riece-menu-create-servers-menu))
"Menu used in command mode.")
+(defun riece-menu-create-layouts-menu (menu)
+ (mapcar (lambda (entry)
+ (vector (car entry) (list 'riece-command-change-layout (car entry))
+ t))
+ riece-layout-alist))
+
(defun riece-menu-create-channels-menu (menu)
(mapcar (lambda (channel)
(list (riece-format-identity channel)