From 4477d4a51dc076b76abc1ae03c5b51f02541b9b0 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Wed, 21 May 2025 14:45:50 +0200 Subject: [PATCH] updaet hydra --- elpa/hydra-20220910.1206/hydra-pkg.el | 15 ------ .../hydra-autoloads.el | 36 ++++++------- .../hydra-examples.el | 0 .../hydra-ox.el | 0 elpa/hydra-20250316.1254/hydra-pkg.el | 11 ++++ .../hydra.el | 23 +-------- elpa/hydra-readme.txt | 51 ------------------- 7 files changed, 28 insertions(+), 108 deletions(-) delete mode 100644 elpa/hydra-20220910.1206/hydra-pkg.el rename elpa/{hydra-20220910.1206 => hydra-20250316.1254}/hydra-autoloads.el (79%) rename elpa/{hydra-20220910.1206 => hydra-20250316.1254}/hydra-examples.el (100%) rename elpa/{hydra-20220910.1206 => hydra-20250316.1254}/hydra-ox.el (100%) create mode 100644 elpa/hydra-20250316.1254/hydra-pkg.el rename elpa/{hydra-20220910.1206 => hydra-20250316.1254}/hydra.el (98%) delete mode 100644 elpa/hydra-readme.txt diff --git a/elpa/hydra-20220910.1206/hydra-pkg.el b/elpa/hydra-20220910.1206/hydra-pkg.el deleted file mode 100644 index c2abbc58..00000000 --- a/elpa/hydra-20220910.1206/hydra-pkg.el +++ /dev/null @@ -1,15 +0,0 @@ -(define-package "hydra" "20220910.1206" "Make bindings that stick around." - '((cl-lib "0.5") - (lv "0")) - :commit "317e1de33086637579a7aeb60f77ed0405bf359b" :authors - '(("Oleh Krehel" . "ohwoeowho@gmail.com")) - :maintainers - '(("Oleh Krehel" . "ohwoeowho@gmail.com")) - :maintainer - '("Oleh Krehel" . "ohwoeowho@gmail.com") - :keywords - '("bindings") - :url "https://github.com/abo-abo/hydra") -;; Local Variables: -;; no-byte-compile: t -;; End: diff --git a/elpa/hydra-20220910.1206/hydra-autoloads.el b/elpa/hydra-20250316.1254/hydra-autoloads.el similarity index 79% rename from elpa/hydra-20220910.1206/hydra-autoloads.el rename to elpa/hydra-20250316.1254/hydra-autoloads.el index 59355c42..dcae88a4 100644 --- a/elpa/hydra-20220910.1206/hydra-autoloads.el +++ b/elpa/hydra-20250316.1254/hydra-autoloads.el @@ -1,12 +1,14 @@ -;;; hydra-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*- -;; +;;; hydra-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*- +;; Generated by the `loaddefs-generate' function. + +;; This file is part of GNU Emacs. + ;;; Code: -(add-to-list 'load-path (directory-file-name - (or (file-name-directory #$) (car load-path)))) +(add-to-list 'load-path (or (and load-file-name (directory-file-name (file-name-directory load-file-name))) (car load-path))) + -;;;### (autoloads nil "hydra" "hydra.el" (0 0 0 0)) ;;; Generated autoloads from hydra.el (autoload 'defhydra "hydra" "\ @@ -61,39 +63,31 @@ want to bind anything. In that case, typically you will bind the generated NAME/body command. This command is also the return result of `defhydra'. -\(fn NAME BODY &optional DOCSTRING &rest HEADS)" nil t) - +(fn NAME BODY &optional DOCSTRING &rest HEADS)" nil t) (function-put 'defhydra 'lisp-indent-function 'defun) - -(function-put 'defhydra 'doc-string-elt '3) - +(function-put 'defhydra 'doc-string-elt 3) (register-definition-prefixes "hydra" '("defhydra" "hydra-")) -;;;*** -;;;### (autoloads nil "hydra-examples" "hydra-examples.el" (0 0 0 -;;;;;; 0)) ;;; Generated autoloads from hydra-examples.el (register-definition-prefixes "hydra-examples" '("hydra-" "org-agenda-cts" "whitespace-mode")) -;;;*** -;;;### (autoloads nil "hydra-ox" "hydra-ox.el" (0 0 0 0)) ;;; Generated autoloads from hydra-ox.el (register-definition-prefixes "hydra-ox" '("hydra-ox")) - -;;;*** -;;;### (autoloads nil nil ("hydra-pkg.el") (0 0 0 0)) +;;; End of scraped data + +(provide 'hydra-autoloads) -;;;*** - ;; Local Variables: ;; version-control: never ;; no-byte-compile: t ;; no-update-autoloads: t -;; coding: utf-8 +;; no-native-compile: t +;; coding: utf-8-emacs-unix ;; End: + ;;; hydra-autoloads.el ends here diff --git a/elpa/hydra-20220910.1206/hydra-examples.el b/elpa/hydra-20250316.1254/hydra-examples.el similarity index 100% rename from elpa/hydra-20220910.1206/hydra-examples.el rename to elpa/hydra-20250316.1254/hydra-examples.el diff --git a/elpa/hydra-20220910.1206/hydra-ox.el b/elpa/hydra-20250316.1254/hydra-ox.el similarity index 100% rename from elpa/hydra-20220910.1206/hydra-ox.el rename to elpa/hydra-20250316.1254/hydra-ox.el diff --git a/elpa/hydra-20250316.1254/hydra-pkg.el b/elpa/hydra-20250316.1254/hydra-pkg.el new file mode 100644 index 00000000..7bd56dce --- /dev/null +++ b/elpa/hydra-20250316.1254/hydra-pkg.el @@ -0,0 +1,11 @@ +;; -*- no-byte-compile: t; lexical-binding: nil -*- +(define-package "hydra" "20250316.1254" + "Make bindings that stick around." + '((cl-lib "0.5") + (lv "0")) + :url "https://github.com/abo-abo/hydra" + :commit "59a2a45a35027948476d1d7751b0f0215b1e61aa" + :revdesc "59a2a45a3502" + :keywords '("bindings") + :authors '(("Oleh Krehel" . "ohwoeowho@gmail.com")) + :maintainers '(("Oleh Krehel" . "ohwoeowho@gmail.com"))) diff --git a/elpa/hydra-20220910.1206/hydra.el b/elpa/hydra-20250316.1254/hydra.el similarity index 98% rename from elpa/hydra-20220910.1206/hydra.el rename to elpa/hydra-20250316.1254/hydra.el index 4aafab8a..cb8509de 100644 --- a/elpa/hydra-20220910.1206/hydra.el +++ b/elpa/hydra-20250316.1254/hydra.el @@ -5,7 +5,8 @@ ;; Author: Oleh Krehel ;; Maintainer: Oleh Krehel ;; URL: https://github.com/abo-abo/hydra -;; Version: 0.15.0 +;; Package-Version: 20250316.1254 +;; Package-Revision: 59a2a45a3502 ;; Keywords: bindings ;; Package-Requires: ((cl-lib "0.5") (lv "0")) @@ -330,26 +331,6 @@ Exitable only through a blue head.") "^.*(\\(defhydra\\) \\([a-zA-Z-]+\\)" 2))) -;;* Find Function -(eval-after-load 'find-func - '(defadvice find-function-search-for-symbol - (around hydra-around-find-function-search-for-symbol-advice - (symbol type library) activate) - "Navigate to hydras with `find-function-search-for-symbol'." - (prog1 ad-do-it - (when (symbolp symbol) - ;; The original function returns (cons (current-buffer) (point)) - ;; if it found the point. - (unless (cdr ad-return-value) - (with-current-buffer (find-file-noselect library) - (let ((sn (symbol-name symbol))) - (when (and (null type) - (string-match "\\`\\(hydra-[a-z-A-Z0-9]+\\)/\\(.*\\)\\'" sn) - (re-search-forward (concat "(defhydra " (match-string 1 sn)) - nil t)) - (goto-char (match-beginning 0))) - (cons (current-buffer) (point))))))))) - ;;* Universal Argument (defvar hydra-base-map (let ((map (make-sparse-keymap))) diff --git a/elpa/hydra-readme.txt b/elpa/hydra-readme.txt deleted file mode 100644 index 300c6fac..00000000 --- a/elpa/hydra-readme.txt +++ /dev/null @@ -1,51 +0,0 @@ -This package can be used to tie related commands into a family of -short bindings with a common prefix - a Hydra. - -Once you summon the Hydra (through the prefixed binding), all the -heads can be called in succession with only a short extension. -The Hydra is vanquished once Hercules, any binding that isn't the -Hydra's head, arrives. Note that Hercules, besides vanquishing the -Hydra, will still serve his original purpose, calling his proper -command. This makes the Hydra very seamless, it's like a minor -mode that disables itself automagically. - -Here's an example Hydra, bound in the global map (you can use any -keymap in place of `global-map'): - - (defhydra hydra-zoom (global-map "") - "zoom" - ("g" text-scale-increase "in") - ("l" text-scale-decrease "out")) - -It allows to start a command chain either like this: -" gg4ll5g", or " lgllg". - -Here's another approach, when you just want a "callable keymap": - - (defhydra hydra-toggle (:color blue) - "toggle" - ("a" abbrev-mode "abbrev") - ("d" toggle-debug-on-error "debug") - ("f" auto-fill-mode "fill") - ("t" toggle-truncate-lines "truncate") - ("w" whitespace-mode "whitespace") - ("q" nil "cancel")) - -This binds nothing so far, but if you follow up with: - - (global-set-key (kbd "C-c C-v") 'hydra-toggle/body) - -you will have bound "C-c C-v a", "C-c C-v d" etc. - -Knowing that `defhydra' defines e.g. `hydra-toggle/body' command, -you can nest Hydras if you wish, with `hydra-toggle/body' possibly -becoming a blue head of another Hydra. - -If you want to learn all intricacies of using `defhydra' without -having to figure it all out from this source code, check out the -wiki: https://github.com/abo-abo/hydra/wiki. There's a wealth of -information there. Everyone is welcome to bring the existing pages -up to date and add new ones. - -Additionally, the file hydra-examples.el serves to demo most of the -functionality. -- 2.47.3