From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Stefan Kangas Newsgroups: gmane.emacs.bugs Subject: bug#57781: missing wallpaper command Date: Fri, 7 Oct 2022 11:08:05 +0200 Message-ID: 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; charset="UTF-8" Content-Transfer-Encoding: quoted-printable Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="16217"; mail-complaints-to="usenet@ciao.gmane.io" Cc: 57781@debbugs.gnu.org, Sean Whitton To: Felix Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Fri Oct 07 11:09:31 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 1ogjMI-00044P-0a for geb-bug-gnu-emacs@m.gmane-mx.org; Fri, 07 Oct 2022 11:09:30 +0200 Original-Received: from localhost ([::1]:49970 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1ogjMG-0001IN-Mb for geb-bug-gnu-emacs@m.gmane-mx.org; Fri, 07 Oct 2022 05:09:28 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:49236) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1ogjLq-0001GD-Rq for bug-gnu-emacs@gnu.org; Fri, 07 Oct 2022 05:09:04 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:35273) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1ogjLq-0005uP-ID for bug-gnu-emacs@gnu.org; Fri, 07 Oct 2022 05:09:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1ogjLq-0001BF-5M for bug-gnu-emacs@gnu.org; Fri, 07 Oct 2022 05:09:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Stefan Kangas Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 07 Oct 2022 09:09: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.16651336944482 (code B ref 57781); Fri, 07 Oct 2022 09:09:02 +0000 Original-Received: (at 57781) by debbugs.gnu.org; 7 Oct 2022 09:08:14 +0000 Original-Received: from localhost ([127.0.0.1]:34351 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ogjL3-0001AE-S6 for submit@debbugs.gnu.org; Fri, 07 Oct 2022 05:08:14 -0400 Original-Received: from mail-oo1-f49.google.com ([209.85.161.49]:33781) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ogjL1-0001A0-PP for 57781@debbugs.gnu.org; Fri, 07 Oct 2022 05:08:12 -0400 Original-Received: by mail-oo1-f49.google.com with SMTP id u19-20020a4a9e93000000b004757198549cso3133978ook.0 for <57781@debbugs.gnu.org>; Fri, 07 Oct 2022 02:08:11 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=content-transfer-encoding:cc:to:subject:message-id:date :mime-version:references:in-reply-to:from:from:to:cc:subject:date; bh=o9kBBpeprUBw6tHTvXPDloyJMrpGMNFdoK5iLgoZDJ8=; b=iHgwnTd2qk5OxoQFJdieJ6zHWJdj/VSUcDqCrV4EPKIaw51bqe5JJ9lclwHnD9oPD0 KTUja+qts7+BNNkUVs5WvnGRK0TtYvLKh8tsCuGYA/qRGZdJSD1Yocn0i5yi9C7VFXjt +gsNC/1Dk0m24VK5sdJK5HKwouI9GrHeoBQ0S6PaQ2lEpeShP14x++4q0W6gQFWl1NQO yKOBbgcQJQxroxvGttdKJ9fVoxDKInZhckyHAKnfhSgRrlpc1+uKe5gD2uxI4+msU5Kv b+HsRJh4bH/JE7z46OAKt2foMHv/c/KtdWQwRBAbUnjborbiw2U3wUnq4lKU7qNWGPMT 8P2w== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=content-transfer-encoding:cc:to:subject:message-id:date :mime-version:references:in-reply-to:from:x-gm-message-state:from:to :cc:subject:date; bh=o9kBBpeprUBw6tHTvXPDloyJMrpGMNFdoK5iLgoZDJ8=; b=YWvy9thgpiIgrGQKvOG/xzgq86LZ2qFbNSF72e+SJK0E5OIIDkX4+/qh4i2S8+T9gj n+4pOl9rxCM2PgUZN0IBNqXMHMt9jah9fuLg1YckphHA3kpqhpSBHBOVrYPQkZUtq7HZ QAcdF5Zy6UfYz4nVx7Ji4/7wKlNU34cDU2bI+a/TlzvZKSzVSlTMrbPEHg2KnZShFPcZ VlGJerxoKAZD6aqOklnlX16YLQ5Pp7J+OsCYiLGgpFy7fwkZ8x4tYd87rTNMo0N8cMu6 6jxNAfYaG7sN5+8HZ2fZ2pGFqRRUzBBuURIkYQJvIu3+Hhw4x9LOZFzlHJ7A9Yeuz06N dSEA== X-Gm-Message-State: ACrzQf1uSQCSopIFDVlWvWsGwlp555+iI0DTU2oMrVMdjz3JeInVXi4H pSmhDzqvtghwLNJ29Vj6b6o25XUnQumSS1upQD0= X-Google-Smtp-Source: AMsMyM7O9JoZcrDMiIpGCVJ+JNpKDvYEIZvEfjIVfTKY9GfwrHcLKHpPcv1subSI2mJ9wVH2v6USwsuylPY/Y/peV8E= X-Received: by 2002:a9d:7c89:0:b0:655:dfb1:331c with SMTP id q9-20020a9d7c89000000b00655dfb1331cmr1588336otn.224.1665133685937; Fri, 07 Oct 2022 02:08:05 -0700 (PDT) Original-Received: from 753933720722 named unknown by gmailapi.google.com with HTTPREST; Fri, 7 Oct 2022 11:08:05 +0200 In-Reply-To: <87v8owv8lc.fsf@web.de> X-Hashcash: 1:20:221007:57781@debbugs.gnu.org::o00cppCRvExNdydG:0486 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:244752 Archived-At: [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.patc= h]... > > 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-string= (or (x-window-property "_NET_CURRENT_DESKTOP" nil "CARDINAL" 0 nil t) (x-w= indow-property "WIN_WORKSPACE" nil "CARDINAL" 0 nil t)))) > (or (and (fboundp 'x-window-property) (display-graphic-p) (number-to-st= ring (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) (num= ber-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-hexi= fy-string (file-name-split file) "/")) (cons 104 #'(lambda nil (wallpaper--= get-height-or-width "height" #'display-pixel-height wallpaper-default-heigh= t))) (cons 119 #'(lambda nil (wallpaper--get-height-or-width "width" #'disp= lay-pixel-width wallpaper-default-width))) (cons 83 (let ((display (frame-p= arameter (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_D= ESKTOP" nil "CARDINAL" 0 nil t) (x-window-property "WIN_WORKSPACE" nil "CAR= DINAL" 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 #'(lam= bda nil (wallpaper--get-height-or-width "height" #'display-pixel-height wal= lpaper-default-height))) (cons 119 #'(lambda nil (wallpaper--get-height-or-= width "width" #'display-pixel-width wallpaper-default-width))) (cons 83 (le= t ((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-prop= erty "_NET_CURRENT_DESKTOP" nil "CARDINAL" 0 nil t) (x-window-property "WIN= _WORKSPACE" nil "CARDINAL" 0 nil t)))) "0")))) > wallpaper--format-arg("%f" "~/wallpapers/bloom.jpg") > (closure ((args "%f") (file . "~/wallpapers/bloom.jpg") cl-struct-wallp= aper-setter-tags t) (arg) (wallpaper--format-arg arg file))("%f") > mapcar((closure ((args "%f") (file . "~/wallpapers/bloom.jpg") cl-struc= t-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-sette= r) cl-struct-wallpaper-setter-tags) t)) (equal (progn (or (progn ...) (sign= al ... ...)) (aref wallpaper--current-setter 2)) wallpaper-command) wallpap= er--current-setter)) (init-action (and setter (progn (or (progn (and ... t)= ) (signal 'wrong-type-argument (list ... setter))) (aref setter 5)))) (deta= ch (and setter (progn (or (progn (and ... t)) (signal 'wrong-type-argument = (list ... setter))) (aref setter 6)))) process) (if init-action (progn (fun= call init-action))) (wallpaper-debug "Using command: \"%s %s\"" wallpaper-c= ommand (string-join real-args " ")) (if detach (apply #'call-process wallpa= per-command nil 0 nil real-args) (setq process (apply #'start-process "set-= wallpaper" bufname wallpaper-command real-args)) (let* ((v process)) (set-p= rocess-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?