Re: [STUMP] mpd.lisp restarting stumpwm

[Morgan Veyret]

 08:30 Sun 17 Aug     , Rohan Nicholls wrote:
> Hi all,

Hello,

> 
> I have been using mpd.lisp and really like the functionality it
> offers (I had not used mpd before, but prefer it to rhythmbox, which
> relies on dbus etc.).
> 
> I have run into this problem however:
> If I ask for the key mappings, <key for mpd map>-?, it goes horribly
> wrong forcing stumpwm to restart.  I have included a traceback below.
> 

Which version do you use? There was a bug like this in one of the first
version because of a typo in mpd keymaps definition but it has been
fixed now. Try to get the latest stumpwm version.

> Another thing I have noticed is that the connection to mpd is often
> lost esp. if there is a gap between requests.  I have no idea why this
> is, but I was wondering if it would not be a better idea to have a
> connection created for each mpd command, rather than keeping it open.
> Because of this I have mapped <mpd-map>-C to create a new connection,
> just thought it might be a good idea to throw that in until a more
> stable solution can be found .
> 

Yes this is a know bug which has been fixed. There's a patch on the
mailing list that sabetts will apply soon. The problem comes from mpd
timeout. It looks like you can't specify an infinite timeout value. The
default is 60 seconds which is also the default mode-line update delay.
This explains why this disconnect problem was strange when using mpd
formatters.

Anyway now there's a *mpd-timeout* var in mpd.lisp which should be set
at a value lower than the real mpd timeout. This value is used to ping
the mpd server and keep the connection alive.

I don't konw if making a new connection for each command is a good
solution, I'll try to take a look at this.

> Here is the backtrace:
> 
>     The value NIL is not of type HASH-TABLE.
>     0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (LAMBDA #) {B42DCE5}>)[:EXTERNAL]
>     1: (BACKTRACE 100 #<SB-IMPL::STRING-OUTPUT-STREAM {B42DC91}>)
>     2: (STUMPWM::BACKTRACE-STRING)
>     3: ((LAMBDA (STUMPWM::C)) #<TYPE-ERROR {B42D951}>)
>     4: (SIGNAL #<TYPE-ERROR {B42D951}>)[:EXTERNAL]
>     5: (ERROR TYPE-ERROR)[:EXTERNAL]
>     6: (SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER
>     #<unavailable argument>
>     #.(SB-SYS:INT-SAP #XB79DE1D8)
>     #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XB79DDEAC :TYPE (*
>     (STRUCT
>     SB-VM::OS-CONTEXT-T-STRUCT))>
>     (14 78))
>     7: (SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER
>     #<unavailable argument>
>     #.(SB-SYS:INT-SAP #XB79DE1D8)
>     #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XB79DDEAC :TYPE (*
>     (STRUCT
>     SB-VM::OS-CONTEXT-T-STRUCT))>
>     (14 78))[:EXTERNAL]
>     8: (SB-KERNEL:INTERNAL-ERROR
>     #.(SB-SYS:INT-SAP #XB79DDEAC)
>     #<unavailable argument>)
>     9: ("foreign function: #x806394C")
>     10: ("foreign function: #x8051EFC")
>     11: ("foreign function: #x805604F")
>     12: ("foreign function: #x805687B")
>     13: (STUMPWM::MAPCAR-HASH #<FUNCTION (LAMBDA #) {BAEEAB5}> NIL)
>     14: (STUMPWM::DISPLAY-KEYBINDING NIL)
>     15: (STUMPWM::HANDLE-KEYMAP
>     #<HASH-TABLE :TEST EQUALP :COUNT 17 {C5363F1}>
>     34
>     1
>     (#S(STUMPWM::KEY
>     :KEYSYM 80
>     :SHIFT NIL
>     :CONTROL NIL
>     :META NIL
>     :ALT NIL
>     :HYPER NIL
>     :SUPER NIL)
>     #S(STUMPWM::KEY
>     :KEYSYM 116
>     :SHIFT NIL
>     :CONTROL T
>     :META NIL
>     :ALT NIL
>     :HYPER NIL
>     :SUPER NIL))
>     NIL
>     NIL)
>     16: (STUMPWM::HANDLE-KEYMAP
>     #<HASH-TABLE :TEST EQUALP :COUNT 95 {B622E21}>
>     27
>     1
>     (#S(STUMPWM::KEY
>     :KEYSYM 116
>     :SHIFT NIL
>     :CONTROL T
>     :META NIL
>     :ALT NIL
>     :HYPER NIL
>     :SUPER NIL))
>     NIL
>     NIL)
>     17: (STUMPWM::HANDLE-KEYMAP
>     #<HASH-TABLE :TEST EQUALP :COUNT 14 {B622D29}>
>     45
>     4
>     NIL
>     T
>     NIL)
>     18: ((LABELS #:G318) :CODE 45 :STATE 4)
>     19: (STUMPWM::HANDLE-EVENT)[:EXTERNAL]
>     20: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
>     21: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]469))
>     22: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK
>     #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK) {B79DE775}>
>     #S(SB-THREAD:MUTEX
>     :NAME "CLX Event Lock"
>     :%OWNER #<SB-THREAD:THREAD "initial thread" {A72EBF1}>
>     :STATE 1))
>     23: (XLIB:PROCESS-EVENT #<XLIB:DISPLAY :0 (The X.Org Foundation
> R10300000)>)[:EXTERNAL]
>     24: (STUMPWM::STUMPWM-INTERNAL-LOOP)
>     25: (STUMPWM::STUMPWM-INTERNAL-LOOP)[:EXTERNAL]
>     26: (STUMPWM::STUMPWM-INTERNAL ":0")
>     27: (STUMPWM:STUMPWM ":0")
>     28: (SB-INT:SIMPLE-EVAL-IN-LEXENV (STUMPWM:STUMPWM) #<NULL-LEXENV>)
>     29: (SB-FASL::LOAD-AS-SOURCE
>     #<SB-SYS:FD-STREAM for "file /home/rohan/bin/startstump" {AD03E19}>
>     NIL
>     NIL)
>     30: (SB-FASL::%LOAD
>     #<SB-SYS:FD-STREAM for "file /home/rohan/bin/startstump"
> {AD03E19}>)[:EXTERNAL]
>     31: (SB-FASL::%LOAD #P"/home/rohan/bin/startstump")[:EXTERNAL]
>     32: (LOAD #P"/home/rohan/bin/startstump")[:EXTERNAL]
>     33: (SB-INT:SIMPLE-EVAL-IN-LEXENV
>     (LOAD #P"/home/rohan/bin/startstump")
>     #<NULL-LEXENV>)
>     34: (SB-IMPL::PROCESS-EVAL-OPTIONS
>     ("(require :asdf)"
>     "(setq asdf:*central-registry* '(#p\"/home/rohan/src/clbuild/systems/\"))"
>     "nil" (LOAD #P"/home/rohan/bin/startstump")))
>     35: (SB-IMPL::TOPLEVEL-INIT)
>     36: ((LABELS SB-IMPL::RESTART-LISP))
> 
> 
> _______________________________________________
> Stumpwm-devel mailing list
> address@hidden
> http://lists.nongnu.org/mailman/listinfo/stumpwm-devel

-- 

Morgan Veyret (address@hidden)
http://appart.kicks-ass.net/patzy