branch: externals/eev
commit 0397f71d1563cf993dc7647783ab01877256cf17
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@gmail.com>
Added more aliases to eev-aliases.el.
---
VERSION | 4 ++--
eev-aliases.el | 60 ++++++++++++++++++++++++++++++++++++++++++++++--
eev-hydras.el | 4 +++-
eev-kl-here.el | 6 ++---
eev-qrl.el | 3 +++
eev-strange-functions.el | 9 +++++---
eev-tlinks.el | 2 ++
7 files changed, 77 insertions(+), 11 deletions(-)
diff --git a/VERSION b/VERSION
index f67671e0be..9cf453ae52 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Mon Feb 19 13:27:58 GMT 2024
-Mon Feb 19 10:27:58 -03 2024
+Mon Feb 19 13:50:45 GMT 2024
+Mon Feb 19 10:50:45 -03 2024
diff --git a/eev-aliases.el b/eev-aliases.el
index 9d1d4c9f88..066c2c28a8 100644
--- a/eev-aliases.el
+++ b/eev-aliases.el
@@ -41,11 +41,67 @@
(defalias '1c 'find-1stclassvideos)
(defalias '1cl 'find-1stclassvideo-links)
+;; From: (find-eev "eev-kl-here.el" "aliases");;; eev-aliases.el -- ???. -*-
lexical-binding: nil; -*-
+
+;; Copyright (C) 2022-2023 Free Software Foundation, Inc.
+;;
+;; This file is part of GNU eev.
+;;
+;; GNU eev is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; GNU eev is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;;
+;; Author: Eduardo Ochs <eduardoo...@gmail.com>
+;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
+;; Version: 20231202
+;; Keywords: e-scripts
+;;
+;; Latest version: <http://anggtwu.net/eev-current/eev-aliases.el>
+;; htmlized: <http://anggtwu.net/eev-current/eev-aliases.el.html>
+;; See also: <http://anggtwu.net/eev-current/eev-beginner.el.html>
+;; <http://anggtwu.net/eev-intros/find-kla-intro.html>
+;; (find-kla-intro)
+
+;;; Comment:
+
+;; From: (find-eev "eev-tlinks.el" "aliases")
+(defalias '1c 'find-1stclassvideos)
+(defalias '1cl 'find-1stclassvideo-links)
+
;; From: (find-eev "eev-kl-here.el" "aliases")
+(defalias 'kl 'eekl)
+(defalias 'kll 'eekll)
+(defalias 'kls 'eekls)
;; From: (find-eev "eev-kla.el" "aliases")
-
-;; From: (find-templates-intro "4. Adding meat")
+(defalias 'kla 'eekla)
+(defalias 'kla0 'eekla0)
+(defalias 'klas 'eeklas)
+(defalias 'klf 'eeklf)
+(defalias 'klfs 'eeklfs)
+(defalias 'klt 'eeklt)
+(defalias 'klts 'eeklts)
+(defalias 'kli 'ee-kl-insert)
+(defalias 'kla2 'eekla2)
+
+;; From: (find-eev "eev-strange-functions.el" "aliases")
+(defalias 'sf 'eesf)
+
+;; From: (find-eev "eev-qrl.el" "aliases")
+(defalias 'qrl0 'ee-qrl0)
+(defalias 'qrl 'ee-qrl)
+
+;; From: (find-eev "eev-hydras.el" "aliases")
+(defalias 'ei 'ee-edit-index)
diff --git a/eev-hydras.el b/eev-hydras.el
index 449fe07f6c..750eedbb91 100644
--- a/eev-hydras.el
+++ b/eev-hydras.el
@@ -58,6 +58,7 @@
;; «.ei» (to "ei")
+;; «.aliases» (to "aliases")
;; «.ee-edit-index-hydra» (to "ee-edit-index-hydra")
;; See: https://github.com/abo-abo/hydra
@@ -81,7 +82,8 @@
;;; | | | |_____> < | __/ |
;;; |_| |_| /_/\_\ \___|_|
;;;
-;; «ei» (to ".ei")
+;; «ei» (to ".ei")
+;; «aliases» (to ".aliases")
;; This file is not loaded by default, but if you run
;; (require 'eev-hydras)
;; this will define `M-x ei' as an alias for `M-x ee-edit-index'.
diff --git a/eev-kl-here.el b/eev-kl-here.el
index 91908f43f2..1c2072b514 100644
--- a/eev-kl-here.el
+++ b/eev-kl-here.el
@@ -325,9 +325,9 @@
;; See: (find-kla-intro "4. Aliases")
;; This is temporary!
-(defalias 'kl 'eekl
-(defalias 'kll 'eekll
-(defalias 'kls 'eekls
+(defalias 'kl 'eekl)
+(defalias 'kll 'eekll)
+(defalias 'kls 'eekls)
(defalias 'kla 'eekla)
(defalias 'kla0 'eekla0)
diff --git a/eev-qrl.el b/eev-qrl.el
index 12c8cb0082..2b1b2d9c52 100644
--- a/eev-qrl.el
+++ b/eev-qrl.el
@@ -62,6 +62,8 @@
;; The code below was based on this question:
;; https://lists.gnu.org/archive/html/help-gnu-emacs/2023-12/msg00064.html
+;; «aliases» (to ".aliases")
+
(defvar ee-qrl-plist0
'("\"" "\\\""
"\\" "\\\\"
@@ -97,6 +99,7 @@
(apply 'ee-qrl-narrow plist) ; then narrow to the region
(apply 'ee-qrl0 plist))) ; else replace to the end of the buffer
+;; «.aliases» (to "aliases")
(defalias 'qrl0 'ee-qrl0)
(defalias 'qrl 'ee-qrl)
diff --git a/eev-strange-functions.el b/eev-strange-functions.el
index 48e5af3757..4ae7f59218 100644
--- a/eev-strange-functions.el
+++ b/eev-strange-functions.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20240218
+;; Version: 20240219
;; Keywords: e-scripts
;;
;; Latest version: <http://anggtwu.net/eev-current/eev-strange-functions.el>
@@ -32,6 +32,8 @@
;; MESSY! EXPERIMENTAL! INCOMPLETE! UNFINISHED!
+;; «.aliases» (to "aliases")
+
(defvar ee-sf-sexp)
(defvar ee-sf-result)
@@ -156,7 +158,7 @@
(:if t (error "Buffer type not supported by ee-hprog-for-sf"))
))
-(defun sf ()
+(defun eesf ()
(interactive)
(setq ee-hlang-sexp2 nil)
(setq ee-sf-result nil)
@@ -167,7 +169,8 @@
)
-
+;; «aliases» (to ".aliases")
+(defalias 'sf 'eesf)
(provide 'eev-strange-functions)
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 458bed5d75..6b638d2761 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -144,6 +144,7 @@
;; «.find-1stclassvideodef» (to "find-1stclassvideodef")
;; «.find-1stclassvideos» (to "find-1stclassvideos")
;; «.1c» (to "1c")
+;; «.aliases» (to "aliases")
;; «.find-advicebefore-links» (to "find-advicebefore-links")
;; «.find-osm-links» (to "find-osm-links")
;; «.find-pip3-links» (to "find-pip3-links")
@@ -3601,6 +3602,7 @@ For more info on this particular video, run:
rest)))
;; «1c» (to ".1c")
+;; «aliases» (to ".aliases")
;; Suggestion: put the aliases below in your init file.
;; (defalias '1c 'find-1stclassvideos)
;; (defalias '1cl 'find-1stclassvideo-links)
