1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
From: Debian Common Lisp Team <pkg-common-lisp-devel@lists.alioth.debian.org>
Date: Tue, 2 Jan 2018 12:14:45 +0900
Subject: default to x-www-browser
Default to Debian alternative x-www-browser
---
sample-stumpwmrc.lisp | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/sample-stumpwmrc.lisp b/sample-stumpwmrc.lisp
index 1abe6ab..1b2b658 100644
--- a/sample-stumpwmrc.lisp
+++ b/sample-stumpwmrc.lisp
@@ -17,7 +17,7 @@
;; Read some doc
(define-key *root-map* (kbd "d") "exec gv")
;; Browse somewhere
-(define-key *root-map* (kbd "b") "colon1 exec firefox http://www.")
+(define-key *root-map* (kbd "b") "colon1 exec x-www-browser http://www.")
;; Ssh somewhere
(define-key *root-map* (kbd "C-s") "colon1 exec x-terminal-emulator -e ssh ")
;; Lock screen
@@ -29,8 +29,8 @@
(substitute #\+ #\Space search)
(run-shell-command (concatenate 'string ,prefix search))))
-(make-web-jump "google" "firefox http://www.google.fr/search?q=")
-(make-web-jump "imdb" "firefox http://www.imdb.com/find?q=")
+(make-web-jump "google" "x-www-browser http://www.google.fr/search?q=")
+(make-web-jump "imdb" "x-www-browser http://www.imdb.com/find?q=")
;; C-t M-s is a terrble binding, but you get the idea.
(define-key *root-map* (kbd "M-s") "google")
|
