Re: [STUMP] Use of placement rules, and crash

[Ben Spencer]

Hi Etienne,

On Wed, Sep 08, 2010 at 05:54:19PM +0000, Etienne Mallard wrote:
> I've a problem trying to place automatically my windows. In one of my group 
> called "cfg", I want to keep two frames split vertically: one frame with 
> .stumpwmrc, one with .emacs, both opened using emacsclient.Here is my 
> function to create a named frame in emacs and also define the placement rule:
> (defun emacs_make_frame (name groupname frame-number)  (run-shell-command   
> (cat "emacsclient -e \"(make-frame '((name . \\\"" (cat name "\\\")))\"")))
>   (define-frame-preference groupname      (frame-number t t :title name)))

define-frame-preference doesn't evalute the rules you pass it.  You
need to do something like this:

(defmacro emacs-make-frame (name groupname frame-number)
  `(progn
     (run-shell-command (cat "emacsclient -e \"(make-frame '((name . \\\"" (cat 
,name "\\\")))\"")))
     (define-frame-preference ,groupname (,frame-number t t :title ,name))))


> So my first question is : I know there is an error message, but I
> can't read it before I return to gdm, is there a log somewhere ?

Some display managers log to ~/.xsession-errors.  tbh I'm not sure why
this made stumpwm crash so hard, if anybody feels like investigating
here's the backtrace I got:


Caught 'Unknown token NAME in parse tree.' at the top level. Please report this.
 (7F5A752B6098) : 0 (PRINT-CALL-HISTORY :CONTEXT NIL :PROCESS NIL :ORIGIN NIL 
:DETAILED-P NIL :COUNT 100 :START-FRAME-NUMBER 0 :STREAM #<STRING-OUTPUT-STREAM 
 #x30200235764D> :PRINT-LEVEL 2 :PRINT-LENGTH 5 :SHOW-INTERNAL-FRAMES NIL 
:FORMAT :TRADITIONAL) 861
 (7F5A752B6200) : 1 (PRINT-BACKTRACE 100) 149
 (7F5A752B6220) : 2 (BACKTRACE-STRING) 189
 (7F5A752B6278) : 3 (PERFORM-TOP-LEVEL-ERROR-ACTION 
#<CL-PPCRE:PPCRE-SYNTAX-ERROR #x302002357B8D>) 421
 (7F5A752B62A8) : 4 (FUNCALL #'#<(:INTERNAL STUMPWM::STUMPWM-INTERNAL-LOOP)> 
#<CL-PPCRE:PPCRE-SYNTAX-ERROR #x302002357B8D>) 109
 (7F5A752B62C8) : 5 (SIGNAL #<CL-PPCRE:PPCRE-SYNTAX-ERROR #x302002357B8D>) 981
 (7F5A752B6320) : 6 (%ERROR #<CL-PPCRE:PPCRE-SYNTAX-ERROR #x302002357B8D> (:POS 
NIL :FORMAT-CONTROL "Unknown token ~A in parse tree." :FORMAT-ARGUMENTS ...) 
17503311195241) 117
 (7F5A752B6348) : 7 (FUNCALL #'#<#<STANDARD-METHOD 
CL-PPCRE::CONVERT-SIMPLE-PARSE-TREE (T)>> NAME) 317
 (7F5A752B6370) : 8 (CONVERT NAME) 365
 (7F5A752B6440) : 9 (FUNCALL #'#<#<STANDARD-METHOD CL-PPCRE:CREATE-SCANNER 
(T)>> NAME :CASE-INSENSITIVE-MODE NIL :MULTI-LINE-MODE NIL :SINGLE-LINE-MODE 
NIL :EXTENDED-MODE NIL :DESTRUCTIVE NIL) 589
 (7F5A752B64E8) : 10 (%%CHECK-KEYWORDS #(1 #(:DESTRUCTIVE :EXTENDED-MODE 
:SINGLE-LINE-MODE :MULTI-LINE-MODE :CASE-INSENSITIVE-MODE) 
#<CCL:METHOD-FUNCTION CL-PPCRE:CREATE-SCANNER #>) 17503311195304) 229
 (7F5A752B6550) : 11 (GET-OR-CREATE-RULE-SCANNER NAME) 141
 (7F5A752B6578) : 12 (STRING-MATCH "stump-cfg" NAME) 53
 (7F5A752B65A0) : 13 (WINDOW-MATCHES-PROPERTIES-P #S(WINDOW "stump-cfg" 
#x12110E1) :CLASS NIL :INSTANCE NIL :TYPE NIL :ROLE NIL :TITLE NAME) 445
 (7F5A752B6608) : 14 (WINDOW-MATCHES-RULE-P #S(WINDOW "stump-cfg" #x12110E1) 
("cfg" FRAME-NUMBER T T :TITLE ...)) 805
 (7F5A752B66A0) : 15 (RULE-MATCHING-WINDOW #S(WINDOW "stump-cfg" #x12110E1)) 101
 (7F5A752B66C8) : 16 (GET-WINDOW-PLACEMENT #S<screen #<SCREEN :0.0 1280x800x24 
TRUE-COLOR>> #S(WINDOW "stump-cfg" #x12110E1)) 37
 (7F5A752B66E8) : 17 (PLACE-WINDOW #S<screen #<SCREEN :0.0 1280x800x24 
TRUE-COLOR>> #S(WINDOW "stump-cfg" #x12110E1)) 101
 (7F5A752B6718) : 18 (PROCESS-MAPPED-WINDOW #S<screen #<SCREEN :0.0 1280x800x24 
TRUE-COLOR>> #<WINDOW :0 12110E1>) 469
 (7F5A752B6740) : 19 (FUNCALL #'#<#:G7356> :DISPLAY #<DISPLAY :0 (The X.Org 
Foundation R10707000)> :EVENT-KEY :MAP-REQUEST :EVENT-CODE 20 :SEND-EVENT-P NIL 
:SEQUENCE 11269 :PARENT #<WINDOW :0 102> :EVENT-WINDOW #<WINDOW :0 102> :WINDOW 
#<WINDOW :0 12110E1>) 941
 (7F5A752B67A0) : 20 (HANDLE-EVENT :DISPLAY #<DISPLAY :0 (The X.Org Foundation 
R10707000)> :EVENT-KEY :MAP-REQUEST :EVENT-CODE 20 :SEND-EVENT-P NIL :SEQUENCE 
11269 :PARENT #<WINDOW :0 102> :EVENT-WINDOW #<WINDOW :0 102> :WINDOW #<WINDOW 
:0 12110E1>) 877
 (7F5A752B6838) : 21 (PROCESS-EVENT #<DISPLAY :0 (The X.Org Foundation 
R10707000)> :HANDLER #<Compiled-function STUMPWM::HANDLE-EVENT #x30200154512F> 
:TIMEOUT NIL :PEEK-P NIL :DISCARD-P NIL :FORCE-OUTPUT-P T) 1309
 (7F5A752B6988) : 22 (STUMPWM-INTERNAL-LOOP) 709
 (7F5A752B69C0) : 23 (STUMPWM-INTERNAL ":0.0") 3677
 (7F5A752B6A68) : 24 (STUMPWM ":0.0") 165
 (7F5A752B6A88) : 25 (CALL-CHECK-REGS STUMPWM) 229
 (7F5A752B6AC0) : 26 (TOPLEVEL-EVAL (STUMPWM) NIL) 717
 (7F5A752B6B68) : 27 (READ-LOOP :INPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO* 
#x302000A32E3D> :OUTPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO* 
#x302000A32CDD> :BREAK-LEVEL 0 :PROMPT-FUNCTION #<Compiled-function (:INTERNAL 
CCL::READ-LOOP) (Non-Global)  #x300000660E1F>) 2317
 (7F5A752B6DC8) : 28 (TOPLEVEL-LOOP) 109
 (7F5A752B6DF8) : 29 (FUNCALL #'#<(:INTERNAL (CCL:TOPLEVEL-FUNCTION 
(CCL::LISP-DEVELOPMENT-SYSTEM T)))>) 117
 (7F5A752B6E18) : 30 (FUNCALL #'#<(:INTERNAL CCL::MAKE-MCL-LISTENER-PROCESS)>) 
645
 (7F5A752B6EB0) : 31 (RUN-PROCESS-INITIAL-FORM #<TTY-LISTENER listener(1) 
[Active] #x302000A31C8D> (#<CCL:COMPILED-LEXICAL-CLOSURE # #x302000A316AF>)) 725
 (7F5A752B6F48) : 32 (FUNCALL #'#<(:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL 
(CCL:PROCESS)))> #<TTY-LISTENER listener(1) [Active] #x302000A31C8D> 
(#<CCL:COMPILED-LEXICAL-CLOSURE # #x302000A316AF>)) 389
 (7F5A752B6F98) : 33 (FUNCALL #'#<(:INTERNAL CCL::THREAD-MAKE-


Ben