|
| 1 | +;;; sdml-mode-hydra.el --- Hydra for SDML -*- lexical-binding: t; -*- |
| 2 | + |
| 3 | +;; Author: Simon Johnston <[email protected]> |
| 4 | + |
| 5 | +;;; License: |
| 6 | + |
| 7 | +;; Copyright (c) 2025 Simon Johnston |
| 8 | +;; |
| 9 | +;; Licensed under the Apache License, Version 2.0 (the "License"); |
| 10 | +;; you may not use this file except in compliance with the License. |
| 11 | +;; You may obtain a copy of the License at |
| 12 | +;; |
| 13 | +;; http://www.apache.org/licenses/LICENSE-2.0 |
| 14 | +;; |
| 15 | +;; Unless required by applicable law or agreed to in writing, software |
| 16 | +;; distributed under the License is distributed on an "AS IS" BASIS, |
| 17 | +;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. |
| 18 | +;; See the License for the specific language governing permissions and |
| 19 | +;; limitations under the License. |
| 20 | + |
| 21 | +;;; Commentary: |
| 22 | + |
| 23 | +;; Definition of a Hydra interface for SDML actions. |
| 24 | + |
| 25 | +;;; Code: |
1 | 26 |
|
2 | 27 | (require 'sdml-mode)
|
3 | 28 | (require 'sdml-mode-ctags)
|
|
29 | 54 | "Debug"
|
30 | 55 | (("h d" tree-sitter-debug-mode "Toggle ts debug tree mode" :toggle t)
|
31 | 56 | ("h q" tree-sitter-query-builder "Open ts query builder"))))
|
32 |
| - (bind-key "C-c C-s h" 'sdml-mode-hydra/body) |
33 |
| - (bind-key "<f9> s" 'sdml-mode-hydra/body)) |
34 |
| - |
| 57 | + (define-key sdml-mode-map (kbd "C-c C-s h") 'sdml-mode-hydra/body) |
| 58 | + (define-key sdml-mode-map (kbd "f9 s") 'sdml-mode-hydra/body)) |
35 | 59 |
|
36 | 60 | ;; ((featurep 'hydra) (message "plain")
|
37 | 61 | ;; (defhydra sdml-mode-hydra (:color pink :hint nil)
|
|
53 | 77 | ;; ("q" tree-sitter-query-builder)))
|
54 | 78 | (t
|
55 | 79 | (message "Install 'hydra or 'pretty-hydra")))
|
| 80 | + |
| 81 | +(provide 'sdml-mode-hydra) |
| 82 | + |
| 83 | +;;; sdml-mode-hydra.el ends here |
0 commit comments