c21932ac |
; --*- Mode: lisp -*--
|
7fa89c89 |
(in-package :stumpwm)
|
64abec0d |
(eval-when (:load-toplevel :compile-toplevel :execute)
(defvar *selection-search-map* nil "selection search map")
(defvar *search-map* nil "search map"))
|
7fa89c89 |
|
074aff13 |
#+devtime
|
e67686e9 |
(progn
(setf *window-format* "%s%m%n: %15t")
(setf *window-format-by-class* "%m%n %c %s%92t"))
|
70e8006a |
|
64abec0d |
;;#-devtime
#+(or)
|
7fa89c89 |
(eval-when (:load-toplevel :compile-toplevel :execute)
|
074aff13 |
(require :sb-posix)
|
e67686e9 |
(load-module "stumptray"))
|
7fa89c89 |
|
e67686e9 |
(eval-when (:load-toplevel :compile-toplevel :execute)
#-devtime
(progn
|
074aff13 |
(sb-posix:setenv "PATH" (format nil "/snap/bin:~a" (sb-posix:getenv "PATH")) 1)
|
e67686e9 |
(set-prefix-key (kbd "s-space"))
(mode-line)
|
64abec0d |
#+(or)
|
e67686e9 |
(stumptray:stumptray)
(fill-keymap *selection-search-map*
(kbd "g") "search-for-selection google"
(kbd "/") "search-for-selection google"
(kbd "s-/") "search-for-selection google"
(kbd "l") "search-for-selection lisp")
(fill-keymap *search-map*
(kbd "a") "do-search amazon"
(kbd "h") "do-search php"
(kbd "p") "do-search python"
(kbd "o") "do-search stack-overflow"
(kbd "y") "do-search youtube"
(kbd "l") "do-search lisp"
(kbd "w") "do-search wikipedia"
(kbd "d") "do-search duckduckgo"
(kbd "g") "do-search google"
(kbd "s") *selection-search-map*
(kbd "/") "do-search google"
(kbd "Return") "search-for-selection google"
(kbd "s-/") "do-search google")
(define-key *top-map* (kbd "s-!") "run-yeganesh")
(define-key *top-map* (kbd "s-/") *search-map*)
(define-key *top-map* (kbd "s-TAB") "fnext")
(define-key *top-map* (kbd "s-ISO_Left_Tab") "fother")
(define-key *root-map* (kbd "\"") "windowlist-by-class")
(define-key *root-map* (kbd "n") "next-in-frame")
(define-key *root-map* (kbd "p") "prev-in-frame")) )
;;; vim: set ft=lisp:
|