(use-modules (guix packages)

             (guix git-download)

             (guix gexp)

             (guix utils)

             (guix build-system gnu)

             ((guix licenses) #:prefix license:))

(define-public dpic

  (package

    (name "dpic")

    (synopsis "Implementation of the pic language")

    (description

     "Dpic is an implementation of the pic \"little language\" for creating

line drawings and illustrations for documents, web pages, and other

uses.")

    (home-page "https://gitlab.com/aplevich/dpic")

    (license (list license:bsd-2 license:cc-by3.0 license:lppl1.3c))

    (properties '((commit . "1354b63eb7120e5d0d40855c18d69e413a636ef2")

                  (revision . "1")))

    (version (git-version "0"

                          (assoc-ref properties 'revision)

                          (assoc-ref properties 'commit)))

    (source

     (origin

       (method git-fetch)

       (uri (git-reference

             (url (string-append home-page ".git"))

             (commit (assoc-ref properties 'commit))))

       (file-name (git-file-name name version))

       (sha256

        (base32 "00r4dqwmlbpbb7kshprp9n29cmb8vxy345xqpzlba6bnw5vrgpv9"))))

    (build-system gnu-build-system)

    (arguments

     (list

      #:tests? #f

      #:make-flags

      #~(list (string-append "CC=" #$(cc-for-target))

              (string-append "DESTDIR=" #$output))))))

(define-library (cogd packages emacs-xyz)

  (export emacs-guix/fixed)

  (import (scheme base)

          (guix packages)

          (only (gnu packages emacs-xyz) emacs-guix))

  (begin

    (define emacs-guix/fixed

      (package

        (inherit emacs-guix)

        (source

         (origin

           (inherit (package-source emacs-guix))

           (modules '((guix build utils)))

           (snippet '(substitute* "elisp/guix-pcomplete.el"

                       ((".*autoload")

                        "")))))))))