iclj/iclj-op-table.el at main · lambdart/iclj · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
;;; iclj-op-table.el --- summary -*- lexical-binding: t -*-
;;
;; Author: lambdart <lambdart@protonmail.com>
;; Maintainer: lambdart
;; Homepage: https://codeberg.org/lambdart/iclj-op-vars.el
;; Version: 0.1.0 Alpha
;; Keywords:
;;
;; This file is NOT part of GNU Emacs.
;;
;;; MIT License
;;
;; Copyright (c) 2023 lambdart
;;
;; Permission is hereby granted, free of charge, to any person obtaining a copy
;; of this software and associated documentation files (the "Software"), to deal
;; in the Software without restriction, including without limitation the rights
;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
;; copies of the Software, and to permit persons to whom the Software is
;; furnished to do so, subject to the following conditions:
;;
;; The above copyright notice and this permission notice shall be included in
;; all copies or substantial portions of the Software.
;;
;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
;; SOFTWARE.
;;
;;; Commentary:
;;
;;; Code:

(defvar iclj-op-eldoc-fmt
  "(let [m (clojure.core/meta #'%s)]
     (flatten
        (list (str (get m :name))
              (str (first (get m :arglists)))
              (get m :doc))))"
  "Eldoc operation format.")

(defvar iclj-ns-list-fmt
  "(clojure.core/->>
     (clojure.core/all-ns)
     (clojure.core/map clojure.core/ns-name)
     (clojure.core/map name))"
  "Return list all of available namespaces.")

(defvar iclj-trace-ns-fmt
  "(use 'clojure.tools.trace)
(clojure.tools.trace/trace-ns '%s)"
  "Trace chosen namescape format.")

(defvar iclj-trace-vs-fmt
  "(use 'clojure.tools.trace)
(clojure.tools.trace/trace-vars '%s)"
  "Trace chosen namescape vars format.")

(defvar iclj-trace-fn-fmt
  "(use 'clojure.tools.trace)
(clojure.tools.trace/trace-fn-call '%s %s ())"
  "Trace function call format.")

(defvar iclj-op-all-ns-fmt
  "(clojure.pprint/pprint
     (clojure.core/->>
       (clojure.core/all-ns)
       (clojure.core/map clojure.core/ns-name)
       (clojure.core/map name)))"
  "List all available namespaces.")

(defvar iclj-op-table
  `((input          . (:cf "%s"))
    (eval           . (:cf "%s"))
    (eval-last-sexp . (:cb iclj-eval-handler :cf "%s" :wp t))
    (doc            . (:cf "(clojure.repl/doc %s)"))
    (find-doc       . (:cf "(clojure.repl/find-doc %S)"))
    (run-tests      . (:cf "(clojure.test/run-tests)"))
    (eldoc          . (:cb iclj-eldoc-handler :cf ,iclj-op-eldoc-fmt))
    (apropos        . (:cb iclj-apropos-handler
                       :cf "(sort (clojure.repl/apropos %S))"
                       :wp t))
    (source         . (:cf "(clojure.repl/source %s)"))

    (meta           . (:cf "(clojure.pprint/pprint (clojure.core/meta #'%s))"))
    (macroexpand    . (:cf "(clojure.pprint/pprint (clojure.core/macroexpand '%s))"))
    (macroexpand-1  . (:cf "(clojure.pprint/pprint (clojure.core/macroexpand-1 '%s))"))
    (all-ns         . (:cf ,iclj-op-all-ns-fmt))
    (ns-vars        . (:cf "(clojure.repl/dir %s)"))
    (ns-list        . (:cf ,iclj-ns-list-fmt :cb iclj-ns-list-handler :wp t))
    (set-ns         . (:cf "(clojure.core/in-ns '%s)"))
    (trace-ns       . (:cf ,iclj-trace-ns-fmt))
    (trace-vs       . (:cf ,iclj-trace-vs-fmt))
    (trace-fn       . (:cf ,iclj-trace-fn-fmt)))
  "Operation associative list: (OP-KEY . (OP-PLIST))
OP-KEY, the operation key selector.
OP-PLIST, response handler, operation format string and
dedicated output buffer.")

(defun iclj-op-table-get-plist (op-key)
  "Get the property list from the operation OP-KEY table."
  (cdr (assoc op-key iclj-op-table))) ; select operation

(defun iclj-op-table-get-property (op-key property)
  "Get property list element from the operation table.
OP-KEY, operation key property list selector.
PROPERTY, possible values are: :cb, and :cf."
  (plist-get (iclj-op-table-get-plist op-key) property))

(provide 'iclj-op-table)

;;; iclj-op-table.el ends here