24 lines
721 B
EmacsLisp
24 lines
721 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)))))
|
|
|
|
(defun jx-text-json ()
|
|
"test the jx json input."
|
|
(interactive)
|
|
(let ((process (stdio-call (list "cat" "json-test"))))
|
|
(while-let ((object (stdio-read-json process
|
|
:object-type 'plist
|
|
:array-type 'list)))
|
|
(message (format "jx-json-object: %s" object)))))
|
|
|
|
(provide 'jx)
|
|
;;; jx.el ends here
|