blob: 71006d5e7c51225816a99c7bb5061f4499b821a8 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
|
;;; mm-projects.el --- Configuration for project management -*- lexical-binding: t; -*-
;;; Project Configuration
(defun mm-projects-project-magit-status ()
"Open a Git status buffer for the current project.
This is intended to be called interactively via
`project-switch-commands'."
(interactive)
(thread-last
(project-current t)
(project-root)
(magit-status-setup-buffer)))
(use-package project
:custom
(project-switch-commands
'((project-dired "Dired" ?d)
(project-find-file "Find File" ?f)
(mm-projects-project-magit-status "Git Status" ?s)))
:config
(unless mm-darwin-p
(if-let ((repo-directory (getenv "REPODIR")))
(let* ((list-dir
(lambda (path)
(directory-files path :full "\\`[^.]")))
(directories
(cl-loop for author in (funcall list-dir (getenv "REPODIR"))
append (cl-loop for path in (funcall list-dir author)
collect (list (concat path "/"))))))
(with-temp-buffer
(prin1 directories (current-buffer))
(write-file project-list-file))
(project--read-project-list))
(warn "The REPODIR environment variable is not set."))))
^L
;;; Emacs VC
(use-package vc-hooks
:custom
(vc-follow-symlinks t)
(vc-handled-backends '(Git)))
^L
;;; Git Client
(use-package magit
:ensure t
:bind ( :map magit-status-mode-map
("[" . magit-section-backward-sibling)
("]" . magit-section-forward-sibling))
:custom
(git-commit-style-convention-checks
'(non-empty-second-line overlong-summary-line))
(git-commit-summary-max-length 50)
(magit-diff-refine-hunk t)
(magit-display-buffer-function
#'magit-display-buffer-same-window-except-diff-v1)
(transient-default-level 7)
:config
(transient-define-suffix mm-projects-magit-push-current-to-all-remotes (args)
"Push the current branch to all remotes."
:if #'magit-get-current-branch
(interactive (list (magit-push-arguments)))
(run-hooks 'magit-credential-hook)
(let ((branch (magit-get-current-branch)))
(dolist (remote (magit-list-remotes))
(magit-run-git-async
"push" "-v" args remote
(format "refs/heads/%s:refs/heads/%s" branch branch)))))
(transient-append-suffix #'magit-push '(1 -1)
'("a" "all remotes" mm-projects-magit-push-current-to-all-remotes)))
(use-package magit-repos
:ensure nil ; Part of ‘magit’
:if (not mm-darwin-p)
:commands (magit-list-repositories)
:init
(if-let ((directory (getenv "REPODIR")))
(setopt magit-repository-directories `((,directory . 2)))
(warn "The REPODIR environment variable is not set.")))
(use-package magit-todos
:ensure t
:after magit
:hook magit-mode
:custom
(magit-todos-exclude-globs '("vendor/")))
^L
;; Project Compilation
(use-package compile
:config
(require 'ansi-color)
(add-hook 'compilation-filter-hook #'ansi-color-compilation-filter))
^L
;;; GitHub Pull Requests
(require 'gh)
(keymap-global-set "C-c p" #'gh-create-pr)
;; (defun mm-gh--get-labels ()
;; (with-temp-buffer
;; (call-process "gh" nil t nil "label" "list" "--json" "name")
;; (goto-char (point-min))
;; (let* ((data (json-parse-buffer))
;; (labels (seq-map (lambda (x) (gethash "name" x)) data)))
;; (sort labels
;; :in-place t
;; :lessp (lambda (x y)
;; (let ((prefix-x-p (string-prefix-p "Sprint " x))
;; (prefix-y-p (string-prefix-p "Sprint " y)))
;; (cond
;; ((and prefix-x-p prefix-y-p) (string> x y))
;; (prefix-x-p t)
;; (prefix-y-p nil)
;; (:else (string< x y)))))))))
;; (defun mm-gh-create-pr (title draftp labels)
;; "Create a GitHub pull request using the gh CLI.
;; If DRAFT is non-nil, the PR will be created as a draft.
;; LABELS should be a comma-separated string of GitHub labels."
;; (interactive
;; (list
;; (read-string (format-prompt "PR Title" nil))
;; (y-or-n-p "Create as draft PR? ")
;; (completing-read-multiple (format-prompt "PR Labels" nil)
;; (mm-gh--get-labels))))
;; (let* ((branch (car (vc-git-branches)))
;; (title (format "%s %s" branch title))
;; (flags `("--fill-verbose" "--title" ,title "--assignee" "@me"))
;; (label-string (mapconcat #'identity labels ",")))
;; (when draftp
;; (setq flags (append flags '("--draft"))))
;; (when labels
;; (setq flags (append flags `("--label" ,label-string))))
;; (with-temp-buffer
;; (apply #'call-process "gh" nil t nil "pr" "create" flags)
;; (message (buffer-string)))))
(provide 'mm-projects)
|
