09/09: licenses: Add Arphic-1999 (Aprhic Public License).

[guix-commits]

iyzsong pushed a commit to branch master
in repository guix.

commit 3f092e4d762636ebef394d2a61d4967dcffe806d
Author: walky_talky <pat-hwaki@proton.me>
AuthorDate: Tue Jul 18 13:36:11 2023 +0800

    licenses: Add Arphic-1999 (Aprhic Public License).
    
    * guix/licenses.scm (arphic-1999): New variable.
    * guix/import/utils.scm (%spdx-license-identifiers): Add Arphic-1999.
    
    Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
---
 guix/import/utils.scm | 1 +
 guix/licenses.scm     | 9 +++++++++
 2 files changed, 10 insertions(+)

diff --git a/guix/import/utils.scm b/guix/import/utils.scm
index 257570e95b..fcd7707482 100644
--- a/guix/import/utils.scm
+++ b/guix/import/utils.scm
@@ -179,6 +179,7 @@ thrown."
     ("AGPL-3.0"                   . license:agpl3)
     ("AGPL-3.0-only"              . license:agpl3)
     ("AGPL-3.0-or-later"          . license:agpl3+)
+    ("Arphic-1999"                . license:arphic-1999)
     ("Apache-1.1"                 . license:asl1.1)
     ("Apache-2.0"                 . license:asl2.0)
     ("APSL-2.0"                   . license:apsl2)
diff --git a/guix/licenses.scm b/guix/licenses.scm
index 10f36b02f9..d200614d91 100644
--- a/guix/licenses.scm
+++ b/guix/licenses.scm
@@ -42,6 +42,7 @@
             afl2.1
             agpl1 agpl3 agpl3+
             apsl2
+            arphic-1999
             asl1.1 asl2.0
             boost1.0
             bsd-0 bsd-1 bsd-2 bsd-3 bsd-4
@@ -197,6 +198,14 @@ cases, reduces to #t at macro-expansion time."
            "https://directory.fsf.org/wiki/License:APSL-2.0";
            "https://www.gnu.org/licenses/license-list.html#apsl2";))
 
+;; This is a copyleft free software license, incompatible with the GPL.  Its
+;; normal use is for fonts, and in that use, the incompatibility does not
+;; cause a problem.
+(define arphic-1999
+  (license "Arphic Public License"
+           "https://directory.fsf.org/wiki/License:Arphic-PL";
+           "https://www.gnu.org/licenses/license-list.html#Arphic";))
+
 (define asl1.1
   (license "ASL 1.1"
            "http://directory.fsf.org/wiki/License:Apache1.1";