From 595b53b74e3ef57a1c0c96108ba86d38a170a241 Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Thu, 26 Jan 2023 11:25:00 +0200 Subject: gnu: Add emacs-poke. * gnu/packages/engineering.scm (emacs-poke): New variable. (poke)[arguments]: Add configure-flag to install emacs files to temporary directory. --- gnu/packages/engineering.scm | 22 +++++++++++++++++++++- 1 file changed, 21 insertions(+), 1 deletion(-) diff --git a/gnu/packages/engineering.scm b/gnu/packages/engineering.scm index ff997a140d..14beec9d28 100644 --- a/gnu/packages/engineering.scm +++ b/gnu/packages/engineering.scm @@ -2903,7 +2903,9 @@ program that can perform mesh processing tasks in batch mode, without a GUI.") ;; To enable the "hyperlink server", add the `--enable-hserver' flag. `(#:configure-flags '("--enable-mi" - "--disable-static"))) + "--disable-static" + ;; The emacs files are provided in emacs-poke. + "--with-lispdir=/tmp/share/emacs"))) (home-page "https://www.gnu.org/software/poke/#documentation") (synopsis "Editing of arbitrary binary data") (description "GNU poke is an interactive, extensible editor for binary data. @@ -2912,6 +2914,24 @@ full-fledged procedural, interactive programming language designed to describe data structures and to operate on them.") (license license:gpl3+))) +(define-public emacs-poke + (package + (inherit poke) + (name "emacs-poke") + (build-system emacs-build-system) + (arguments + (list + #:phases + #~(modify-phases %standard-phases + (add-before 'expand-load-path 'change-working-directory + (lambda _ (chdir "etc")))))) + (inputs '()) + (native-inputs '()) + (synopsis "GNU Poke major modes for Emacs") + (description + "This package provides two Emacs major modes for working with GNU Poke: +@code{Poke Ras mode} and @code{Poke Map mode}."))) + (define-public pcb2gcode ;; Take some additional commits after v2.4.0 to fix build against ;; geos 3.10.1. -- cgit 1.4.1