stumpwm: El escritorio de los incondicionales de emacs

Mi archivo de configuración .stumpwmrc

;; -*- mode: Lisp -*-
;;; Fondo de pantalla
(run-shell-command "xsetbg ~/Imatges/emacs_wallpaper-black.png")
;
;;; Teclas aplicaciones
(define-key *root-map* (kbd "s-c") "exec chromium")
(define-key *root-map* (kbd "s-f") "exec firefox")
(define-key *root-map* (kbd "s-g") "exec gmrun")
(define-key *root-map* (kbd "s-i") "exec icedove")
(define-key *root-map* (kbd "s-l") "exec luakit")
(define-key *root-map* (kbd "s-m") "exec midori")
(define-key *root-map* (kbd "s-p") "exec pcmanfm")
(define-key *root-map* (kbd "s-s") "exec sakura")
(define-key *root-map* (kbd "s-t") "exec terminator")
;
;;; Otros
(define-key *root-map* (kbd "C-e") "exec sakura -e emacs -nw")
;
;;; Ajustes generales
(setf *window-name-source* :class)
(setf *input-window-gravity* :center)
(setf *message-window-gravity* :center)
;
;;; algunos ajustes básicos de las ventanas
(setf *normal-border-width* 1)
(setf *maxsize-border-width* 1)
(setf *transient-border-width* 1)
(setf *window-border-style* :thick)

(defparameter FOREGROUND-COLOR "green")
(defparameter BACKGROUND-COLOR "#447216")
(defparameter BORDER-COLOR "green")

(setf *startup-message* ())
(setf *startup-message* "stumpwm, el gestor de ventanas cósmico!")

; message
(set-fg-color "green")
(set-bg-color "#242424")
(set-border-color "green")
(set-msg-border-width 1)
(set-win-bg-color "#242424")
;; popup window width
(setf *transient-border-width* 2)
(setf *timeout-wait* 4)

;; Captura de pantalla de la seleccion con la tecla ImprPant
(defcommand region-screen-shot()()
(run-shell-command "gnome-screenshot -a"))
(define-key *root-map* (kbd "Print") "region-screen-shot")
;
;; Lanzar menú minimalista dmenu (paquete suckless-tools)
(defcommand dmenu() ()
(run-shell-command "dmenu_run"))
(define-key *root-map* (kbd ".") "dmenu")
;
;; Arrancar lxpanel con los applets correspondientes
(run-shell-command "dropbox start &> /dev/null &")
(run-shell-command "nm-applet &> /dev/null &")
(run-shell-command "lxpanel &> /dev/null &")

captura

 

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

w

Conectando a %s

A %d blogueros les gusta esto:
search previous next tag category expand menu location phone mail time cart zoom edit close