io/write added
This commit is contained in:
parent
c2e1f406e0
commit
76133a7f2b
|
@ -16,16 +16,38 @@
|
||||||
|
|
||||||
;; IO library
|
;; IO library
|
||||||
|
|
||||||
(defun io/read (FILE)
|
|
||||||
"Read the contents of a file into a buffer and return the content.
|
(defun io/read-buf (FILE)
|
||||||
already opend buffer died after reading content."
|
"Read the file content of FILE into a buffer and return
|
||||||
|
the buffer it self."
|
||||||
(if (file-readable-p FILE)
|
(if (file-readable-p FILE)
|
||||||
(let (x data)
|
(let (read-buffer)
|
||||||
(setq x (find-file FILE))
|
(setq read-buffer (find-file FILE))
|
||||||
(setq data (buffer-string))
|
|
||||||
(kill-buffer x)
|
|
||||||
(identity data)
|
|
||||||
)
|
)
|
||||||
|
(error "Can't read '%s' file.")
|
||||||
)
|
)
|
||||||
)
|
)
|
||||||
|
|
||||||
|
|
||||||
|
(defun io/read (FILE)
|
||||||
|
"Read the contents of FILE into a buffer and return the content.
|
||||||
|
already opend buffer died after reading content."
|
||||||
|
(let (buf data)
|
||||||
|
(setq buf (io/read-buf FILE))
|
||||||
|
(setq data (buffer-string))
|
||||||
|
(kill-buffer buf)
|
||||||
|
(identity data)
|
||||||
|
)
|
||||||
|
)
|
||||||
|
|
||||||
|
(defun io/write (FILE STRING)
|
||||||
|
"Write the STRING into FILE if file was writable."
|
||||||
|
(if (file-writable-p FILE)
|
||||||
|
(with-temp-buffer
|
||||||
|
(insert STR)
|
||||||
|
(write-region (point-min)
|
||||||
|
(point-max)
|
||||||
|
FILE)
|
||||||
|
)
|
||||||
|
)
|
||||||
|
)
|
||||||
|
|
|
@ -66,7 +66,6 @@
|
||||||
(if (= DEBUG 1) (message "[SHIT] DEBUG >>> %s" ARG))
|
(if (= DEBUG 1) (message "[SHIT] DEBUG >>> %s" ARG))
|
||||||
)
|
)
|
||||||
|
|
||||||
|
|
||||||
(defun start-shit ()
|
(defun start-shit ()
|
||||||
"A peace of shit configuration that tune emacs to be an IDE."
|
"A peace of shit configuration that tune emacs to be an IDE."
|
||||||
(interactive)
|
(interactive)
|
||||||
|
|
Loading…
Reference in New Issue