Sawfish 窗口管理器的一些东西

LaoLang_cool

Post by pluskid
不知道你所说的界面定制是什么意思。sawfish 有主题，不过由于 sawfish 是个纯粹的窗口管理器，不像 fvwm 、 fluxbox 那样还有任务栏、面板、pager 之类的东西，所以主题也就是一个标题栏吧，其他的东西如果要用也许得使用单独的程序。如果要用面板的话，我推荐一个 fbpanel 。

那pager呢？能不能推荐一些这种小软件之类的。

pluskid

Post by LaoLang_cool
那pager呢？能不能推荐一些这种小软件之类的。

fbpanel 有 pager、taskbar、showdesktop、menu、systrace、clock 的功能，基本上已经全了。其他可以用 xloadimage 来加载桌面背景， xscreensaver 作为屏保，其他基本上没什么了。

pluskid

Post by LaoLang_cool
能给个配置文件来先尝个鲜吗？

我的配置基本上没有什么可以尝的，标题栏隐藏了，没有面板，桌面空空，只是一堆快捷键而已。
我的 ~/.xinitrc

2. #!/bin/sh
4. # Xresource
5. xrdb -merge ${HOME}/.Xresources
7. # keycode map
8. xmodmap ~/.Xmodmap
10. # scim setting
11. export XMODIFIERS=@im=SCIM
12. export GTK_IM_MODULE="scim"
14. exec sawfish

复制代码

我的 .sawfishrc ，估计还是不能直接用的，还有我的一些模块之类的。

