~bandali/guix-bandali

e0c62280690ffc9e1195c2c827d2a1e05b3177e9 — Amin Bandali 6 months ago d92e49b
bandali: add with-emacs-next helper and test it.
1 files changed, 23 insertions(+), 4 deletions(-)

M bandali/packages/emacs-xyz.scm
M bandali/packages/emacs-xyz.scm => bandali/packages/emacs-xyz.scm +23 -4
@@ 17,13 17,32 @@
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (bandali packages emacs-xyz)
  #:use-module (gnu packages emacs)
  #:use-module (gnu packages emacs-xyz)
  #:use-module (gnu packages sqlite)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix build-system emacs)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix build-system emacs)
  #:use-module (gnu packages emacs-xyz)
  #:use-module (gnu packages sqlite))
  #:use-module (guix packages)
  #:use-module (guix utils))

(define (with-emacs-next p)
  "Return a version of package P built using `emacs-next'."
  (package
    (inherit p)
    (name (let ((name (package-name p)))
            (string-append "emacs-next-"
                           (if (string-prefix? "emacs-" name)
                               (substring name
                                          (string-length "emacs-"))
                               name))))
    (arguments
     (substitute-keyword-arguments (package-arguments p)
       ((#:emacs _) emacs-next)))))

(define-public emacs-next-delight
  (with-emacs-next emacs-delight))

(define-public emacs-shrink-path-git
  (let ((commit "c14882c8599aec79a6e8ef2d06454254bb3e1e41")