Re: Emacs: lilypond-ts-mode and the future of lilypond-mode

Saul Tobin <[email protected]> writes:

>>
>> I pushed a commit just now that should resolve this. Please let me know.
>>
>
> I should mention — you will need to either manually remove the old compiled
> LilyPond grammar from .emacs.d/tree-sitter and restart Emacs, or manually
> run (lilypond-ts--install) after pulling from the updated lilypond-ts-mode
> repo.

Debugger entered--Lisp error: (void-function file-notify-add-watch)
  (file-notify-add-watch file-dir '(change) #'(lambda (ev) (let ((ev-file (car (last ev)))) (if (string-match-p ".nav" ev-file) (progn (lilypond-ts--init-nav-watcher file-dir) (let* (...) (progn ... nil)))))))
  (cons file-dir (file-notify-add-watch file-dir '(change) #'(lambda (ev) (let ((ev-file (car ...))) (if (string-match-p ".nav" ev-file) (progn (lilypond-ts--init-nav-watcher file-dir) (let* ... ...)))))))
  (cons (cons file-dir (file-notify-add-watch file-dir '(change) #'(lambda (ev) (let ((ev-file ...)) (if (string-match-p ".nav" ev-file) (progn ... ...)))))) lilypond-ts--watchers)
  (setq lilypond-ts--watchers (cons (cons file-dir (file-notify-add-watch file-dir '(change) #'(lambda (ev) (let (...) (if ... ...))))) lilypond-ts--watchers))
  (if (file-exists-p nav-dir) (progn (mapc #'lilypond-ts--read-nav-data (directory-files nav-dir t "^.*\\.l$")) (setq lilypond-ts--watchers (cons (cons nav-dir (file-notify-add-watch nav-dir '(change) #'lilypond-ts--nav-watcher-callback)) lilypond-ts--watchers))) (setq lilypond-ts--watchers (cons (cons file-dir (file-notify-add-watch file-dir '(change) #'(lambda (ev) (let ... ...)))) lilypond-ts--watchers)))
  (if s (if (file-exists-p nav-dir) (progn (mapc #'lilypond-ts--read-nav-data (directory-files nav-dir t "^.*\\.l$")) (setq lilypond-ts--watchers (cons (cons nav-dir (file-notify-add-watch nav-dir '... #'lilypond-ts--nav-watcher-callback)) lilypond-ts--watchers))) (setq lilypond-ts--watchers (cons (cons file-dir (file-notify-add-watch file-dir '(change) #'(lambda ... ...))) lilypond-ts--watchers))))
  (let* ((fname (and t (or fname (buffer-file-name)))) (file-dir (and fname (file-name-directory fname))) (nav-dir (and file-dir (file-name-concat file-dir ".nav"))) (s (and nav-dir (not (assoc nav-dir lilypond-ts--watchers))))) (if s (if (file-exists-p nav-dir) (progn (mapc #'lilypond-ts--read-nav-data (directory-files nav-dir t "^.*\\.l$")) (setq lilypond-ts--watchers (cons (cons nav-dir (file-notify-add-watch nav-dir ... ...)) lilypond-ts--watchers))) (setq lilypond-ts--watchers (cons (cons file-dir (file-notify-add-watch file-dir '... #'...)) lilypond-ts--watchers)))))
  lilypond-ts--init-nav-watcher()
  (if lilypond-ts-navigation-mode (lilypond-ts--init-nav-watcher) (lilypond-ts--maybe-remove-nav-watcher))
  (let ((last-message (current-message))) (setq lilypond-ts-navigation-mode (cond ((eq arg 'toggle) (not lilypond-ts-navigation-mode)) ((and (numberp arg) (< arg 1)) nil) (t t))) (if (boundp 'local-minor-modes) (progn (setq local-minor-modes (delq 'lilypond-ts-navigation-mode local-minor-modes)) (if lilypond-ts-navigation-mode (progn (setq local-minor-modes (cons 'lilypond-ts-navigation-mode local-minor-modes)))))) (if lilypond-ts-navigation-mode (lilypond-ts--init-nav-watcher) (lilypond-ts--maybe-remove-nav-watcher)) (run-hooks 'lilypond-ts-navigation-mode-hook (if lilypond-ts-navigation-mode 'lilypond-ts-navigation-mode-on-hook 'lilypond-ts-navigation-mode-off-hook)) (if (called-interactively-p 'any) (progn nil (if (and (current-message) (not (equal last-message (current-message)))) nil (let ((local " in current buffer")) (message "%s %sabled%s" "Lilypond-Ts-Navigation mode" (if lilypond-ts-navigation-mode "en" "dis") local))))))
  lilypond-ts-navigation-mode(1)
  (progn (set (make-local-variable 'treesit-primary-parser) (treesit-parser-create 'lilypond)) (if (multisession-value lilypond-ts--lily-installs-alist) nil (lilypond-ts-find-installs)) (lilypond-ts--ensure-repl) (set (make-local-variable 'comment-start) "%") (set (make-local-variable 'comment-start-skip) "[%;]+{? *") (set (make-local-variable 'comment-end) "") (set (make-local-variable 'block-comment-start) "%{") (set (make-local-variable 'block-comment-end) "%}") (set (make-local-variable 'treesit-thing-settings) lilypond-ts--thing-settings) (set (make-local-variable 'treesit-defun-name-function) #'lilypond-ts--defun-name) (set (make-local-variable 'treesit-defun-tactic) 'nested) (set (make-local-variable 'treesit-font-lock-settings) (apply #'treesit-font-lock-rules (lilypond-ts--font-lock-rules))) (set (make-local-variable 'treesit-font-lock-feature-list) lilypond-ts--font-lock-features) (set (make-local-variable 'treesit-font-lock-level) 3) (set (make-local-variable 'treesit-simple-indent-rules) lilypond-ts-indent-rules) (set (make-local-variable 'treesit-simple-imenu-settings) lilypond-ts-imenu-rules) (add-hook 'lilypond-ts-post-eval-hook #'lilypond-ts--require-list-refresh) (treesit-major-mode-setup) (set (make-local-variable 'lisp-indent-function) #'scheme-indent-function) (set (make-local-variable 'syntax-propertize-function) #'lilypond-ts--propertize-syntax) (lilypond-ts-autodoc-mode 1) (lilypond-ts-capf-mode 1) (lilypond-ts-navigation-mode 1))
  (if (treesit-ready-p 'lilypond) (progn (set (make-local-variable 'treesit-primary-parser) (treesit-parser-create 'lilypond)) (if (multisession-value lilypond-ts--lily-installs-alist) nil (lilypond-ts-find-installs)) (lilypond-ts--ensure-repl) (set (make-local-variable 'comment-start) "%") (set (make-local-variable 'comment-start-skip) "[%;]+{? *") (set (make-local-variable 'comment-end) "") (set (make-local-variable 'block-comment-start) "%{") (set (make-local-variable 'block-comment-end) "%}") (set (make-local-variable 'treesit-thing-settings) lilypond-ts--thing-settings) (set (make-local-variable 'treesit-defun-name-function) #'lilypond-ts--defun-name) (set (make-local-variable 'treesit-defun-tactic) 'nested) (set (make-local-variable 'treesit-font-lock-settings) (apply #'treesit-font-lock-rules (lilypond-ts--font-lock-rules))) (set (make-local-variable 'treesit-font-lock-feature-list) lilypond-ts--font-lock-features) (set (make-local-variable 'treesit-font-lock-level) 3) (set (make-local-variable 'treesit-simple-indent-rules) lilypond-ts-indent-rules) (set (make-local-variable 'treesit-simple-imenu-settings) lilypond-ts-imenu-rules) (add-hook 'lilypond-ts-post-eval-hook #'lilypond-ts--require-list-refresh) (treesit-major-mode-setup) (set (make-local-variable 'lisp-indent-function) #'scheme-indent-function) (set (make-local-variable 'syntax-propertize-function) #'lilypond-ts--propertize-syntax) (lilypond-ts-autodoc-mode 1) (lilypond-ts-capf-mode 1) (lilypond-ts-navigation-mode 1)))
  (let ((delay-mode-hooks t)) (prog-mode) (setq major-mode 'lilypond-ts-mode) (setq mode-name "Lilypond") (progn (if (get 'prog-mode 'mode-class) (put 'lilypond-ts-mode 'mode-class (get 'prog-mode 'mode-class))) (if (keymap-parent lilypond-ts-mode-map) nil (set-keymap-parent lilypond-ts-mode-map (current-local-map))) (let ((parent (char-table-parent lilypond-ts-mode-syntax-table))) (if (and parent (not (eq parent (standard-syntax-table)))) nil (set-char-table-parent lilypond-ts-mode-syntax-table (syntax-table)))) (if (or (abbrev-table-get lilypond-ts-mode-abbrev-table :parents) (eq lilypond-ts-mode-abbrev-table local-abbrev-table)) nil (abbrev-table-put lilypond-ts-mode-abbrev-table :parents (list local-abbrev-table)))) (use-local-map lilypond-ts-mode-map) (set-syntax-table lilypond-ts-mode-syntax-table) (setq local-abbrev-table lilypond-ts-mode-abbrev-table) (if (treesit-ready-p 'lilypond) (progn (set (make-local-variable 'treesit-primary-parser) (treesit-parser-create 'lilypond)) (if (multisession-value lilypond-ts--lily-installs-alist) nil (lilypond-ts-find-installs)) (lilypond-ts--ensure-repl) (set (make-local-variable 'comment-start) "%") (set (make-local-variable 'comment-start-skip) "[%;]+{? *") (set (make-local-variable 'comment-end) "") (set (make-local-variable 'block-comment-start) "%{") (set (make-local-variable 'block-comment-end) "%}") (set (make-local-variable 'treesit-thing-settings) lilypond-ts--thing-settings) (set (make-local-variable 'treesit-defun-name-function) #'lilypond-ts--defun-name) (set (make-local-variable 'treesit-defun-tactic) 'nested) (set (make-local-variable 'treesit-font-lock-settings) (apply #'treesit-font-lock-rules (lilypond-ts--font-lock-rules))) (set (make-local-variable 'treesit-font-lock-feature-list) lilypond-ts--font-lock-features) (set (make-local-variable 'treesit-font-lock-level) 3) (set (make-local-variable 'treesit-simple-indent-rules) lilypond-ts-indent-rules) (set (make-local-variable 'treesit-simple-imenu-settings) lilypond-ts-imenu-rules) (add-hook 'lilypond-ts-post-eval-hook #'lilypond-ts--require-list-refresh) (treesit-major-mode-setup) (set (make-local-variable 'lisp-indent-function) #'scheme-indent-function) (set (make-local-variable 'syntax-propertize-function) #'lilypond-ts--propertize-syntax) (lilypond-ts-autodoc-mode 1) (lilypond-ts-capf-mode 1) (lilypond-ts-navigation-mode 1))))
  (progn (make-local-variable 'delay-mode-hooks) (let ((delay-mode-hooks t)) (prog-mode) (setq major-mode 'lilypond-ts-mode) (setq mode-name "Lilypond") (progn (if (get 'prog-mode 'mode-class) (put 'lilypond-ts-mode 'mode-class (get 'prog-mode 'mode-class))) (if (keymap-parent lilypond-ts-mode-map) nil (set-keymap-parent lilypond-ts-mode-map (current-local-map))) (let ((parent (char-table-parent lilypond-ts-mode-syntax-table))) (if (and parent (not (eq parent ...))) nil (set-char-table-parent lilypond-ts-mode-syntax-table (syntax-table)))) (if (or (abbrev-table-get lilypond-ts-mode-abbrev-table :parents) (eq lilypond-ts-mode-abbrev-table local-abbrev-table)) nil (abbrev-table-put lilypond-ts-mode-abbrev-table :parents (list local-abbrev-table)))) (use-local-map lilypond-ts-mode-map) (set-syntax-table lilypond-ts-mode-syntax-table) (setq local-abbrev-table lilypond-ts-mode-abbrev-table) (if (treesit-ready-p 'lilypond) (progn (set (make-local-variable 'treesit-primary-parser) (treesit-parser-create 'lilypond)) (if (multisession-value lilypond-ts--lily-installs-alist) nil (lilypond-ts-find-installs)) (lilypond-ts--ensure-repl) (set (make-local-variable 'comment-start) "%") (set (make-local-variable 'comment-start-skip) "[%;]+{? *") (set (make-local-variable 'comment-end) "") (set (make-local-variable 'block-comment-start) "%{") (set (make-local-variable 'block-comment-end) "%}") (set (make-local-variable 'treesit-thing-settings) lilypond-ts--thing-settings) (set (make-local-variable 'treesit-defun-name-function) #'lilypond-ts--defun-name) (set (make-local-variable 'treesit-defun-tactic) 'nested) (set (make-local-variable 'treesit-font-lock-settings) (apply #'treesit-font-lock-rules (lilypond-ts--font-lock-rules))) (set (make-local-variable 'treesit-font-lock-feature-list) lilypond-ts--font-lock-features) (set (make-local-variable 'treesit-font-lock-level) 3) (set (make-local-variable 'treesit-simple-indent-rules) lilypond-ts-indent-rules) (set (make-local-variable 'treesit-simple-imenu-settings) lilypond-ts-imenu-rules) (add-hook 'lilypond-ts-post-eval-hook #'lilypond-ts--require-list-refresh) (treesit-major-mode-setup) (set (make-local-variable 'lisp-indent-function) #'scheme-indent-function) (set (make-local-variable 'syntax-propertize-function) #'lilypond-ts--propertize-syntax) (lilypond-ts-autodoc-mode 1) (lilypond-ts-capf-mode 1) (lilypond-ts-navigation-mode 1)))))
  lilypond-ts-mode()
  funcall-interactively(lilypond-ts-mode)
  call-interactively(lilypond-ts-mode record nil)
  command-execute(lilypond-ts-mode record)
  execute-extended-command(nil "lilypond-ts-mode" "lilypond-ts-mo")
  funcall-interactively(execute-extended-command nil "lilypond-ts-mode" "lilypond-ts-mo")
  call-interactively(execute-extended-command nil nil)
  command-execute(execute-extended-command)


-- 
David Kastrup