y
(define-public emacs-tiny
(package
(inherit emacs)
(name "emacs-tiny")
(arguments
(substitute-keyword-arguments
(package-arguments emacs)
((#:phases phases)
`(modify-phases ,phases
(add-after 'unpack 'remove-crap
(lambda _
(for-each
(lambda (file)
(format #t "deleting ~a...~%" file)
(delete-file-recursively
(string-append (getcwd) "/lisp/" file)))
'("obsolete"))))))))))