Re: [STUMP] Stumpwm freezes with xscreensaver

[Dmitri Minaev]

On Feb 9, 2008 4:13 AM, Shawn Betts <address@hidden> wrote:
> > I'm trying to recompile Stumpwm with Clisp, but, unfortunately, I'm
> > not really familiar with Clisp. First, it refused to load with my
> > .stumpwmrc, reporting of "unknown character set "ISO-10646-1". When I
> > removed all font definitions from .stumpwmrc, it loaded up, but the
> > keyboard didn't work properly. I received messages that keys e, r, l,
> > z, and some others were not bound.
> >
> >
>
> Please post your rc file if you need further assistance.
>

Yes, please. Here it is:

===============================
;; -*-lisp-*-

(in-package :stumpwm)

;; DEBUG IT!
(setf stumpwm::*debug-level* 10)

;; change the prefix key to something else
(set-prefix-key (kbd "s-z"))

;(defparameter X-TERM "xterm -fn -misc-fixed-*-*-*-*-18-*-*-*-*-*-*-*"
(defparameter X-TERM "xterm -fn -misc-fixed-*-*-*-*-18-*-*-*-*-*-iso10646-*"
  "What shall be the command run when we want an X terminal?")

;;Set the font for the input box.
(set-font "-misc-fixed-medium-r-normal-*-14-130-75-75-c-70-iso10646-1")

(setf *message-window-gravity* :bottom-left
      *input-window-gravity* :bottom-left)

(setf *mode-line-background-color* "DarkBlue"
      *mode-line-foreground-color* "gold"
      *mode-line-border-color*     "white"
      *mode-line-screen-position* :top
      *mode-line-frame-position* :top
      *mode-line-border-width* 0
      *mode-line-pad-x* 6
      *window-format* "<%n%s%m%30t>"
      *screen-mode-line-format*
      (list '(:eval (let ((date (multiple-value-bind (s m h date month year)
                                    (get-decoded-time)
                                  (format nil "~d-~2,'0d-~2,'0d
~2,'0d:~2,'0d:~2,'0d"
                                          year month date h m s))))
                      (concatenate 'string ":" date " | ")))
            '(:eval (if (current-window) (window-title (current-window)) "No
current window"))
            '(:eval (stumpwm:run-shell-command "acpi -b" t))))

(define-stumpwm-command "emacs" ()
  (run-or-raise "emacs" '(:class "Emacs")))
(define-stumpwm-command "firefox" ()
  (run-or-raise "firefox" '(:class "Firefox-bin")))
(define-stumpwm-command "amarok" ()
  (run-or-raise "amarok" '(:class "Amarokapp")))

(define-stumpwm-command "emacs-do" ()
  (run-or-raise "emacs" '(:class "Emacs"))
  (send-meta-key (current-screen) (kbd "M-x"))
  (window-send-string (current-window) "calc")
  (send-meta-key (current-screen) (kbd "RET")))


(define-stumpwm-command "emacs-calendar" ()
  (run-or-raise "emacs" '(:class "Emacs"))
  (send-meta-key (current-screen) (kbd "M-x"))
  (window-send-string (current-window) "calendar")
  (send-meta-key (current-screen) (kbd "RET")))

;;; run or raise emacs, call remember and insert the current selection
(define-stumpwm-command "emacs-remember" ()
  (let ((current-window-name (if (current-window) (window-title
(current-window)) "No current window"))
        (copy-from-firefox (equal (window-class (current-window)) 
"Firefox-bin")))
    (when copy-from-firefox
        (send-meta-key (current-screen) (kbd "C-l"))
        (send-meta-key (current-screen) (kbd "C-c")))
    (run-or-raise "emacs" '(:class "Emacs"))
    (send-meta-key (current-screen) (kbd "M-x"))
    (window-send-string (current-window) "org-remember")
    (send-meta-key (current-screen) (kbd "RET"))
    (window-send-string (current-window) "f")
    (window-send-string (current-window) current-window-name)
    (send-meta-key (current-screen) (kbd "RET"))
;    (send-meta-key (current-screen) (kbd "M-x"))
;    (window-send-string (current-window) "get-primary-selection")
;    (send-meta-key (current-screen) (kbd "RET"))
;;    (window-send-string (current-window) (get-x-selection))
    (send-meta-key (current-screen) (kbd "C-y"))
    (send-meta-key (current-screen) (kbd "RET"))
    (when copy-from-firefox
      (send-meta-key (current-screen) (kbd "M-x"))
      (window-send-string (current-window) "get-clipboard-selection")
      (send-meta-key (current-screen) (kbd "RET")))))


(define-stumpwm-command "insert-timestamp" ()
  (window-send-string (current-window) (multiple-value-bind (s m h
date month year)
                                           (get-decoded-time)
                                         (format nil "~d-~2,'0d-~2,'0d 
~2,'0d:~2,'0d:~2,'0d" year month
date h m s))))

(run-shell-command "xsetroot -cursor_name left_ptr -gray -fg darkgreen
-bg black -name root-window")
(run-shell-command X-TERM)

(define-key *top-map* (kbd "s-Left") "pull-hidden-previous")
(define-key *top-map* (kbd "s-Right") "pull-hidden-next")
(define-key *top-map* (kbd "XF86Back") "pull-hidden-previous")
(define-key *top-map* (kbd "XF86Forward") "pull-hidden-next")
(define-key *top-map* (kbd "s-XF86Back") "gprev")
(define-key *top-map* (kbd "s-XF86Forward") "gnext")
(define-key *top-map* (kbd "s-Down") "gprev")
(define-key *top-map* (kbd "s-Up") "gnext")
(define-key *top-map* (kbd "F9") "gnewbg")
(define-key *top-map* (kbd "s-l") "exec xscreensaver-command -lock")
(define-key *top-map* (kbd "C-Escape") "windowlist")
(define-key *top-map* (kbd "s-f") "firefox")
(define-key *top-map* (kbd "s-e") "emacs")
(define-key *top-map* (kbd "s-a") "amarok")
(define-key *top-map* (kbd "s-x") (concatenate 'string "exec " X-TERM))
;(define-key *top-map* (kbd "s-F11") "emacs-do")
(define-key *top-map* (kbd "s-F5") "emacs-calendar")
(define-key *top-map* (kbd "s-F12") "emacs-remember")
(define-key *top-map* (kbd "s-d") "insert-timestamp")
(define-key *top-map* (kbd "s-r") "exec")
(define-key *top-map* (kbd "s-RET") "fullscreen")



;; prompt the user for an interactive command. The first arg is an
;; optional initial contents.
;(define-stumpwm-command "colon1" ((initial :rest nil))
;  (let ((cmd (read-one-line (current-screen) ": " initial)))
;    (when cmd
;      (interactive-command cmd (current-screen)))))

;; Message window font
(set-font "-cronyx-*-medium-*-*-*-14-*-*-*-*-*-*-*")


(define-stumpwm-command "mymenu" ()
      (let* ((selection (second (select-from-menu (current-screen)
                                                  '(("xterm" "xterm")
                                                    ("QEMU" "~/bin/qemu")
                                                    ("SAMCTX desktop" 
"~/bin/rdtp")
                                                    ("OO Writer" "oowriter")
                                                    ("OO Calc" "oocalc")
                                                    ("GAIM" "gaim")
                                                    ("Amarok" "amarok")
                                                    ("Thunderbird" 
"thunderbird"))))))
        (run-shell-command selection)))

(define-key *top-map* (kbd "F12") "mymenu")
===============================

It will not work with the plain StumpWM. Every time I compile a new
version I add the definitions of XF86Forward and XF86Back to
keysyms.lisp.


-- 
With best regards,
Dmitri Minaev

Russian history blog: http://minaev.blogspot.com