[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/hyperbole e8674c9662 1/2: Use level one heading in mark
From: |
ELPA Syncer |
Subject: |
[elpa] externals/hyperbole e8674c9662 1/2: Use level one heading in markdown, set explicit time format in test (#411) |
Date: |
Fri, 1 Dec 2023 18:57:57 -0500 (EST) |
branch: externals/hyperbole
commit e8674c9662fa28bb49b76baa8f0ddb2089dddca4
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: GitHub <noreply@github.com>
Use level one heading in markdown, set explicit time format in test (#411)
---
ChangeLog | 7 +++++++
test/hyrolo-tests.el | 9 +++++----
2 files changed, 12 insertions(+), 4 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index ecd08c4d8b..0a0f6d8df2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2023-12-01 Mats Lidell <matsl@gnu.org>
+
+* test/hyrolo-tests.el (hyrolo-sort-test): Set default date format so the
+ format used is well defined.
+ (hyrolo-fgrep-and-goto-next-visible-md-heading): Use level one heading
+ so that heading hierarchy is respected.
+
2023-12-01 Bob Weiner <rsw@gnu.org>
* hargs.el (hargs:delimited): Remove use of 'bounds-of-thing-at-point'
diff --git a/test/hyrolo-tests.el b/test/hyrolo-tests.el
index 53a9fe47fb..f84092429f 100644
--- a/test/hyrolo-tests.el
+++ b/test/hyrolo-tests.el
@@ -3,7 +3,7 @@
;; Author: Mats Lidell <matsl@gnu.org>
;;
;; Orig-Date: 19-Jun-21 at 22:42:00
-;; Last-Mod: 29-Nov-23 at 23:22:15 by Mats Lidell
+;; Last-Mod: 1-Dec-23 at 23:20:39 by Mats Lidell
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -206,7 +206,8 @@ and {b} the previous same level cell."
"HyRolo files can be sorted."
(let ((hyrolo-file (make-temp-file "hypb" nil ".otl")))
(unwind-protect
- (let ((hyrolo-file-list (list hyrolo-file)))
+ (let ((hyrolo-file-list (list hyrolo-file))
+ (hyrolo-date-format "%m/%d/%Y"))
(hyrolo-find-file (car (hyrolo-get-file-list)))
(insert "===\nHdr\n===\n")
(goto-char (point-min))
@@ -364,7 +365,7 @@ and {b} the previous same level cell."
"Verify move to next heading, then action-key to go to record for markdown
mode."
:expected-result :failed
(let* ((temporary-file-directory (make-temp-file "hypb" t))
- (md-file (make-temp-file "hypb" nil ".md" "##
heading\nstring\nmore\n"))
+ (md-file (make-temp-file "hypb" nil ".md" "#
heading\nstring\nmore\n"))
(hyrolo-file-list (list temporary-file-directory)))
(unwind-protect
(progn
@@ -377,7 +378,7 @@ and {b} the previous same level cell."
(with-simulated-input "y RET" ; Do you want to revisit the file
normally now?
(action-key)
(should (equal (current-buffer) (find-buffer-visiting md-file)))
- (should (looking-at-p "## heading"))))
+ (should (looking-at-p "# heading"))))
(hy-delete-file-and-buffer md-file)
(kill-buffer "*HyRolo*")
(delete-directory temporary-file-directory))))