read and write data to files

read and write data to files

[Emanuel Berg via Users list for the GNU Emacs text editor]

Is this any good?

For the intended purpose, for once, performance
might be an issue and there will be many, many
reading and writings back and forth (sensors,
actions based on sensor readings, and so on in
a loop).

So optimizations are perhaps finally called
for, if anyone has any :)

;;; -*- lexical-binding: t -*-

;; this file: http://user.it.uu.se/~embe8573/emacs-init/file-write-to.el
;;            https://dataswamp.org/~incal/emacs-init/file-write-to.el

;; write

(defun write-to-file (file string)
  (write-region string nil file) )

;; read

(require 'subr-x)

(defun file-to-string (file)
  "A string with the contents of FILE."
  (interactive "Ffile: ")
  (with-temp-buffer
    (insert-file-contents file)
    (string-trim
     (buffer-substring-no-properties (point-min) (point-max)) )))

(defmacro file-to-string-variable (file var)
  `(setq ,var ,(file-to-string file)) )

(defmacro file-to-integer-variable (file var)
  `(setq ,var ,(string-to-number (file-to-string file))) )

;; (write-to-file "~/5ifth.txt" "Leeloo Dallas Multipass")
;; (write-to-file "~/element.txt" (number-to-string 5))
;;
;; (file-to-string "~/5ifth.txt") ; "Leeloo ..."
;; (file-to-string-variable "~/5ifth.txt" string-value) ; "Leeloo ..."
;; (file-to-integer-variable "~/element.txt" integer-value) ; 5
;;
;; string-value ; "Leeloo ..."
;; integer-value ; 5

(provide 'file-write-to)

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal