leo-inspect.el

;;; leo.el --- Indpection functions for for emacs-leo.el -*- lexical-binding:t -*-
;;
;; Copyright (C) 2021 Marty Hiatt <martianhiatus AT riseup.net>
;;
;; Author: Marty Hiatt <martianhiatus AT riseup.net>
;; Created: Sept 2021
;;
;; Package-Requires: ((emacs "25.1"))
;; Keywords: convenience, translate
;; URL: https://git.blast.noho.st/mouse/emacs-leo
;; Version: 0.2
;; Prefix: leo
;; Separator: -
;;
;;; License:
;;
;; This file is NOT part of GNU Emacs.
;;
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <https://www.gnu.org/licenses/>.

(defun leo--inspect-parsed-xml (word)
  "View the parsed xml returned by a query for WORD.
The result is also saved to variable leo-xml-inspect-result for playing."
  (interactive "sTranslate: ")
  (let ((xml (leo--parse-xml
              (leo--generate-url leo-language word)))
        (buffer (get-buffer-create "*leo-parsed-xml*")))
    (switch-to-buffer-other-window buffer)
    (erase-buffer)
    (goto-char (point-min))
    (let ((inhibit-read-only t))
      (setq leo-xml-inspect-result xml)
      (setq leo-xml-inspect-section-list
            (car (leo--get-result-section-list
                  (car leo-xml-inspect-result))))
      (setq leo-xml-inspect-sections-as-list
            (leo--get-result-sections-as-list
             (leo--get-result-section-list
              (car leo-xml-inspect-result))))
      ;; get sections by POS:
      (mapcar (lambda (x)
                (let ((pos (leo--get-section-part-of-speech x)))
                  (cond
                   ((equal pos "Substantive")
                    (setq leo-xml-inspect-single-section-noun x))
                   ((equal pos "Verben")
                    (setq leo-xml-inspect-single-section-verb x))
                   ((equal pos "Adjektive/Adverbien")
                    (setq leo-xml-inspect-single-section-adj-adv x))
                   ((equal pos "Präpositionen/Pronomen")
                    (setq leo-xml-inspect-single-section-praep x))
                   ((equal pos "Beispeiele")
                    (setq leo-xml-inspect-single-section-eg x))
                   ((equal pos "Wendungen/Ausdrücke")
                    (setq leo-xml-inspect-single-section-wendung x))
                   (t
                    (setq leo-xml-inspect-single-section-other x)))))
              leo-xml-inspect-sections-as-list)
      (setq leo-xml-inspect-single-section
            (car (leo--get-result-sections-as-list
                  (leo--get-result-section-list
                   (car leo-xml-inspect-result)))))
      (setq leo-xml-inspect-entries-list
            (leo--get-entries-from-section
             (car (leo--get-result-sections-as-list
                   (leo--get-result-section-list
                    (car leo-xml-inspect-result))))))
      (setq leo-xml-inspect-single-entry
            (car (leo--get-entries-from-section
                  (car (leo--get-result-sections-as-list
                        (leo--get-result-section-list
                         (car leo-xml-inspect-result)))))))
                         ;; (leo--xml-node-itself xml)))))))
      (setq leo-xml-inspect-single-side-1
            (car (leo--get-sides-from-entry
                  leo-xml-inspect-single-entry)))
      (setq leo-xml-inspect-single-side-2
            (cadr (leo--get-sides-from-entry
                   leo-xml-inspect-single-entry)))
      (setq leo-xml-inspect-result-string-1
            (leo--get-repr-children-strings-as-string-trimmed
             leo-xml-inspect-single-side-1))
      (print xml (current-buffer))
      (emacs-lisp-mode)
      (pp-buffer)
      )))

(defun leo--inspect-raw-xml (word)
  "View the parsed xml returned by a query for WORD.
The result is also saved to variable leo-xml-inspect-result for playing."
  (interactive "sTranslate: ")
  (let ((buffer (get-buffer-create "*leo-raw-xml*")))
    (switch-to-buffer-other-window buffer)
    (erase-buffer)
    (goto-char (point-min))
	(url-insert-file-contents 
     (leo--generate-url leo-language word))
    (xml-mode)
    (auto-fill-mode)
    (message "consider running sgml-pretty-print.")))