소스 검색

Fix column length

master
10sr 6 년 전
부모
커밋
3be2eab2cc
로그인 계정: 10sr GPG 키 ID: 7BEC428194130EB2
1개의 변경된 파일15개의 추가작업 그리고 4개의 파일을 삭제
  1. +15
    -4
      emacs.el

+ 15
- 4
emacs.el 파일 보기

@@ -2193,7 +2193,18 @@ initializing."
(bname (format "Git Worktree<%s>" name)))
(with-current-buffer (get-buffer-create bname)
(cd root)
(let ((trees (git-worktree-get-current-trees)))
(let* ((trees (git-worktree-get-current-trees))
(branch-max-length
(apply 'max
(cl-loop for e in trees
when (plist-get e :branch)
collect (length (plist-get e :branch)))))
(worktree-max-length
(apply 'max
(cl-loop for e in trees
when (plist-get e :worktree)
collect (length (plist-get e :worktree)))))
)
(setq tabulated-list-entries
(mapcar (lambda (f)
(list f
@@ -2202,9 +2213,9 @@ initializing."
(plist-get f :head))))
trees))
(setq tabulated-list-format
`[("Refs" 30 t)
("Worktree" 40 t)
("Head" 0 t)])
`[("Branch" ,branch-max-length t)
("Worktree" ,worktree-max-length t)
("Head" -1 t)])
(git-worktree-mode)
(current-buffer)))))



불러오는 중...
취소
저장