unofficial mirror of guix-patches@gnu.org 
 help / color / mirror / code / Atom feed
From: simon@netpanic.org
To: 57289@debbugs.gnu.org
Cc: Simon Streit <simon@netpanic.org>
Subject: [bug#57289] [PATCH] gnu: Add mons.
Date: Thu, 18 Aug 2022 23:31:17 +0200	[thread overview]
Message-ID: <eb22776d71b6fc9529e4c72e1f2a89a57482b9fc.1660858226.git.simon@netpanic.org> (raw)

From: Simon Streit <simon@netpanic.org>

* gnu/packages/xdisorg.scm (mons): New variable.
---
 gnu/packages/xdisorg.scm | 43 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)

diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm
index 8360708445..bebd1e79cc 100644
--- a/gnu/packages/xdisorg.scm
+++ b/gnu/packages/xdisorg.scm
@@ -3157,3 +3157,46 @@ (define-public wlsunset
 light filter or night light.")
     (license license:expat)))
 
+(define-public mons
+  (package
+    (name "mons")
+    (version "0.8.2")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://github.com/Ventto/mons")
+                    (commit (string-append "v" version))
+                    (recursive? #t)))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "1dvfw40p81n24c28wvl39vn8acr2n0r4wh69fxp05afmp5lhp3vv"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:tests? #f ;there are none.
+       #:phases (modify-phases %standard-phases
+                  (delete 'configure)
+                  (add-before 'build 'fix-prefix
+                    (lambda* (#:key outputs #:allow-other-keys)
+                      (substitute* "Makefile"
+                        (("/usr")
+                         ""))))
+                  (replace 'build
+                    (lambda* (#:key outputs #:allow-other-keys)
+                      (setenv "DESTDIR"
+                              (assoc-ref %outputs "out"))
+                      (invoke "make" "install")))
+                  (add-after 'build 'fix-lib-path
+                    (lambda* (#:key outputs #:allow-other-keys)
+                      (substitute* "mons"
+                        (("/usr/lib")
+                         (string-append (assoc-ref outputs "out") "/lib"))))))))
+    (native-inputs (list help2man))
+    (inputs (list xrandr))
+    (home-page "https://github.com/Ventto/mons")
+    (synopsis "POSIX Shell script to quickly manage monitors on X")
+    (description
+     "A POSIX compliant script that provides well-known modes like
+computer, duplicate, extend and projector mode as well as selecting
+and positioning one or two monitors among those plugged in.")
+    (license license:expat)))
-- 
2.37.2





                 reply	other threads:[~2022-08-18 21:32 UTC|newest]

Thread overview: [no followups] expand[flat|nested]  mbox.gz  Atom feed

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://guix.gnu.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=eb22776d71b6fc9529e4c72e1f2a89a57482b9fc.1660858226.git.simon@netpanic.org \
    --to=simon@netpanic.org \
    --cc=57289@debbugs.gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).