From d2efd598855759ce8377569b9e8279a5f774a22a Mon Sep 17 00:00:00 2001
From: Tonton <tonton@riseup.net>
Date: Wed, 28 Mar 2018 16:08:52 +0200
Subject: [PATCH] Add package definition screen message

Built and tested on GuixSD Linux merlin 4.15.8-gnu #1 SMP 1 x86_64 GNU/Linux.

It passes guix lint without errors.

It builds 5 times deterministicly.

Guix size says "total: 486.5 MiB"
---
 gnu/packages/fpm2.scm | 64 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 64 insertions(+)
 create mode 100644 gnu/packages/fpm2.scm

diff --git a/gnu/packages/fpm2.scm b/gnu/packages/fpm2.scm
new file mode 100644
index 000000000..a9a35e01a
--- /dev/null
+++ b/gnu/packages/fpm2.scm
@@ -0,0 +1,64 @@
+(define-module (fpm2)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix build-system gnu)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages gtk)
+  #:use-module (gnu packages gnupg)
+  #:use-module (gnu packages xml)
+  #:use-module (gnu packages glib))
+
+(define-public fpm2
+  (package
+    (name "fpm2")
+    (version "0.79")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "https://als.regnet.cz/fpm2/download/fpm2-"
+                                  version ".tar.bz2"))
+              (sha256
+               (base32
+                "19sdy1lygfhkg5nxi2w9a4d9kwvw24nxp0ix0p0lz91qpvk9qpnm"))))
+    (build-system gnu-build-system)
+    (inputs `(("gtk2" ,gtk+-2)
+              ("gnupg" ,gnupg)
+              ("libxml2" ,libxml2)))
+    (native-inputs `(("pkgconfig" ,pkg-config)
+                     ("intltool" ,intltool)))
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-before
+             'configure 'pre-configure
+           (lambda _
+               (let* ((poinc (open-output-file "po/POTFILES.in")))
+                 (begin
+                   (newline poinc)
+                   (display "data/fpm2.desktop.in" poinc)
+                   (newline poinc)
+                   (display "data/fpm2.desktop.in.in" poinc)
+                   (newline poinc)
+                   (display "fpm2.glade" poinc)
+                   (newline poinc)
+                   (display "src/callbacks.c" poinc)
+                   (newline poinc)
+                   (display "src/fpm.c" poinc)
+                   (newline poinc)
+                   (display "src/fpm_file.c" poinc)
+                   (newline poinc)
+                   (display "src/interface.c" poinc)
+                   (newline poinc)
+                   (display "src/support.c" poinc)
+                   (newline poinc)
+                   (display "fpm2.glade" poinc)
+                   (newline poinc)
+                   (close-port poinc))))))))
+    (synopsis "Manages, generates and stores passwords encrypted")
+    (description "FPM2 is GTK2 port from Figaro's Password Manager
+originally developed by John Conneely, with some new enhancements.
+
+Upstream development seems to have stopped.  It is therefore recommended
+to use a different password manager.  ")
+    (home-page "https://als.regnet.cz/fpm2/")
+    (license license:gpl2)))
-- 
2.16.3