amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: Add emacs-dicom.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-dicom): New variable.

Signed-off-by: Ian Eure <ian@retrospec.tv>
This commit is contained in:
Jake Forster 2025-05-27 23:50:51 +09:30 • committed by Ian Eure
parent 68deb8e3bd
commit 0e808bb6f4
No known key found for this signature in database
GPG key ID: 8499AC88F1A71CF2
1 changed files with 41 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

41
gnu/packages/emacs-xyz.scm
View file

@ -159,6 +159,7 @@
;;; Copyright @ 2025 Amy Pillow <amypillow@lavache.com>
;;; Copyright © 2025 Kurome <hunt31999@gmail.org>
;;; Copyright © 2025 Anderson Torres <anderson.torres.8519@gmail.com>
;;; Copyright © 2025 Jake Forster <jakecameron.forster@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -237,6 +238,7 @@
#:use-module (gnu packages lesstif)
#:use-module (gnu packages llvm)
#:use-module (gnu packages image)
#:use-module (gnu packages image-processing)
#:use-module (gnu packages image-viewers)
#:use-module (gnu packages libffi)
#:use-module (gnu packages linux)
@ -1708,6 +1710,45 @@ do manually if you wanted to keep the buffers of a project neatly isolated in
separate, named tab groups.")
(license license:gpl3+))))
(define-public emacs-dicom
(package
(name "emacs-dicom")
(version "0.5")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/minad/dicom")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "02n5wagcznl5fhyfh222kklj4z90pfrqpzm7q97agyx8bynzwr2p"))))
(build-system emacs-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-dcmtk-executables
(lambda* (#:key inputs #:allow-other-keys)
(make-file-writable "dicom.el")
(let ((dcm2xml (search-input-file inputs "/bin/dcm2xml"))
(dcmj2pnm (search-input-file inputs "/bin/dcmj2pnm")))
(substitute* "dicom.el"
(("\"dcm2xml")
(string-append "\"" dcm2xml))
(("\"dcmj2pnm")
(string-append "\"" dcmj2pnm)))))))))
(inputs (list dcmtk))
(propagated-inputs (list emacs-compat))
(home-page "https://github.com/minad/dicom")
(synopsis
"@acronym{DICOM, Digital Imaging and Communications in Medicine} viewer
for Emacs")
(description
"This package adds the ability to view @acronym{DICOM, Digital Imaging
and Communications in Medicine} files in Emacs.")
(license license:gpl3+)))
(define-public emacs-discourse-mode
(package
(name "emacs-discourse-mode")