Remove redundant comments.
This commit is contained in:
parent
a2c312741b
commit
ae5c8e1301
5 changed files with 2 additions and 23 deletions
|
@ -60,7 +60,6 @@
|
|||
repo
|
||||
args))
|
||||
|
||||
;; Curried git repo command wrapper
|
||||
(define*/doc (git repo (defmodesym 'output))
|
||||
("
|
||||
* ```repo``` - a path to repository
|
||||
|
@ -95,7 +94,6 @@ repository returning one or two values based on ```mode``` given:
|
|||
'((" M" modified)
|
||||
("??" untracked)))
|
||||
|
||||
;; Returns a dictionary of unknown, modified, deleted and added files
|
||||
(define/doc (git-status repo)
|
||||
("
|
||||
* ```repo``` - git repository
|
||||
|
@ -125,15 +123,13 @@ Returns a dictionary with the following keys:
|
|||
(cons fname
|
||||
(ldict-ref res status '())))))))))
|
||||
|
||||
;; Returns detailed file annotation with each line being represented
|
||||
;; by dictionary with keys from git output
|
||||
(define/doc (git-blame repo fname)
|
||||
("
|
||||
* ```repo``` - git repository
|
||||
* ```fname``` - file name (path) relative to the git repository
|
||||
|
||||
Returns annotated source with information about originating commits
|
||||
for each line.
|
||||
for each line represented by dictionary with keys from git output.
|
||||
")
|
||||
(let loop ((lines ((git repo) 'blame '--line-porcelain fname))
|
||||
(blame (make-ldict))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue