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

 

Share

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *