Re: Lightweight Emacs (or "GTK+ minimal)

[philippe . brochard]

Leo Prikler <leo.prikler@student.tugraz.at> writes:

> Hello, Pierre
>
Hi,

>> Also I wonder why guile is in there.
> According to guix graph, guile is pulled by gnutls.
>
>> 1. Does anyone have a recipe for Emacs without GTK+ (that can also
>>    display pictures)?
> Not directly, but you could try building it with motif (package
> lesstif) or Lucid/Athena (requires at least libxaw, not sure if all
> dependencies for that are packaged).
>
I managed to build Emacs with Lucid with the following definition:

---8<-----------------------------------------------------------------------
(define-module (gnu packages emacs-lucid)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix build-system gnu)
  #:use-module (guix build-system glib-or-gtk)
  #:use-module (gnu packages)
  #:use-module (gnu packages acl)
  #:use-module (gnu packages autotools)
  #:use-module (gnu packages base)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages fontutils)
  #:use-module (gnu packages fribidi)
  #:use-module (gnu packages gd)
  #:use-module (gnu packages gettext)
  #:use-module (gnu packages glib)
  #:use-module (gnu packages gnome) ; for librsvg
  #:use-module (gnu packages gtk)
  #:use-module (gnu packages guile)
  #:use-module (gnu packages image)
  #:use-module (gnu packages imagemagick)
  #:use-module (gnu packages linux) ; alsa-lib
  #:use-module (gnu packages ncurses)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages texinfo)
  #:use-module (gnu packages tls)
  #:use-module (gnu packages webkit)
  #:use-module (gnu packages xml)
  #:use-module (gnu packages xorg)
  #:use-module (guix utils)
  #:use-module (srfi srfi-1)
  #:use-module (gnu packages emacs))

(define-public emacs-lucid
  (package
    (inherit emacs)
    (name "emacs-lucid")
    (synopsis "The extensible, customizable, self-documenting text
editor (with lucid support)")
    (build-system gnu-build-system)
    (arguments
     (substitute-keyword-arguments (package-arguments emacs)
       ((#:configure-flags flags ''())
        `(cons "--with-x-toolkit=lucid" ,flags))))
    (inputs
     `(("libxaw" ,libxaw)
           ,@(package-inputs emacs)))))

emacs-lucid
---8<-----------------------------------------------------------------------

Surely need more work to be polished.

Best regards,

Philippe