Skip to content

Commit

Permalink
Preparing release
Browse files Browse the repository at this point in the history
  • Loading branch information
mogenslund committed Jun 12, 2021
1 parent b112608 commit 2ed6e0f
Show file tree
Hide file tree
Showing 4 changed files with 9 additions and 5 deletions.
2 changes: 1 addition & 1 deletion README.md
Original file line number Diff line number Diff line change
Expand Up @@ -39,7 +39,7 @@ For discussions, help, tips and support, use

#### Quick start

clojure -Sdeps '{:deps {mogenslund/liquid {:mvn/version "2.1.0"}}}' -m liq.core
clojure -Sdeps '{:deps {mogenslund/liquid {:mvn/version "2.1.1"}}}' -m liq.core

Or download jar [liq.jar](https://salza.dk/liq.jar) and execute

Expand Down
2 changes: 1 addition & 1 deletion project.clj
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
(defproject mogenslund/liquid "2.1.0" ;"2.0.1-SNAPSHOT"
(defproject mogenslund/liquid "2.1.1" ;"2.0.1-SNAPSHOT"
:description "This project is an attempt to create a text editor for editing
Clojure files and Markdown files. It operates primarily in a
terminal, but with dynamics and extensibilities inspired by
Expand Down
9 changes: 6 additions & 3 deletions resources/help/test-forms.txt
Original file line number Diff line number Diff line change
Expand Up @@ -27,11 +27,14 @@ Evaluate ns form with c p p load dependencies:
==============================================================================
Meta data

(meta (((-> @editor/state ::editor/modes :fundamental-mode :normal) "t") "a"))
(meta (((-> @editor/state ::editor/modes :fundamental-mode :normal) "t") "b"))
(-> @editor/state ::editor/modes :fundamental-mode :normal
(get "t") (get "a") meta)
(-> @editor/state ::editor/modes :fundamental-mode :normal
(get "t") (get "b") meta)
(-> @editor/state ::editor/commands :testc meta)
(-> @editor/state ::editor/commands :testd meta)
(meta (((-> @editor/state ::editor/modes :fundamental-mode :normal) "t") "e"))
(-> @editor/state ::editor/modes :fundamental-mode :normal
(get "t") (get "e") meta)


==============================================================================
Expand Down
1 change: 1 addition & 0 deletions src/liq/editor.cljc
Original file line number Diff line number Diff line change
Expand Up @@ -391,6 +391,7 @@
[command]
(let [m (or (meta command) {})
n (@state ::repeat-counter)]
;(when (not= n 0) (swap! state assoc ::repeat-counter 0))
(cond (and (m :buffer) (not (some #{2} (map count (m :arglists))))) #(apply-to-buffer command)
(m :buffer) #(apply-to-buffer (fn [buf] (command buf (max 1 n))))
true command)))
Expand Down

0 comments on commit 2ed6e0f

Please sign in to comment.