summary refs log tree commit diff
path: root/emacs/custom/fcuny-git.el
blob: 5425bb8df9135e6b138d3ed24f9d06515f63d8dd (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
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
(require 'fcuny-defuns)
(require 'fcuny-vars)

(use-package gitconfig-mode
  :ensure t)

(use-package gitattributes-mode
  :ensure t)

(use-package gitignore-mode
  :ensure t)

(use-package magit
  :ensure t
  :after (flyspell)
  :bind (("C-x g" . magit-status))
  :custom
  (vc-follow-symlinks t)
  :config
  (defun fcuny/magit-settings-for-work ()
    "Settings to apply for work. The main monorepo at work is too large for most of the default settings with magit."
    ;; if we're on darwin, we're on a work laptop, so let's make sure we
    ;; use the proper `git' binary.
    (setq magit-git-executable "/opt/twitter_mde/bin/git")

    ;; no need to show the last 10 commits, 5 is enough.
    (setq magit-log-section-commit-count 5)

    ;; when working with source, some of the hooks are extremely
    ;; expensive and don't add much values (i.e tags). Let's reduce the
    ;; list to things that are actually useful. This still takes ~10
    ;; seconds when running `magit-status'.
    (setq git-commit-setup-hook
          '(git-commit-save-message
            git-commit-turn-on-auto-fill
            git-commit-turn-on-flyspell
            git-commit-propertize-diff
            with-editor-usage-message))
    (setq magit-refs-sections-hook
        '(magit-insert-error-header
          magit-insert-branch-description
          magit-insert-local-branches))
    (setq magit-status-sections-hook
          '(magit-insert-status-headers
            magit-insert-merge-log
            magit-insert-rebase-sequence
            magit-insert-am-sequence
            magit-insert-sequencer-sequence
            magit-insert-untracked-files
            magit-insert-unstaged-changes
            magit-insert-staged-changes
            magit-insert-stashes))
    (setq magit-status-headers-hook
        '(magit-insert-error-header
          magit-insert-diff-filter-header
          magit-insert-head-branch-header)))

  (defun fcuny/magit-settings ()
    ;; Add a "latest commits" section
    (magit-add-section-hook 'magit-status-sections-hook
                            'magit-insert-recent-commits
                            nil t)
    (magit-add-section-hook 'magit-status-sections-hook
                            'magit-insert-unpushed-to-upstream
                            'magit-insert-unpushed-to-upstream-or-recent
                            'replace))

  (when (fcuny/check-work-machine-p)
    (fcuny/magit-settings-for-work)
    (fcuny/magit-settings))

  :custom
  (magit-completing-read-function 'ivy-completing-read)
  (magit-section-initial-visibility-alist
   '((stashes . show)
     (unpushed . how)
     (unpulled . show)
     (recent . show)
     (untracked . show)
     (unstaged . show))))

(use-package magit-repos
  :ensure nil
  :after (magit)
  :custom
  (magit-repository-directories '(("~/workspace" . 1))))

(use-package git-commit
  :ensure t
  :after magit
  :hook (git-commit-mode . fcuny/git-commit-auto-fill)
  :custom
  (git-commit-summary-max-length 50)
  :preface
  (defun fcuny/git-commit-auto-fill ()
    "Ensures that the commit body does not exceed 72 characters."
    (setq-local fill-column 72)
    (setq-local comment-auto-fill-only-comments nil)))

(use-package forge
  :ensure t
  :after (magit)
  :custom
  (forge-database-file (expand-file-name "forge-database-file.sqlite" fcuny/path-emacs-var))
  (auth-sources `(,(expand-file-name "authinfo.gpg" fcuny/path-emacs-etc)))
  :config
  (add-to-list 'forge-alist '("git.fcuny.net" "git.fcuny.net/api/v1" "git.fcuny.net" forge-gitea-repository)))

(use-package git-link
  :ensure t
  :after magit
  :bind (("C-c g l" . git-link)
         ("C-c g a" . git-link-commit))
  :config
  (defun fcuny/get-sg-remote-from-hostname (hostname)
    (format "sourcegraph.twitter.biz/%s" hostname))

  (defun fcuny/git-link-work-sourcegraph (hostname dirname filename _branch commit start end)
    ;;; For a given repository, build the proper link for sourcegraph.
    ;;; Use the default branch of the repository instead of the
    ;;; current one (we might be on a feature branch that is not
    ;;; available on the remote).
    (require 'magit-branch)
    (let ((sg-base-url (fcuny/get-sg-remote-from-hostname hostname))
          (main-branch (magit-main-branch)))
      (git-link-sourcegraph sg-base-url dirname filename main-branch commit start end)))

  (defun fcuny/git-link-commit-work-sourcegraph (hostname dirname commit)
    (let ((sg-base-url (fcuny/get-sg-remote-from-hostname hostname)))
      (git-link-commit-sourcegraph sg-base-url dirname commit)))

  ;; for work related repositories, open them in our instance of sourcegraph
  (add-to-list 'git-link-remote-alist '("twitter" fcuny/git-link-work-sourcegraph))
  (add-to-list 'git-link-commit-remote-alist '("twitter" fcuny/git-link-commit-work-sourcegraph))

  ;; for personal code I use gitea, which is similar to codeberg
  (add-to-list 'git-link-remote-alist '("git\\.fcuny\\.net" git-link-codeberg))
  (add-to-list 'git-link-commit-remote-alist '("git\\.fcuny\\.net" git-link-commit-codeberg))

  (setq git-link-open-in-browser 't))

;; https://magit.vc/manual/magit/Per_002dRepository-Configuration.html
;; we don't want to refresh buffers in source. This should help with
;; performances.
(dir-locals-set-class-variables 'huge-git-repository
                                '((nil . ((magit-refresh-buffers . nil)))))

(dir-locals-set-directory-class
 "/Users/fcuny/workspace/source" 'huge-git-repository)

;; https://magit.vc/manual/magit/Performance.html
;; disable Git from the VC mode, since we use magit. This should help
;; with performances.
(setq vc-handled-backends (delq 'Git vc-handled-backends))

(defun fcuny/clone-repo (url)
  "Clone a repository in the workspace"
  (interactive "sURL:")
  (let* ((repo-name (magit-clone--url-to-name url))
         (target-dir (concat fcuny/path-workspace "/" repo-name)))
    (magit-clone-regular url target-dir nil)))

(provide 'fcuny-git)