From debbugs-submit-bounces@debbugs.gnu.org Fri Jun 25 05:31:29 2021 Received: (at 48974) by debbugs.gnu.org; 25 Jun 2021 09:31:29 +0000 Received: from localhost ([127.0.0.1]:44877 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lwiBN-0008RR-9W for submit@debbugs.gnu.org; Fri, 25 Jun 2021 05:31:29 -0400 Received: from mx1.dismail.de ([78.46.223.134]:33926) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lwiBJ-0008R9-Su for 48974@debbugs.gnu.org; Fri, 25 Jun 2021 05:31:27 -0400 Received: from mx1.dismail.de (localhost [127.0.0.1]) by mx1.dismail.de (OpenSMTPD) with ESMTP id 7a4b2ce2; Fri, 25 Jun 2021 11:31:18 +0200 (CEST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed; d=dismail.de; h=from:to:cc :subject:references:date:in-reply-to:message-id:mime-version :content-type; s=20190914; bh=7sIRXWebFoDpsWxrGVmOxqvm+8eb/8JWma EKrj9XcQ8=; b=if8ZmMTfoRv8sOSYm2iD/66yBgLXIW+lohzL+dg7DYpnhVfIRT BBHEnExliG1BiqCiCsLO3TT1iKkSMOO8KfsPFrE0GmS/GpiOOhAQ6/7Fiv5Ljuyc yiK5pTqINfnkKrRWC6sz4xer5SgKhL9f/rNCR+lVasVOhSiaupft098kcIbF2a9E vCFiGr9LBGQrIppCSt/Kau27Pngy5qpRNBP45DON7pUwZfs2cr2YeX8M3SQoEvM7 vEH4o3mvVPcOS1C5iKEgGYlXgMkk1gI6Z5hPsck7KvI23Q7ntlEuYOGTE3s2WKmk /0plAW1GBssSxrdsovbkyzUMEgXKHO47aKLQ== Received: from smtp1.dismail.de ( [10.240.26.11]) by mx1.dismail.de (OpenSMTPD) with ESMTP id f7ca5015; Fri, 25 Jun 2021 11:31:18 +0200 (CEST) Received: from smtp1.dismail.de (localhost [127.0.0.1]) by smtp1.dismail.de (OpenSMTPD) with ESMTP id b80fc4e6; Fri, 25 Jun 2021 11:31:18 +0200 (CEST) Received: by dismail.de (OpenSMTPD) with ESMTPSA id 999e013a (TLSv1.3:AEAD-AES256-GCM-SHA384:256:NO); Fri, 25 Jun 2021 11:31:16 +0200 (CEST) From: Joshua Branson To: Leo Prikler Subject: Re: bug#48974: A possible shepherd bug (it's very minor) References: <9d5c5334eacfae92ace38329e55bc4a91929e206.camel@student.tugraz.at> <87wnqz43k0.fsf@dismail.de> <3192d62ef790c16fb2dfb894d9ccb160@dismail.de> <13bff20e418f1cec97cdda49ffed51544c5c9402.camel@student.tugraz.at> Date: Fri, 25 Jun 2021 05:31:13 -0400 In-Reply-To: <13bff20e418f1cec97cdda49ffed51544c5c9402.camel@student.tugraz.at> (Leo Prikler's message of "Sat, 12 Jun 2021 23:13:18 +0200") Message-ID: <87mtre5lzy.fsf@dismail.de> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.2 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: -0.7 (/) X-Debbugs-Envelope-To: 48974 Cc: 48974@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.7 (-) Leo Prikler writes: > Hi, > > Am Samstag, den 12.06.2021, 20:09 +0000 schrieb jbranso@dismail.de: >> June 12, 2021 3:39 PM, "Leo Prikler" >> wrote: >> >> > Am Samstag, den 12.06.2021, 09:26 -0400 schrieb Joshua Branson: >> > >> > > Hello! >> > > >> I'll tell you what, why don't we leave this "bug" open for a >> week...I'll try to write >> the code that does what I want, and I'll email the answer. >> >> Then I'll edit the manual to provide an example! > I'm pretty sure that the actual bug also exists, just not sure whether > that's on your config or on shepherd. Using TTY1 for graphical stuff > is also somewhat rare in Guix land, I presume. (Or rather, I can't > think of it as anything but a container for debug output spam :D) > > As for getting this to work only on TTY1, you do get the config object, > so you can do stuff like > (if (is-tty1? config) (inherit+autologin config) config) > Note of course, that is-tty1? is not a procedure that's ready-made, but > one that you'd need to build from primitives such as record accessors. > Well, it's been about a week. Here is my current code that doesn't work. haha. #+BEGIN_SRC scheme (define %my-desktop-services (modify-services %desktop-services ;;end of remove services (mingetty-service-type config => (mingetty-configuration (inherit config) ;; ERROR at the NEXT LINE (auto-login-to-tty-3 config) )))) (define (auto-login-to-tty-3 config) (if (string=? "3" (mingetty-configuration-tty config)) '(auto-login "joshua") '(auto-login #f))) #+END_SRC It obviously doesn't work because I am treating modify-services as if it were a procedure. In fact, it is a macro. :) I'm just popping in to give you an update on my progress. I've probably spent less than 20 minutes working on this. The good news is I did find the record accessor for tty is mingetty-configuration-tty. My goal for the next week is to do something like this: #+BEGIN_SRC scheme (define (auto-login-to-tty-3 mingetty-service) (if (string=? "3" (mingetty-configuration-tty config)) '(mingetty-configuration (auto-login "joshua") (tty "3")) mingetty-service)) (define (my-modify-%desktop-services-to-auto-login-on-tty-3 %desktop-services) ;; to be written ;; though I think fold, or map, may be useful functions here. ;;somehow I will use this function... (auto-login-to-tty-3 mingetty-service) ) (define %my-desktop-services (my-modify-%desktop-services-to-auto-login-on-tty-3 %desktop-services)) #+END_SRC I'll post again in about a week to tell you about my progress! -- Joshua Branson (joshuaBPMan in #guix) Sent from Emacs and Gnus https://gnucode.me https://video.hardlimit.com/accounts/joshua_branson/video-channels https://propernaming.org "You can have whatever you want, as long as you help enough other people get what they want." - Zig Ziglar