From 0922bffc0686487cdb750423b10e20ff9f6d8def Mon Sep 17 00:00:00 2001 From: Hector Tellez Date: Tue, 7 Jan 2025 18:02:29 -0800 Subject: [PATCH 1/3] origami-parsers.el; Use cl-lib in place of cl Same as in 7e0b8cc, but for origami-parsers.el --- origami-parsers.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/origami-parsers.el b/origami-parsers.el index 78bee8f..4f49b6e 100644 --- a/origami-parsers.el +++ b/origami-parsers.el @@ -30,7 +30,7 @@ ;;; Commentary: ;;; Code: -(require 'cl) +(require 'cl-lib) (require 'dash) (defun origami-get-positions (content regex) From 2adc3065749a692647f78af50c7cb459f7b936ad Mon Sep 17 00:00:00 2001 From: Hector Tellez Date: Wed, 12 Feb 2025 11:48:01 -0800 Subject: [PATCH 2/3] Updates reference from destructuring-bind to cl-destructuring-bind Updates reference from destructuring-bind to cl-destructuring-bind --- origami-parsers.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/origami-parsers.el b/origami-parsers.el index 4f49b6e..d422f3f 100644 --- a/origami-parsers.el +++ b/origami-parsers.el @@ -95,7 +95,7 @@ position in the CONTENT." ;; complexity here is due to having to find the end of the children so that the ;; parent encompasses them (-reduce-r-from (lambda (nodes acc) - (destructuring-bind (children-end . children) (build-nodes (cdr nodes)) + (cl-destructuring-bind (children-end . children) (build-nodes (cdr nodes)) (let ((this-end (max children-end (end (car nodes))))) (cons (max this-end (car acc)) (cons (funcall create From 25f65e96a962f7755695802dcbd9a171d07ff4d5 Mon Sep 17 00:00:00 2001 From: Hector Tellez Date: Wed, 12 Feb 2025 11:48:54 -0800 Subject: [PATCH 3/3] Update origami.el reference from destructuring-bind to cl-destructuring-bind Update origami.el reference from destructuring-bind to cl-destructuring-bind --- origami.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/origami.el b/origami.el index b9667fd..ed8e869 100644 --- a/origami.el +++ b/origami.el @@ -273,7 +273,7 @@ header overlay should cover. Result is a cons cell of (begin . end)." F applied to the leaf." (cdr (-reduce-r-from (lambda (node acc) - (destructuring-bind (old-node . new-node) acc + (cl-destructuring-bind (old-node . new-node) acc (cons node (origami-fold-replace-child node old-node new-node)))) (let ((leaf (-last-item path))) (cons leaf (funcall f leaf))) (butlast path))))