From d06f1836623a341e1352cc1f152411e7caf8e6be Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Wed, 8 Jul 2026 16:20:46 +0300 Subject: [PATCH 1/3] Remove orphaned duplicate suitable.compliment.sources.cljs.ast namespace It was a byte-for-byte copy of suitable.ast (only the ns name differed) and nothing required it. --- .../suitable/compliment/sources/cljs/ast.cljc | 52 ------------------- 1 file changed, 52 deletions(-) delete mode 100644 src/main/suitable/compliment/sources/cljs/ast.cljc diff --git a/src/main/suitable/compliment/sources/cljs/ast.cljc b/src/main/suitable/compliment/sources/cljs/ast.cljc deleted file mode 100644 index da2c49c..0000000 --- a/src/main/suitable/compliment/sources/cljs/ast.cljc +++ /dev/null @@ -1,52 +0,0 @@ -(ns suitable.compliment.sources.cljs.ast - (:require [clojure.pprint :refer [pprint *print-right-margin*]] - [clojure.zip :as z]) - #?(:clj (:import [clojure.lang IPersistentList IPersistentMap IPersistentVector ISeq]))) - -(def V #?(:clj IPersistentVector - :cljs PersistentVector)) -(def M #?(:clj IPersistentMap - :cljs PersistentArrayMap)) -(def L #?(:clj IPersistentList - :cljs List)) -(def S ISeq) - -;; Thx @ Alex Miller! http://www.ibm.com/developerworks/library/j-treevisit/ -(defmulti tree-branch? type) -(defmethod tree-branch? :default [_] false) -(defmethod tree-branch? V [v] (not-empty v)) -(defmethod tree-branch? M [m] (not-empty m)) -(defmethod tree-branch? L [_l] true) -(defmethod tree-branch? S [_s] true) -(prefer-method tree-branch? L S) - -(defmulti tree-children type) -(defmethod tree-children V [v] v) -(defmethod tree-children M [m] (->> m seq (apply concat))) -(defmethod tree-children L [l] l) -(defmethod tree-children S [s] s) -(prefer-method tree-children L S) - -(defmulti tree-make-node (fn [node _children] (type node))) -(defmethod tree-make-node V [_v children] - (vec children)) -(defmethod tree-make-node M [_m children] - (apply hash-map children)) -(defmethod tree-make-node L [_ children] - children) -(defmethod tree-make-node S [_node children] - (apply list children)) -(prefer-method tree-make-node L S) - -(defn tree-zipper [node] - (z/zipper tree-branch? tree-children tree-make-node node)) - -(defn print-tree - "for debugging" - [node] - (let [all (take-while (complement z/end?) (iterate z/next (tree-zipper node)))] - (binding [*print-right-margin* 20] - (pprint - (->> all - (map z/node) (zipmap (range)) - sort))))) From d3481c8c036cb596b9e12b9cf53970f44a495536 Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Wed, 8 Jul 2026 16:20:47 +0300 Subject: [PATCH 2/3] Fix the 0.6.2 changelog entry Wrong release year (2033 -> 2024) and it used an h1 heading where every other version entry uses h2. --- CHANGELOG.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/CHANGELOG.md b/CHANGELOG.md index 14aca06..b100a32 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -7,7 +7,7 @@ - Drop the ancient Clojure 1.8/1.9/1.10 rows from the CI matrix; test against 1.11, 1.12 and master instead. - Migrate CI from CircleCI to GitHub Actions. -# 0.6.2 (2033-01-14) +## 0.6.2 (2024-01-14) * [#45](https://github.com/clojure-emacs/clj-suitable/issues/45): don't exclude enumerable properties from `Object`. From 7c383a5fbd3dc236918eb1515e8e13c4328093d9 Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Wed, 8 Jul 2026 16:20:47 +0300 Subject: [PATCH 3/3] Replace dead downloads badge versions.deps.co is defunct; use Clojars' own download-count badge via shields.io instead. --- README.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/README.md b/README.md index 88efc6c..a7c2000 100644 --- a/README.md +++ b/README.md @@ -3,7 +3,7 @@ [![CI](https://github.com/clojure-emacs/clj-suitable/actions/workflows/ci.yml/badge.svg)](https://github.com/clojure-emacs/clj-suitable/actions/workflows/ci.yml) [![Clojars Project](https://img.shields.io/clojars/v/org.rksm/suitable.svg)](https://clojars.org/org.rksm/suitable) [![cljdoc badge](https://cljdoc.org/badge/org.rksm/suitable)](https://cljdoc.org/d/org.rksm/suitable/CURRENT) -[![downloads badge](https://versions.deps.co/org.rksm/suitable/downloads.svg)](https://clojars.org/org.rksm/suitable) +[![downloads badge](https://img.shields.io/clojars/dt/org.rksm/suitable.svg)](https://clojars.org/org.rksm/suitable) `suitable` provides static and dynamic code completion for ClojureScript tools.