org-mcp/Eask at main · stfl/org-mcp · 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
;; -*- mode: eask; lexical-binding: t -*-

(package "org-mcp"
         "0.9.0"
         "MCP server for Org-mode")

(website-url "https://github.com/laurynas-biveinis/org-mcp")
(keywords "convenience" "files" "matching" "outlines")

(source "melpa")

(depends-on "emacs" "30.1")
(depends-on "mcp-server-lib" "0.2.0")
(depends-on "org-ql" "0.9")

(setq network-security-level 'low)

(package-file "org-mcp.el")

(files "org-mcp.el"
       "org-mcp-stdio.sh")

(script "test" "eask test ert org-mcp-test.el")

(script "org-lint"
        (concat "emacs -Q --batch "
                "--eval \"(require 'org)\" "
                "--eval \"(require 'org-lint)\" "
                "--eval \"(let ((all-checks-passed t) "
                        "(files '(\\\"README.org\\\"))) "
                    "(dolist (file files all-checks-passed) "
                      "(with-temp-buffer "
                        "(insert-file-contents file) "
                        "(org-mode) "
                        "(let* ((all-results (org-lint)) "
                               "(results (seq-filter "
                                         "(lambda (r) "
                                           "(not (string= (aref (cadr r) 1) \\\"low\\\"))) "
                                         "all-results))) "
                          "(when results "
                            "(message \\\"Found issues in %s: %S\\\" file results) "
                            "(setq all-checks-passed nil))))) "
                    "(unless all-checks-passed (kill-emacs 1)))\""))