15 lines
368 B
EmacsLisp
15 lines
368 B
EmacsLisp
;;; jx.el -- JsonInteractiveExperience for emacs -*- lexical-binding: t; -*-
|
|
;;; Commentary:
|
|
;;; Code:
|
|
|
|
(require 'stdio)
|
|
|
|
(defun jx-test ()
|
|
"Test the jx stuff."
|
|
(interactive)
|
|
(let ((process (stdio-call (list "cat" "testfile"))))
|
|
(while-let ((line (stdio-read-line process)))
|
|
(message (format "jx-test: %s" line)))))
|
|
|
|
(provide 'jx)
|
|
;;; jx.el ends here
|