From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Felix Newsgroups: gmane.emacs.bugs Subject: bug#57781: missing wallpaper command Date: Fri, 07 Oct 2022 21:55:13 +0200 Message-ID: <8735bzjtmf.fsf@web.de> References: <87fsgvc938.fsf@web.de> <87illpubzu.fsf@melete.silentflame.com> <87a671h861.fsf@web.de> <87v8owv8lc.fsf@web.de> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="7658"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: mu4e 1.9.1; emacs 29.0.50 Cc: 57781@debbugs.gnu.org, Sean Whitton To: Stefan Kangas Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Fri Oct 07 21:59:16 2022 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1ogtV6-0001o9-3e for geb-bug-gnu-emacs@m.gmane-mx.org; Fri, 07 Oct 2022 21:59:16 +0200 Original-Received: from localhost ([::1]:42878 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1ogtV4-0002ZE-FO for geb-bug-gnu-emacs@m.gmane-mx.org; Fri, 07 Oct 2022 15:59:14 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:42126) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1ogtUt-0002XC-0n for bug-gnu-emacs@gnu.org; Fri, 07 Oct 2022 15:59:03 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:38386) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1ogtUs-0004Su-Oo for bug-gnu-emacs@gnu.org; Fri, 07 Oct 2022 15:59:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1ogtUs-0006ZW-Aw for bug-gnu-emacs@gnu.org; Fri, 07 Oct 2022 15:59:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Felix Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 07 Oct 2022 19:59:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 57781 X-GNU-PR-Package: emacs Original-Received: via spool by 57781-submit@debbugs.gnu.org id=B57781.166517270425217 (code B ref 57781); Fri, 07 Oct 2022 19:59:02 +0000 Original-Received: (at 57781) by debbugs.gnu.org; 7 Oct 2022 19:58:24 +0000 Original-Received: from localhost ([127.0.0.1]:37464 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ogtUF-0006Ye-D3 for submit@debbugs.gnu.org; Fri, 07 Oct 2022 15:58:23 -0400 Original-Received: from mout.web.de ([212.227.17.11]:55085) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ogtUE-0006YS-4p for 57781@debbugs.gnu.org; Fri, 07 Oct 2022 15:58:22 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=web.de; s=s29768273; t=1665172689; bh=xNZOxeIycKNOr3N67M/KWKJW/7ez/HIj2d6rhQ79c3Y=; h=X-UI-Sender-Class:References:From:To:Cc:Subject:Date:In-reply-to; b=P6GyucIRDGWb7x+GT8qZcwMGGWjANvJ88Arb0kHCilIrJV2n72gqIU2eOrlLdOjm+ xDNH1CEA7oJAl2iWtTHnKnRb8Ii/v6vLs/447+4e5Vr4bqPkUfdABwb+CZXnYjEwOY EENt05mIj6V3r255OcWexprKZBidIESrggf7kNuX8KSCfuBLtkDuhRidltzvO9S1V6 xBT4tPcYMRFg+bj/qHyKOjXAAR0Y7VxdDnQOf2eSGlkAeAmM0IN6njnFuh3MjKdRN9 eRF3FzX3SyvsCXp8jeosRvHws5DuaroyYKy+Vfqy/VeyRYGntji9xM/r/pQjbAfJrs UackBxN/k1KjA== X-UI-Sender-Class: 814a7b36-bfc1-4dae-8640-3722d8ec6cd6 Original-Received: from felix-lifebooka531.web.de ([94.134.94.36]) by smtp.web.de (mrweb106 [213.165.67.124]) with ESMTPSA (Nemesis) id 1MsrhK-1p0dE92Lxw-00tU35; Fri, 07 Oct 2022 21:58:09 +0200 In-reply-to: X-Provags-ID: V03:K1:K5YfCSKwG+/yREgTH4OZLjaqbtaOF0AyRRM8KEUf+x+aRLR1k1/ elMoPyWM1zPhMMsDvNUApIdqdc/ESGS64UfiZxQx6ohOzgw6l7+tqMFVOoYjs+uvoHZZMev BwQ+DHWw75GvKk9cbK+M/mct0yan9TCQWmbkp6zoiq+0S+peZKjuDCCwaupr2QfnNe292gc UkHCRwNslWNFBMsuiWp8Q== X-UI-Out-Filterresults: notjunk:1;V03:K0:vXi2YudCgBE=:SXs/4kqji8vJA8gFEmesJT 7lgj7jAy4WjZpM8FxPDLuSkRK+/kk1jx3/QSj/RLD5VN5mGwpHwCSXzElmCSauqKt5TiuGPbL TizMRwIdZ1M3KvHBd481FdFRITnBOFcJX7SXu3K+4ijrPIA1HUE20NrvD+nE2du4Q/1JFPAg3 6rcaHwP76cDVSvJL8lDapdsKPQJ6ntvMsCRvYYPZzrOzbMom/+yrxni7RubrqHykCAfTGgPDp ZL45caSKqMHxRJ5F/nFKf9Y70lfWSTd7R/EL5ns/vl9A/sZ53UN7RAcIKWBleBVP/uBz/3V9H m0gwTyfN8TR+L2ro3peOLrDGNkiivF5jT7kzgGJ5jpmhVlzH93iiiZlFNGKkfi2AK9TMe0r85 KKLWely2CXEEIr1dXFXXrbL8gCS88ARQQ9BknzJGTDXys88LdlPFoVC5ty01tmYhIn+eh2YjD jqQB0IdEq5uAwb1V5RdQ0zpZaCnyWiJ08lDsrqiqFpcU0DdjHaHELO8en/GIxOGjX8gx7x5uG tSzA283N7sicjOixcoFJD4L8D5vymFXeyMWbfdWCk+u2q9vcvdgCeCbzLlCj0g34mo6SqVPMy fRx6TC3xXTdImK60YWA8yoXsg/nXs4MjjA7gI5igwdG5Hi0fTTECQ8qm8RcIuMUFE6ZZKCozj cYV20Wxg2/vRR68R9rHPZRXHE+o3Xjhupz1KITas7CsWl9d/WC0ab/qhA61sfpRYy04VzEMAj iJcZTLxG3XS2cTzfSjWUy3mrkR5CaizX0v8rakjecD3jTG8omdxPA/EK8qlK4WTeXahapiWR X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.io gmane.emacs.bugs:244846 Archived-At: Stefan Kangas writes: > [Please use "Reply to all" so that the discussion > is recorded in the bug tracker.] > > Felix writes: > >>> [2. text/x-diff; 0001-Fix-setting-the-wallpaper-with-swaybg-and-wbg.pat= ch]... >> >> It doesn't work on my side. >> Here is the debug log >> >> Debugger entered--Lisp error: (wrong-type-argument numberp nil) >> number-to-string(nil) >> (and (fboundp 'x-window-property) (display-graphic-p) (number-to-strin= g (or (x-window-property "_NET_CURRENT_DESKTOP" nil "CARDINAL" 0 nil t) (x-= window-property "WIN_WORKSPACE" nil "CARDINAL" 0 nil t)))) >> (or (and (fboundp 'x-window-property) (display-graphic-p) (number-to-s= tring (or (x-window-property "_NET_CURRENT_DESKTOP" nil "CARDINAL" 0 nil t)= (x-window-property "WIN_WORKSPACE" nil "CARDINAL" 0 nil t)))) "0") >> (cons 87 (or (and (fboundp 'x-window-property) (display-graphic-p) (nu= mber-to-string (or (x-window-property "_NET_CURRENT_DESKTOP" nil "CARDINAL"= 0 nil t) (x-window-property "WIN_WORKSPACE" nil "CARDINAL" 0 nil t)))) "0"= )) >> (list (cons 102 (expand-file-name file)) (cons 70 (mapconcat #'url-hex= ify-string (file-name-split file) "/")) (cons 104 #'(lambda nil (wallpaper-= -get-height-or-width "height" #'display-pixel-height wallpaper-default-heig= ht))) (cons 119 #'(lambda nil (wallpaper--get-height-or-width "width" #'dis= play-pixel-width wallpaper-default-width))) (cons 83 (let ((display (frame-= parameter (selected-frame) 'display))) (if (and display (string-match ":[0-= 9]+\\.\\([0-9]+\\)\\'" display)) (match-string 1 display) "0"))) (cons 77 #= 'wallpaper--x-monitor-name) (cons 87 (or (and (fboundp 'x-window-property) = (display-graphic-p) (number-to-string (or (x-window-property "_NET_CURRENT_= DESKTOP" nil "CARDINAL" 0 nil t) (x-window-property "WIN_WORKSPACE" nil "CA= RDINAL" 0 nil t)))) "0"))) >> (format-spec format (list (cons 102 (expand-file-name file)) (cons 70 = (mapconcat #'url-hexify-string (file-name-split file) "/")) (cons 104 #'(la= mbda nil (wallpaper--get-height-or-width "height" #'display-pixel-height wa= llpaper-default-height))) (cons 119 #'(lambda nil (wallpaper--get-height-or= -width "width" #'display-pixel-width wallpaper-default-width))) (cons 83 (l= et ((display (frame-parameter (selected-frame) 'display))) (if (and display= (string-match ":[0-9]+\\.\\([0-9]+\\)\\'" display)) (match-string 1 displa= y) "0"))) (cons 77 #'wallpaper--x-monitor-name) (cons 87 (or (and (fboundp = 'x-window-property) (display-graphic-p) (number-to-string (or (x-window-pro= perty "_NET_CURRENT_DESKTOP" nil "CARDINAL" 0 nil t) (x-window-property "WI= N_WORKSPACE" nil "CARDINAL" 0 nil t)))) "0")))) >> wallpaper--format-arg("%f" "~/wallpapers/bloom.jpg") >> (closure ((args "%f") (file . "~/wallpapers/bloom.jpg") cl-struct-wall= paper-setter-tags t) (arg) (wallpaper--format-arg arg file))("%f") >> mapcar((closure ((args "%f") (file . "~/wallpapers/bloom.jpg") cl-stru= ct-wallpaper-setter-tags t) (arg) (wallpaper--format-arg arg file)) ("%f")) >> (let* ((args (if (functionp wallpaper-command-args) (funcall wallpaper= -command-args) wallpaper-command-args)) (real-args (mapcar #'(lambda (arg) = (wallpaper--format-arg arg file)) args)) (bufname (format " *wallpaper-%s*"= (random))) (setter (and (progn (and (memq (type-of wallpaper--current-sett= er) cl-struct-wallpaper-setter-tags) t)) (equal (progn (or (progn ...) (sig= nal ... ...)) (aref wallpaper--current-setter 2)) wallpaper-command) wallpa= per--current-setter)) (init-action (and setter (progn (or (progn (and ... t= )) (signal 'wrong-type-argument (list ... setter))) (aref setter 5)))) (det= ach (and setter (progn (or (progn (and ... t)) (signal 'wrong-type-argument= (list ... setter))) (aref setter 6)))) process) (if init-action (progn (fu= ncall init-action))) (wallpaper-debug "Using command: \"%s %s\"" wallpaper-= command (string-join real-args " ")) (if detach (apply #'call-process wallp= aper-command nil 0 nil real-args) (setq process (apply #'start-process "set= -wallpaper" bufname wallpaper-command real-args)) (let* ((v process)) (set-= process-sentinel v #'(lambda (process status) (unwind-protect (if ... ... .= ..) (condition-case nil ... ...)))))) process) >> wallpaper-default-set-function("~/wallpapers/bloom.jpg") >> funcall(wallpaper-default-set-function "~/wallpapers/bloom.jpg") >> wallpaper-set("~/wallpapers/bloom.jpg") >> (progn (wallpaper-set "~/wallpapers/bloom.jpg")) > > Thanks. This error was unrelated to the patch, but should now be fixed > on the master branch (commit 55bd6a5cd4). Could you please pull latest > master, re-apply the patch, and then try again? Now it works! Nice one!