~abcdw/rde

8f631d6e20c96bd416481b1b6ffc7aa5d583b38b — Andrew Tropin 3 months ago 4961f47
home-services: emacs: Remove forked mixed-text-file.
1 files changed, 16 insertions(+), 16 deletions(-)

M gnu/home-services/emacs.scm
M gnu/home-services/emacs.scm => gnu/home-services/emacs.scm +16 -16
@@ 184,22 184,22 @@ connect to it.")
				   "/emacs.log")))
             (stop #~(make-kill-destructor))))))

(define* (mixed-text-file name #:rest text)
  "Return an object representing store file NAME containing TEXT.  TEXT is a
sequence of strings and file-like objects, as in:

  (mixed-text-file \"profile\"
                   \"export PATH=\" coreutils \"/bin:\" grep \"/bin\")

This is the declarative counterpart of 'text-file*'."
  (define build
    (gexp (call-with-output-file (ungexp output "out")
            (lambda (port)
              ;; TODO: Upstream the fix?
              (set-port-encoding! port "UTF-8")
              (display (string-append (ungexp-splicing text)) port)))))

  (computed-file name build))
;; (define* (mixed-text-file name #:rest text)
;;   "Return an object representing store file NAME containing TEXT.  TEXT is a
;; sequence of strings and file-like objects, as in:

;;   (mixed-text-file \"profile\"
;;                    \"export PATH=\" coreutils \"/bin:\" grep \"/bin\")

;; This is the declarative counterpart of 'text-file*'."
;;   (define build
;;     (gexp (call-with-output-file (ungexp output "out")
;;             (lambda (port)
;;               ;; TODO: Upstream the fix?
;;               (set-port-encoding! port "UTF-8")
;;               (display (string-append (ungexp-splicing text)) port)))))

;;   (computed-file name build))

(define (add-emacs-configuration config)
  (let* ((xdg-flavor? (home-emacs-configuration-xdg-flavor? config)))