Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 75 lines (61 sloc) 2.569 kB
d677c46 first revision
sabetts authored
1 ;; -*-lisp-*-
2 ;;
3 ;; Here is a sample .stumpwmrc file
4
5 (in-package :stumpwm)
6
3b99348 * sample-stumpwmrc.lisp: add example of changing prefix key.
sabetts authored
7 ;; change the prefix key to something else
8 (set-prefix-key (kbd "C-z"))
9
669b455 * user.lisp (command): new defstruct
sabetts authored
10 ;; prompt the user for an interactive command. The first arg is an
11 ;; optional initial contents.
7d47c28 deprecate define-stumpwm-command in favor of defcommand
Shawn authored
12 (defcommand colon1 (&optional (initial "")) (:rest)
2dd42fc *** empty log message ***
sabetts authored
13 (let ((cmd (read-one-line (current-screen) ": " initial)))
669b455 * user.lisp (command): new defstruct
sabetts authored
14 (when cmd
9ff9e45 interactive-command renamed to eval-command; new argument "interactivep"
Lionel Flandrin authored
15 (eval-command cmd t))))
669b455 * user.lisp (command): new defstruct
sabetts authored
16
d677c46 first revision
sabetts authored
17 ;; Read some doc
beb11c9 * user.lisp (*root-map*): add bindings for C-c and C-e
sabetts authored
18 (define-key *root-map* (kbd "d") "exec gv")
d677c46 first revision
sabetts authored
19 ;; Browse somewhere
beb11c9 * user.lisp (*root-map*): add bindings for C-c and C-e
sabetts authored
20 (define-key *root-map* (kbd "b") "colon1 exec firefox http://www.")
d677c46 first revision
sabetts authored
21 ;; Ssh somewhere
beb11c9 * user.lisp (*root-map*): add bindings for C-c and C-e
sabetts authored
22 (define-key *root-map* (kbd "C-s") "colon1 exec xterm -e ssh ")
d677c46 first revision
sabetts authored
23 ;; Lock screen
beb11c9 * user.lisp (*root-map*): add bindings for C-c and C-e
sabetts authored
24 (define-key *root-map* (kbd "C-l") "exec xlock")
669b455 * user.lisp (command): new defstruct
sabetts authored
25
26 ;; Web jump (works for Google and Imdb)
27 (defmacro make-web-jump (name prefix)
7d47c28 deprecate define-stumpwm-command in favor of defcommand
Shawn authored
28 `(defcommand ,name (search) ((:rest ,(concatenate 'string name " search: ")))
112ed43 Global whitespace cleanup.
Jonathan Moore Liles authored
29 (substitute #\+ #\Space search)
30 (run-shell-command (concatenate 'string ,prefix search))))
669b455 * user.lisp (command): new defstruct
sabetts authored
31
32 (make-web-jump "google" "firefox http://www.google.fr/search?q=")
33 (make-web-jump "imdb" "firefox http://www.imdb.com/find?q=")
d677c46 first revision
sabetts authored
34
a0e78d1 *** empty log message ***
sabetts authored
35 ;; C-t M-s is a terrble binding, but you get the idea.
36 (define-key *root-map* (kbd "M-s") "google")
beb11c9 * user.lisp (*root-map*): add bindings for C-c and C-e
sabetts authored
37 (define-key *root-map* (kbd "i") "imdb")
d677c46 first revision
sabetts authored
38
39 ;; Message window font
2dd42fc *** empty log message ***
sabetts authored
40 (set-font "-xos4-terminus-medium-r-normal--14-140-72-72-c-80-iso8859-15")
0a131a3 Added rule based window placement.
Jonathan Moore Liles authored
41
42 ;;; Define window placement policy...
43
44 ;; Clear rules
36e9ba0 @sabetts verify the structure is correct in define-frame-preferences
sabetts authored
45 (clear-window-placement-rules)
0a131a3 Added rule based window placement.
Jonathan Moore Liles authored
46
776a041 @sabetts minor patching up of window placement code and improved frame dumping
sabetts authored
47 ;; Last rule to match takes precedence!
48 ;; TIP: if the argument to :title or :role begins with an ellipsis, a substring
49 ;; match is performed.
bdbf07c Added support for automatic group creation and/or restoration.
Morgan Veyret authored
50 ;; TIP: if the :create flag is set then a missing group will be created and
51 ;; restored from *data-dir*/create file.
52 ;; TIP: if the :restore flag is set then group dump is restored even for an
53 ;; existing group using *data-dir*/restore file.
0a131a3 Added rule based window placement.
Jonathan Moore Liles authored
54 (define-frame-preference "Default"
36e9ba0 @sabetts verify the structure is correct in define-frame-preferences
sabetts authored
55 ;; frame raise lock (lock AND raise == jumpto)
56 (0 t nil :class "Konqueror" :role "...konqueror-mainwindow")
776a041 @sabetts minor patching up of window placement code and improved frame dumping
sabetts authored
57 (1 t nil :class "XTerm"))
0a131a3 Added rule based window placement.
Jonathan Moore Liles authored
58
59 (define-frame-preference "Ardour"
36e9ba0 @sabetts verify the structure is correct in define-frame-preferences
sabetts authored
60 (0 t t :instance "ardour_editor" :type :normal)
776a041 @sabetts minor patching up of window placement code and improved frame dumping
sabetts authored
61 (0 t t :title "Ardour - Session Control")
62 (0 nil nil :class "XTerm")
63 (1 t nil :type :normal)
64 (1 t t :instance "ardour_mixer")
65 (2 t t :instance "jvmetro")
66 (1 t t :instance "qjackctl")
67 (3 t t :instance "qjackctl" :role "qjackctlMainForm"))
0a131a3 Added rule based window placement.
Jonathan Moore Liles authored
68
69 (define-frame-preference "Shareland"
fd61e77 @sabetts fix define-frame-preference typo
sabetts authored
70 (0 t nil :class "XTerm")
776a041 @sabetts minor patching up of window placement code and improved frame dumping
sabetts authored
71 (1 nil t :class "aMule"))
0a131a3 Added rule based window placement.
Jonathan Moore Liles authored
72
bdbf07c Added support for automatic group creation and/or restoration.
Morgan Veyret authored
73 (define-frame-preference "Emacs"
74 (1 t t :restore "emacs-editing-dump" :title "...xdvi")
75 (0 t t :create "emacs-dump" :class "Emacs"))
Something went wrong with that request. Please try again.