Skip to content

Commit

Permalink
magit-insert-remote-headers: cosmetics
Browse files Browse the repository at this point in the history
  • Loading branch information
tarsius committed Nov 11, 2015
1 parent e4c436e commit 022ce78
Showing 1 changed file with 7 additions and 7 deletions.
14 changes: 7 additions & 7 deletions lisp/magit.el
Expand Up @@ -442,14 +442,14 @@ The sections are inserted by running the functions on the hook
If no remote is configured for the current branch, then fall back
showing the \"origin\" remote, or if that does not exist the first
remote in alphabetic order."
(-when-let (remote (or (magit-get-remote)
(let ((remotes (magit-list-remotes)))
(or (car (member "origin" remotes))
(car remotes)))))
(magit-insert-section (remote remote)
(--when-let (or (magit-get-remote)
(let ((remotes (magit-list-remotes)))
(or (car (member "origin" remotes))
(car remotes))))
(magit-insert-section (remote it)
(insert (format "%-10s" "Remote: "))
(insert (propertize remote 'face 'magit-branch-remote) ?\s)
(insert (magit-get "remote" remote "url") ?\n))))
(insert (propertize it 'face 'magit-branch-remote) ?\s)
(insert (magit-get "remote" it "url") ?\n))))

(cl-defun magit-insert-head-header
(&optional (branch (magit-get-current-branch)))
Expand Down

0 comments on commit 022ce78

Please sign in to comment.