From patchwork Fri Oct 7 14:01:20 2022 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: Mehmet Tekman X-Patchwork-Id: 43189 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id 222EF27BBEA; Fri, 7 Oct 2022 16:24:41 +0100 (BST) X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-2.7 required=5.0 tests=BAYES_00,DKIM_ADSP_CUSTOM_MED, DKIM_INVALID,DKIM_SIGNED,FREEMAIL_FROM,MAILING_LIST_MULTI, SPF_HELO_PASS,URIBL_BLOCKED autolearn=unavailable autolearn_force=no version=3.4.6 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTPS id 8F5C227BBE9 for ; Fri, 7 Oct 2022 16:24:40 +0100 (BST) Received: from localhost ([::1]:46778 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1ogpDL-0004zx-M5 for patchwork@mira.cbaines.net; Fri, 07 Oct 2022 11:24:39 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:47626) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1ognwM-0002tQ-OV for guix-patches@gnu.org; Fri, 07 Oct 2022 10:03:02 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:37905) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1ognwM-00015v-FP for guix-patches@gnu.org; Fri, 07 Oct 2022 10:03:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1ognwM-0003eF-9U for guix-patches@gnu.org; Fri, 07 Oct 2022 10:03:02 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#58356] [PATCH] Add xtrlock Resent-From: Mehmet Tekman Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Fri, 07 Oct 2022 14:03:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 58356 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 58356@debbugs.gnu.org X-Debbugs-Original-To: guix-patches@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.166515133613969 (code B ref -1); Fri, 07 Oct 2022 14:03:02 +0000 Received: (at submit) by debbugs.gnu.org; 7 Oct 2022 14:02:16 +0000 Received: from localhost ([127.0.0.1]:36983 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ognvZ-0003dB-DZ for submit@debbugs.gnu.org; Fri, 07 Oct 2022 10:02:16 -0400 Received: from lists.gnu.org ([209.51.188.17]:42248) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ognvX-0003d4-QM for submit@debbugs.gnu.org; Fri, 07 Oct 2022 10:02:12 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:56436) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1ognvO-0002GI-8f for guix-patches@gnu.org; Fri, 07 Oct 2022 10:02:06 -0400 Received: from mail-lf1-x12b.google.com ([2a00:1450:4864:20::12b]:41792) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1ognvL-000114-5h for guix-patches@gnu.org; Fri, 07 Oct 2022 10:02:01 -0400 Received: by mail-lf1-x12b.google.com with SMTP id f37so7426692lfv.8 for ; Fri, 07 Oct 2022 07:01:58 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=content-transfer-encoding:to:subject:message-id:date:from :mime-version:from:to:cc:subject:date:message-id:reply-to; bh=pe1NR7vTuOjnyyUUP07beOznB4fTQjdaFGMYaGg4dMU=; b=XnXx57wJ0XAmYz2mclNRQLZGrx3k3V1RC9VJcaJP/sqzamA8w9Yv5LuVhPufmujbsD mMfzGVQXQHpFo49UKDZfznHdISXU7iejojGLJ+oc5wE95IdkpMRiWh8Y67klLmQEkwkr 2ZJMWxG6TmM2LEMlaxP0zMT7hUDlXSHiWEVBaz92LHoDcxY8e2iZ7fpIXe4G5GDflXDK JhOSrtnsqqfj4PAHehK+lGW8FVMnshm/88DQEGooizx+1HrCCutXht0erWD9RSQDTyJC 1P9sGxVsN6BJIleo7KJ/PsLAjvcC3p7wIhWqoii2kwzF34X1xI1wvQOkXO9R5fezWYOZ SKHg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=content-transfer-encoding:to:subject:message-id:date:from :mime-version:x-gm-message-state:from:to:cc:subject:date:message-id :reply-to; bh=pe1NR7vTuOjnyyUUP07beOznB4fTQjdaFGMYaGg4dMU=; b=e37ic75Z8yUJL8kI5bz3WqbsP9OF59htv+i3lTimWaOZHqqX1FJu0aDUpjbv0bCJkr w9PQW0FCxiyF6rmptqHZU1MlizEQUGm4wP2ZgArwSIndSrwHYffE8p4keF/CzG+cVu+z oI/ANGy0R+8TbiKfiBKFoWG7dz6Xxq7WU3twlkkjWD7xtMLurltaopdO7go7MgkjF8dN QsOzY/cmkKj+24mHF38ctEgUbTar7JeLGMjWyMAeS8AF1dKME5vJGNeKJumqXXvNnQI8 QeyHxoAR37Pm4W0/vCi47uC9zNMGiz3Bzj7zfNoJEjpS7NeuJL8kuy6zQNJb23abJ4zU InoQ== X-Gm-Message-State: ACrzQf35EEp6qLsB1Qgjq8aXfNNBxpi6fFfScZT7sTN+VLm9BBcwh7B5 syuuW4VOfiYQJL2NSe+WWim29m3FPoMS9erqJxJ5tFQVakY+ng== X-Google-Smtp-Source: AMsMyM6C6IJaJQp5yuzfqIEStR+FmIYPfcw7JiZXpCJXH4jFIZjyF7fv6I8ODsvRQKRNaCQ9lOgI0hIU3CsB0xWsX7s= X-Received: by 2002:a05:6512:2389:b0:499:a346:ed17 with SMTP id c9-20020a056512238900b00499a346ed17mr1935645lfv.493.1665151316071; Fri, 07 Oct 2022 07:01:56 -0700 (PDT) MIME-Version: 1.0 From: Mehmet Tekman Date: Fri, 7 Oct 2022 16:01:20 +0200 Message-ID: Received-SPF: pass client-ip=2a00:1450:4864:20::12b; envelope-from=mtekman89@gmail.com; helo=mail-lf1-x12b.google.com X-Spam_score_int: -17 X-Spam_score: -1.8 X-Spam_bar: - X-Spam_report: (-1.8 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_ENVFROM_END_DIGIT=0.25, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: "Guix-patches" X-getmail-retrieved-from-mailbox: Patches --- gnu/packages/xtrlock.scm | 71 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 71 insertions(+) create mode 100644 gnu/packages/xtrlock.scm +anything that has been entered.") + (license license:gpl3)))) diff --git a/gnu/packages/xtrlock.scm b/gnu/packages/xtrlock.scm new file mode 100644 index 0000000000..2acf45e8b3 --- /dev/null +++ b/gnu/packages/xtrlock.scm @@ -0,0 +1,71 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2022 Mehmet Tekman +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see . + +(define-module (gnu packages xtrlock) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module (guix build-system gnu) + #:use-module (gnu packages xorg) + #:use-module ((guix licenses) #:prefix license:) + ) + +(define-public xtrlock + (let ((pkg-version "2.15") + (pkg-hash "0mgpysbvipd5h6x6zz4hng6b13gp3qjnpgny3azyj8k8dv85bppw") + (recipe-revision "0")) + (package + (name "xtrlock") + (version (string-append pkg-version ".r" recipe-revision)) + (source (origin + (method url-fetch) + (uri (string-append + "mirror://debian/pool/main/x/xtrlock/xtrlock_" + pkg-version ".tar.xz")) + (sha256 (base32 pkg-hash)))) + (build-system gnu-build-system) + (arguments + '(#:make-flags + (list "LDLIBS=-lX11 -lcrypt -lXi" + "CFLAGS=-Wall -DSHADOW_PWD -DMULTITOUCH") + #:phases + (modify-phases + %standard-phases + (delete 'configure) + (delete 'check) + (add-after 'unpack 'rename-makefile + (lambda _ + (rename-file "Makefile.noimake" "Makefile") + (rename-file "xtrlock.man" "xtrlock.1"))) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out"))) + (install-file "xtrlock" (string-append out "/bin/")) + (install-file "xtrlock.1" (string-append out "/share/man/man1/")))))))) + (native-inputs (list libx11 libxi libxfixes)) + (home-page "https://packages.debian.org/sid/xtrlock") + (synopsis "Minimal X display lock program") + (description "xtrlock locks the X server till the user enters their password at the +keyboard. While xtrlock is running, the mouse and keyboard are grabbed and +the mouse cursor becomes a padlock. Output displayed by X programs, and +windows put up by new X clients, continue to be visible, and any new output is +displayed normally. The mouse and keyboard are returned when the user types +their password, followed by Enter or Newline. If an incorrect password is +entered the bell is sounded. Pressing Backspace or Delete erases one +character of a password partially typed; pressing Escape or Clear clears