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

(defun build-readme-view (name)
  "Choose and display the `org-ql-views' view NAME.
Interactively, prompt for NAME."
  (let* ((result)
         (view (alist-get name org-ql-views nil nil #'string=))
         )
    (-let* (((&plist :buffers-files :query :sort :narrow :super-groups :title) view)
            (super-groups (cl-typecase super-groups
                            (symbol (symbol-value super-groups))
                            (list super-groups))))
      (message "step 1:+++++++ %s" query)
      (build-readme-search buffers-files query
        :super-groups super-groups :narrow narrow :sort sort :title title
        :buffer org-ql-view-buffer)
      ))
  )

(cl-defun build-readme-search (buffers-files query &key narrow super-groups sort title
                                             (buffer org-ql-view-buffer))
  (declare (indent defun))
  (interactive (list (org-ql-view--complete-buffers-files)
                     (read-string "Query: " (when org-ql-view-query
                                              (format "%S" org-ql-view-query)))
                     :narrow (or org-ql-view-narrow (eq current-prefix-arg '(4)))
                     :super-groups (org-ql-view--complete-super-groups)
                     :sort (org-ql-view--complete-sort)))
  ;; NOTE: Using `with-temp-buffer' is a hack to work around the fact that `make-local-variable'
  ;; does not work reliably from inside a `let' form when the target buffer is current on entry
  ;; to or exit from the `let', even though `make-local-variable' is actually done in
  ;; `org-ql-view--display'.  So we do all this within a temp buffer, which works around it.
  (with-temp-buffer
    (let* ((query (cl-etypecase query
                    (string (if (or (string-prefix-p "(" query)
                                    (string-prefix-p "\"" query))
                                ;; Read sexp query.
                                (read query)
                              ;; Parse non-sexp query into sexp query.
                              (org-ql--query-string-to-sexp query)))
                    (list query)))
           (results (org-ql-select buffers-files query
                      :action 'element-with-markers
                      :narrow narrow
                      :sort sort))
           (strings (-map #'org-ql-view--format-element results))
           (buffer (or buffer (format "%s %s*" org-ql-view-buffer-name-prefix (or title query))))
           (header (org-ql-view--header-line-format
                    :buffers-files buffers-files :query query :title title))
           ;; Bind variables for `org-ql-view--display' to set.
           (org-ql-view-buffers-files buffers-files)
           (org-ql-view-query query)
           (org-ql-view-sort sort)
           (org-ql-view-narrow narrow)
           (org-ql-view-super-groups super-groups)
           (org-ql-view-title title))
      (when super-groups
        (let ((org-super-agenda-groups (cl-etypecase super-groups
                                         (symbol (symbol-value super-groups))
                                         (list super-groups))))
          (setf strings (org-super-agenda--group-items strings))))
      ;;TODO no show view
      ;; insert buffer to coverto build readme
      (message "build readme file:\n %s " (s-join "\n" strings))
      ;; (org-ql-view--display :buffer buffer :header header :string (s-join "\n" strings))
                )))

(build-readme-view "readme")

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

build readme file:

  原则
  TODO 诚信原则
  TODO 成长原则
  TODO 自我管理原则

 基于 org-super-agenda 定义 agenda 模板
  TODO 快速导出 agenda 清单模板  9d ago  :@学习笔记:
  TODO 每日安排  :@学习笔记:
  TODO 每周安排  :@学习笔记:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12

---
PromptInfo:
 promptId: getParagraph
 name: ✍️ Write paragraphs
 description: select a content contiens items, a paragraph for each item will be generated.
 required_values: title, outline
 author: Noureddine
 tags: writing
 version: 0.0.1
 commands:
 - generate
---