(edit->change edit)helper function for format-change
helper function for `format-change`
(enum->keyword enum)converts an enum to a keyword
(enum->keyword Constants/ATTR_FILTER) => :filter
(enum->keyword Constants/CHARSET) => :utf-8
converts an enum to a keyword (enum->keyword Constants/ATTR_FILTER) => :filter (enum->keyword Constants/CHARSET) => :utf-8
(format-change repo edit old-id new-id)helper function for format-changes
helper function for `format-changes`
(format-changes repo entry old-id new-id)helper function for format-entry
helper function for `format-entry`
(format-entry repo entry)formats the entry returned by git-diff
(->> (git-diff (repo/repository)
{:commit "HEAD~3"}
{})
first
(format-entry (repo/repository)))
;; => #modify {:new-id "c81c8f4e14c252adecd1d983ce161055d253c62e",
;; :old-id "356a16f27cd0e66d5d1950252bd6ae57851881a0",
;; :new-path "project.clj",
;; :old-path "project.clj",
;; :changes [#replace {:old [50 51],
;; :new [50 51]}
;; #delete {:old [121 122],
;; :new [121 121]}
;; #replace {:old [127 128],
;; :new [126 127]}]}
formats the entry returned by `git-diff`
(->> (git-diff (repo/repository)
{:commit "HEAD~3"}
{})
first
(format-entry (repo/repository)))
;; => #modify {:new-id "c81c8f4e14c252adecd1d983ce161055d253c62e",
;; :old-id "356a16f27cd0e66d5d1950252bd6ae57851881a0",
;; :new-path "project.clj",
;; :old-path "project.clj",
;; :changes [#replace {:old [50 51],
;; :new [50 51]}
;; #delete {:old [121 122],
;; :new [121 121]}
;; #replace {:old [127 128],
;; :new [126 127]}]}
(git-diff repo old new)returns the raw diff object (-> (git-diff (repo/repository) {:commit "HEAD~3"} {}) first) ;; => #entry{:change-type "MODIFY", ;; :new-id "c81c8f4e14c252adecd1d983ce161055d253c62e", ;; :new-mode "100644", ;; :new-path "project.clj", ;; :old-id "356a16f27cd0e66d5d1950252bd6ae57851881a0", ;; :old-mode "100644", ;; :old-path "project.clj", ;; :score 0, ;; :tree-filter-marks 0}
returns the raw diff object
(-> (git-diff (repo/repository)
{:commit "HEAD~3"}
{})
first)
;; => #entry{:change-type "MODIFY",
;; :new-id "c81c8f4e14c252adecd1d983ce161055d253c62e",
;; :new-mode "100644",
;; :new-path "project.clj",
;; :old-id "356a16f27cd0e66d5d1950252bd6ae57851881a0",
;; :old-mode "100644",
;; :old-path "project.clj",
;; :score 0,
;; :tree-filter-marks 0}
(list-difference repo old)(list-difference repo old new)returns a list of modifications from one version to another (-> (list-difference (repo/repository) {:commit "HEAD~3"}) first) ;; => #modify {:new-id "c81c8f4e14c252adecd1d983ce161055d253c62e", ;; :old-id "356a16f27cd0e66d5d1950252bd6ae57851881a0", ;; :new-path "project.clj", ;; :old-path "project.clj", ;; :changes [#replace {:old [50 51], :new [50 51]} ;; #delete {:old [121 122], :new [121 121]} ;; #replace {:old [127 128], :new [126 127]}]}
returns a list of modifications from one version to another
(-> (list-difference (repo/repository)
{:commit "HEAD~3"})
first)
;; => #modify {:new-id "c81c8f4e14c252adecd1d983ce161055d253c62e",
;; :old-id "356a16f27cd0e66d5d1950252bd6ae57851881a0",
;; :new-path "project.clj",
;; :old-path "project.clj",
;; :changes [#replace {:old [50 51], :new [50 51]}
;; #delete {:old [121 122], :new [121 121]}
;; #replace {:old [127 128], :new [126 127]}]}
(list-file-changes repo old)(list-file-changes repo old new)lists file changes between the previous and current repositories
(list-file-changes (repo/repository) {:commit "HEAD~3"}) ;; => ({:path "project.clj", :type :modify} ;; {:path "test/hara.deploy/manifest/graph/external_test.clj", :type :modify} ;; {:path "test/lucid/system/jvm_test.clj", :type :modify})
lists file changes between the previous and current repositories
(list-file-changes (repo/repository)
{:commit "HEAD~3"})
;; => ({:path "project.clj", :type :modify}
;; {:path "test/hara.deploy/manifest/graph/external_test.clj", :type :modify}
;; {:path "test/lucid/system/jvm_test.clj", :type :modify})
(retrieve-text repo id start end)retrieve texts from given lines of a blob
(-> (retrieve-text (repo/repository)
(AbbreviatedObjectId/fromString "80973f8e246b58f84a94ee9c1b91336ad117924e")
0
1) ;; => ("(defproject hara/lucid "1.4.5"
")
first
(subs 1)
read-string)
=> 'defproject
retrieve texts from given lines of a blob
(-> (retrieve-text (repo/repository)
(AbbreviatedObjectId/fromString "80973f8e246b58f84a94ee9c1b91336ad117924e")
0
1) ;; => ("(defproject hara/lucid \"1.4.5\"\
")
first
(subs 1)
read-string)
=> 'defprojectcljdoc builds & hosts documentation for Clojure/Script libraries
| Ctrl+k | Jump to recent docs |
| ← | Move to previous article |
| → | Move to next article |
| Ctrl+/ | Jump to the search field |