M home/modules/ruther/home/emacs.scm => home/modules/ruther/home/emacs.scm +4 -10
@@ 3,24 3,18 @@
#:use-module (guix memoization)
#:use-module (guix inferior)
#:use-module (guix ui)
+ #:use-module (gnu packages emacs)
#:export (emacs-for-tty
emacs-for-wayland
emacs-packages))
-(define emacs-channels
- (load* "./channels-emacs-lock.scm" (make-user-module '((guix channels)))))
-
-(define emacs-inferior
- (inferior-for-channels emacs-channels))
-
(define emacs-for-tty
(mlambda ()
- (first (lookup-inferior-packages emacs-inferior "emacs"))))
+ emacs))
(define emacs-packages
(mlambda ()
- (list
- (first (lookup-inferior-packages emacs-inferior "emacs-vterm")))))
+ (list)))
(define emacs-for-wayland
(mlambda ()
- (first (lookup-inferior-packages emacs-inferior "emacs-pgtk"))))
+ emacs-pgtk))