LINUX.ORG.RU
Форум — General  

sawfish


0

0

Где у sawfish файл с меню?
В HOME есть только .sawfish/custom, в нем ничего нет.
В /usr/share/sawfish тоже ничего подходящего не нашел.

Маожно ли сделать так, чтобы меню появлялось не по нажатию колеса, по нажатию правой кнопки?

anonymous
← Виснут иксы
pdf, lor faq → 

(require 'sawfish.wm.menus)

(setq my-menu
      '(("_XTerm" (system "xterm &"))
        ("XTerm (_sudo)" (system "xterm -name sudo -cr red -e sudo zsh &"))
        ("_UXterm" (system "uxterm -e bash &"))
        ()
        ("X_Emacs" (system "xemacs &"))
        ()
        ("_Firefox" (system "/opt/firefox/firefox &"))
        ("_Tkabber" (system "tkabber &"))
        ("E_Links" (system "xterm -name elinks -e elinks &"))
        ()
        ("_Restart" (restart))
        ("_Quit" (quit))))

(bind-keys root-window-keymap "Button3-Click1" `(popup-menu my-menu))

human0id ★★★
()
Ответ на: комментарий от human0id

Раз уж вы знаток лиспа...

- как делать вложенное меню
- как сделать прокручивание рабочих столов колесиком мышки?

anonymous
()
Ответ на: комментарий от anonymous 

> - как делать вложенное меню 

Вообще-то я ошибся, меню нужно объявлять с помощью defvar, а не setq.

Поэтому, правильно так:

(defvar foo-menu 
      '(("foo" (system "foo &"))
        ("bar" (system "bar &"))))

(defvar bla-menu 
      '(("XTERM" (system "xterm &"))
        ()
        ("Foo-menu" . foo-menu)
        ("QUIT" (quit))))

Меню foo-menu - вложенное.

> - как сделать прокручивание рабочих столов колесиком мышки?

(bind-keys global-keymap "Button4-click1" `(previous-workspace 1))
(bind-keys global-keymap "Button5-click1" `(next-workspace 1))

human0id ★★★
()
Ответ на: комментарий от anonymous

Как-то он рывками переключает. Бывает пропускает прокручивание...

burzum
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
← Виснут иксы
General
pdf, lor faq →