daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

fix config update info

Browse Source
This commit is contained in:
Daniel Weschke
2021-01-30 19:43:40 +01:00
parent 5207af83cb
commit 709325fb3e
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/my/my.el
View File

@@ -426,7 +426,7 @@ Usage:
(when (= (length remotes) 1)
(let* ((remote-branch-name (concat (car remotes) "/" branch)) ;; @{u} may not configured, TODO: (if (magit-rev-parse "@{u}") ...)
(diff-count (magit-rev-diff-count "@" remote-branch-name))) ;; i.e. git rev-list @...origin/master --count --left-right
(when with-update (magit-git-fetch (concat (car remotes) " " branch)))
(when with-update (magit-git-string "fetch" (car remotes) branch))
(setq diff (- (cadr diff-count) (car diff-count)))))
(if as-text
(if (= diff 0) "Up-to-date"
@@ -435,11 +435,11 @@ Usage:
diff))))
(defun my-dashboard-config-update ()
(if (featurep 'magit)
(let ((diff (my-magit-repo-status "~/.config/emacs" "master")))
(let ((diff (my-magit-repo-status "~/.config/emacs" "master" t)))
(if (= diff 0) "Up-to-date"
(if (= diff 1) "1 update"
(if (> diff 0) (format "%s updates" diff)
(if (= diff -1) "1 commit unpushed"
(if (= diff -1) "1 commit unpushed"
(if (> diff 0) (format "%s updates" diff)
(format "%s commits unpushed" (- diff)))))))
(require 'magit nil t)
"Check"))