2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3. ;; Load up packages
4. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
5. (require 'sawmill-defaults)
6. (setq load-path (cons "~/.sawfish/extensions"
7.                       load-path))
8. (require 'jump-or-exec)
9. (require 'shrink-windows-to-fit-2)
10. (require 'sawfish.wm.commands.move-resize)
11. (require 'iswitch-window)
12. (require 'kid.util.message)
13. (require 'kid.util.key)
14. (require 'sawfish.wm.util.prompt)
15. (require 'kid.util.capture)
17. (defun jump-or-exec-emacs ()
18.   (interactive)
19.   (jump-or-exec "emacs@"                 ; Emacs's title
20.                 (lambda ()                 ; When Emacs isn't running
21.                   (kid-display-message "starting Emacs ...")
22.                   (system "emacs &")
23.                   "sleep 10")
24.                 (lambda (wind)                ; When already focused
25.                   (display-window wind))))
27. (defvar kid-jump-or-exec-list
28.   '(("H-q" "QTerm" "qterm &")
29.     ("H-f" "Firefox" "firefox &")
30.     ("H-t" "^screen$" "urxvt -e screen -xRRS urxvt &")
31.     ("H-g" "gnus@" "emacs --eval \'(setq frame-title-format "gnus@%b")\' -f gnus &")))
33. (bind-keys global-keymap
34.            "H-e" 'jump-or-exec-emacs)
36. (mapc #'(lambda (item)
37.           (bind-keys global-keymap
38.                      (car item)
39.                      `(jump-or-exec ,(cadr item)
40.                                     ,(lambda ()
41.                                              (kid-display-message (concat "starting "
42.                                                                           (caddr item)
43.                                                                           " ..."))
44.                                              (system (caddr item)))
45.                                     ,(lambda (wind)
46.                                              (display-window wind)))))
47.       kid-jump-or-exec-list)
49. ;;; window moving, Use Super-arrow to move window
50. (bind-keys window-keymap
51.            "W-Left" '(let* ((wind (input-focus))
52.                          (pos (window-position wind)))
53.                    (move-window-to wind (- (car pos) 20) (cdr pos))))
54. (bind-keys window-keymap
55.            "W-Right" '(let* ((wind (input-focus))
56.                          (pos (window-position wind)))
57.                    (move-window-to wind (+ (car pos) 20) (cdr pos))))
58. (bind-keys window-keymap
59.            "W-Up" '(let* ((wind (input-focus))
60.                          (pos (window-position wind)))
61.                    (move-window-to wind (car pos) (- (cdr pos) 10))))
62. (bind-keys window-keymap
63.            "W-Down" '(let* ((wind (input-focus))
64.                          (pos (window-position wind)))
65.                    (move-window-to wind (car pos) (+ (cdr pos) 10))))
67. ;;; shrink window
68. (bind-keys window-keymap "M-W-u" 'shrink-window-up)
69. (bind-keys window-keymap "M-W-d" 'shrink-window-down)
71. ;;; resize window
72. (defun kid-resize-window (dir inc)
73.   "Resize focused window"
74.   (interactive)
75.   (let* ((win (input-focus))
76.          (dim (window-dimensions win))
77.          (dimx (car dim))
78.          (dimy (cdr dim)))
79.     (cond ((eq dir 'left) (setq dimx (- dimx inc)))
80.           ((eq dir 'right) (setq dimx (+ dimx inc)))
81.           ((eq dir 'up) (setq dimy (- dimy inc)))
82.           ((eq dir 'down) (setq dimy (+ dimy inc))))
83.     (resize-window-to win dimx dimy)))
84. (bind-keys window-keymap "M-W-Left"
85.            '(kid-resize-window 'left 20))
86. (bind-keys window-keymap "M-W-Right"
87.            '(kid-resize-window 'right 20))
88. (bind-keys window-keymap "M-W-Up"
89.            '(kid-resize-window 'up 20))
90. (bind-keys window-keymap "M-W-Down"
91.            '(kid-resize-window 'down 20))
93. ;;; key bindings
94. (bind-keys window-keymap "W-m" 'maximize-window-toggle)
95. (bind-keys window-keymap "W-p" 'popup-window-menu)
96. (bind-keys window-keymap "W-o" 'delete-window)
98. (bind-keys global-keymap "W-F9" 'run-shell-command)
99. (bind-keys global-keymap "M-W-l" (lambda () (system "xscreensaver-command -lock &")))
100. (bind-keys global-keymap "W-o" (lambda ()
101.                                  (if (eq (length (window-order nil t t)) 0)
102.                                      (quit)
103.                                      (kid-display-message "Please close all windows before quitting sawfish in
104. case there's work not finished in some window..."))))
106. ;; win + click to move window
107. (bind-keys window-keymap "W-Button1-Click1"
108.            #'(lambda ()
109.                (interactive)
110.                (move-window-interactively (current-event-window))))
112. ;;; iswitch-window
113. (bind-keys global-keymap "H-s" 'iswitch-window)
115. ;;; show which key is pressed
116. (kid-bind-keys global-keymap "W-h k" 'kid-show-key)
118. ;;; Start processes and stop them on exit
119. (define kid-startup-programs
120.   '(("xloadimage" "-onroot" "-fullscreen" "/home/kid/.desktop")
121.     ("xscreensaver" "-no-splash")
122.     ("scim" "-d")
123.     ("asclock" "-theme" "/home/kid/.asclock/kid")))
124. (mapc (lambda (program)
125.         (apply start-process (make-process standard-output) program))
126.       kid-startup-programs)
127. (add-hook 'before-exit-hook
128.           (lambda ()
129.             (mapc stop-process (active-processes))))
131. (kid-bind-keys global-keymap "Print" 'kid-capture-current-window)
132. (kid-bind-keys global-keymap "M-Print" 'kid-capture-current-desktop)
133. (kid-bind-keys global-keymap "C-Print" 'kid-capture-region)

复制代码

LaoLang_cool

1. 我运行sawfish-ui提示：
$ sawfish-ui
*** File error: No such file or directory, gui/gtk-2/gtk。
我已装了gtk了。
2. 我以前用的是fvwm（现在也用着~），有点不习惯，按tab+Alt居然没有出现切换菜单的，也不能改变窗口大小，难道这些都不是默认就有的？

3. 我安装了fbpanel，并没有出现pager，不知为什么。

4. sawfish有什么默认的快捷键没有，比如最小化以及最大化等等。

5. 我想实现这样的效果，只有鼠标点击标题栏时，窗口才会上升到最前，平时可以对窗口的其它部位操作并且其不会升至最前。这样在一些情况下是非常有用的。

6. 不知sawfish系统资源占用怎样，我运行了，觉得会有迟顿的感觉，用fvwm时没有，难道是我没有设置好吗（我什么都没设置，用的是默认的配置）。

7. 谢谢！

qobnvi

Post by herberteuler
如果你不是一时心血来潮的话

不好说…………

Post by LaoLang_cool

3. 我安装了fbpanel，并没有出现pager，不知为什么。

我装好后就有了，可以试着设置一下。

sawfish是基于那个图形库的？

herberteuler

Post by qobnvi
不好说…………


我装好后就有了，可以试着设置一下。

sawfish是基于那个图形库的？

无论好说不好说，qobnvi 看到信件了没，在论坛里。

pluskid

Post by LaoLang_cool
1. 我运行sawfish-ui提示：
$ sawfish-ui
*** File error: No such file or directory, gui/gtk-2/gtk。
我已装了gtk了。
2. 我以前用的是fvwm（现在也用着~），有点不习惯，按tab+Alt居然没有出现切换菜单的，也不能改变窗口大小，难道这些都不是默认就有的？

3. 我安装了fbpanel，并没有出现pager，不知为什么。

4. sawfish有什么默认的快捷键没有，比如最小化以及最大化等等。

5. 我想实现这样的效果，只有鼠标点击标题栏时，窗口才会上升到最前，平时可以对窗口的其它部位操作并且其不会升至最前。这样在一些情况下是非常有用的。

6. 不知sawfish系统资源占用怎样，我运行了，觉得会有迟顿的感觉，用fvwm时没有，难道是我没有设置好吗（我什么都没设置，用的是默认的配置）。

7. 谢谢！

1. 我也不清楚怎么回事呀
2. 说过了呀，Sawfish 是很清爽的吧，不过有很多扩展，比如切换窗口可以用 iswitch ，就像 Emacs 里面的 iswitchb 一类的东西一样，非常方便。
3. 这个需要配置的，请参考 fbpanel 的主页上的帮助
4. 不知道，我的快捷键都是我自己绑定的，可惜你不能启动 sawfish-ui ，要不然这些工作都可以在里面方便的配置。
5. 这个我也不清楚，呵呵，我没有标题栏的……
6. 我不觉得很卡呀？这是我的 ps 输出：

1. 
   
2. kid       4351  0.0  1.0  29344  8452 tty1     S    21:29   0:01 sawfish
   

复制代码

pluskid

Post by qobnvi
不好说…………


我装好后就有了，可以试着设置一下。

sawfish是基于那个图形库的？

我想可能是基于 gtk 的吧？因为以前 gnome 就是用的 sawfish 的。

qobnvi

Post by herberteuler
无论好说不好说，qobnvi 看到信件了没，在论坛里。

:beat :beat :beat
巨巨巨巨巨巨巨巨巨巨抱歉，刚才看到……

zengshibin

用sawfish有2个月了,不错.
只是厌倦了那些丑陋的theme,打算什么时候有空自己写一个了.