[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/hyperbole 71bf794: Add orgtbl-mode-map binding for C-d
From: |
ELPA Syncer |
Subject: |
[elpa] externals/hyperbole 71bf794: Add orgtbl-mode-map binding for C-d (#128) |
Date: |
Thu, 4 Nov 2021 10:57:20 -0400 (EDT) |
branch: externals/hyperbole
commit 71bf7944312e45a3cd13ea2cc24678fc8e9ae443
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: GitHub <noreply@github.com>
Add orgtbl-mode-map binding for C-d (#128)
---
ChangeLog | 8 +++++++
kotl/kotl-mode.el | 3 +++
test/kotl-orgtbl-tests.el | 54 +++++++++++++++++++++++++++++++++++++++++++++++
3 files changed, 65 insertions(+)
diff --git a/ChangeLog b/ChangeLog
index f26d1e0..0293ee8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2021-11-02 Mats Lidell <matsl@gnu.org>
+
+* test/kotl-orgtbl-tests.el
+ (kotl-orgtbl-enabled-uses-kotl-mode-delete-char-ouside-of-table):
+ Add test for C-d binding in orgtbl.
+
+* kotl/kotl-mode.el (kotl-mode): Add orgtbl-mode-map binding for C-d.
+
2021-10-31 Mats Lidell <matsl@gnu.org>
* test/kotl-mode-tests.el (kotl-mode-previous-cell-from-invalid-position)
diff --git a/kotl/kotl-mode.el b/kotl/kotl-mode.el
index 73e9131..bdf15b3 100644
--- a/kotl/kotl-mode.el
+++ b/kotl/kotl-mode.el
@@ -181,6 +181,9 @@ It provides the following keys:
(org-defkey orgtbl-mode-map [(meta return)]
(orgtbl-make-binding 'orgtbl-meta-return 106
[(meta return)] "\M-\C-m"))
+ (org-defkey orgtbl-mode-map "\C-d"
+ (orgtbl-make-binding 'kotl-mode:delete-char 107
+ "\C-d"))
(run-hooks 'kotl-mode-hook)
(add-hook 'change-major-mode-hook #'kotl-mode:show-all nil t))
diff --git a/test/kotl-orgtbl-tests.el b/test/kotl-orgtbl-tests.el
new file mode 100644
index 0000000..9fd6c4d
--- /dev/null
+++ b/test/kotl-orgtbl-tests.el
@@ -0,0 +1,54 @@
+;;; kotl-orgtbl-tests.el --- kotl orgtbl tests -*- lexical-binding:
t; -*-
+
+;; Copyright (C) 2021 Mats Lidell
+
+;; Author: Mats Lidell <matsl@gnu.org>
+;;
+;; Orig-Date: 2-Nov-21 at 17:04:30
+;;
+;; Copyright (C) 2021 Free Software Foundation, Inc.
+;; See the "HY-COPY" file for license information.
+;;
+;; This file is part of GNU Hyperbole.
+
+;;; Commentary:
+
+;; Tests for kotl-orgtbl in "../kotl/kotl-orgtbl.el"
+
+;;; Code:
+
+(require 'ert)
+(require 'kotl-mode "kotl/kotl-mode")
+
+(load (expand-file-name "hy-test-helpers"
+ (file-name-directory (or load-file-name
+ default-directory))))
+(declare-function hy-test-helpers:consume-input-events "hy-test-helpers")
+
+(ert-deftest kotl-orgtbl-enabled-uses-kotl-mode-delete-char-ouside-of-table ()
+ "kotl-mode:detele-char is used ouside of org table."
+ (let ((kotl-file (make-temp-file "hypb" nil ".kotl")))
+ (unwind-protect
+ (progn
+ (find-file kotl-file)
+ (insert "1")
+
+ ;; Create an org table and leave point at end of cell
+ (should (hact 'kbd-key "RET |-| RET"))
+ (hy-test-helpers:consume-input-events)
+
+ ;; Verify that kotl-mode:delete-char is used outside of the
+ ;; table
+ (condition-case err
+ (progn
+ (should (hact 'kbd-key "C-d"))
+ (hy-test-helpers:consume-input-events))
+ (error
+ (progn
+ (should (equal (car err) 'error))
+ (should (string-match "(kotl-mode:delete-char): End of cell"
(cadr err)))))
+ (:success (ert-fail "C-d shall fail when deleting at the end of a
cell."))))
+ (delete-file kotl-file))))
+
+(provide 'kotl-orgtbl-tests)
+;;; kotl-orgtbl-tests.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/hyperbole 71bf794: Add orgtbl-mode-map binding for C-d (#128),
ELPA Syncer <=