48 lines
2.0 KiB
EmacsLisp
48 lines
2.0 KiB
EmacsLisp
|
(put 'neale/remote-filename 'permanent-local t)
|
||
|
|
(put 'neale/remote-comint-buffer 'permanent-local t)
|
||
|
|
|
||
|
|
(defun neale/remote-edit (filename)
|
||
|
|
(interactive "sFilename: ")
|
||
|
|
(let ((output-buffer (generate-new-buffer-name (format "remote:%s" (file-name-nondirectory filename))))
|
||
|
|
(command (format "base64 %s" filename))
|
||
|
|
(comint-buffer (current-buffer)))
|
||
|
|
(comint-redirect-send-command command output-buffer nil)
|
||
|
|
;; Wait for it to finish
|
||
|
|
(while (null comint-redirect-completed)
|
||
|
|
(sleep-for 0.1))
|
||
|
|
(with-current-buffer output-buffer
|
||
|
|
(setq-local neale/remote-filename filename)
|
||
|
|
(setq-local neale/remote-comint-buffer comint-buffer)
|
||
|
|
(base64-decode-region (point-min) (point-max))
|
||
|
|
(normal-mode)
|
||
|
|
(local-set-key (kbd "C-c C-c") 'neale/remote-write))
|
||
|
|
(message "Loaded")))
|
||
|
|
|
||
|
|
;; (defun neale/remote-write ()
|
||
|
|
;; (interactive)
|
||
|
|
;; (let ((process (get-buffer-process neale/remote-comint-buffer))
|
||
|
|
;; (filename neale/remote-filename)
|
||
|
|
;; (base64-text (base64-encode-string (buffer-string))))
|
||
|
|
;; (with-current-buffer neale/remote-comint-buffer
|
||
|
|
;; (comint-send-string process (format "base64 -d > %s <<'@EOD'\n" filename))
|
||
|
|
;; (comint-send-string process base64-text)
|
||
|
|
;; (comint-send-string process "\n@EOD\n"))
|
||
|
|
;; (message "Buffer written to %s " neale/remote-comint-buffer))))
|
||
|
|
|
||
|
|
(defun neale/remote-write ()
|
||
|
|
(interactive)
|
||
|
|
(let* ((process (get-buffer-process neale/remote-comint-buffer))
|
||
|
|
(filename neale/remote-filename)
|
||
|
|
(text (buffer-string))
|
||
|
|
(base64-text (base64-encode-string text)))
|
||
|
|
(with-current-buffer neale/remote-comint-buffer
|
||
|
|
(comint-send-string process (format "echo ==%s\n" filename))
|
||
|
|
(comint-send-string process (format "ed %s\n" filename))
|
||
|
|
(comint-send-string process ",d\n")
|
||
|
|
(comint-send-string process "a\n")
|
||
|
|
(comint-send-string process text)
|
||
|
|
(comint-send-string process ".\n")
|
||
|
|
(sleep-for 0.2) ; *sigh*
|
||
|
|
(comint-send-string process "wq\n"))
|
||
|
|
(message "Buffer written to %s " neale/remote-comint-buffer)))
|