Moving to Doom Emacs!

.emacs.d/modules/emacs/vc/autoload/evil.el

@@ -0,0 +1,8 @@
+;;; emacs/vc/autoload/evil.el -*- lexical-binding: t; -*-
+;;;###if (featurep! :editor evil)
+
+;;;###autoload (autoload '+vc:git-browse "emacs/vc/autoload/evil" nil t)
+(evil-define-command +vc:git-browse (bang)
+  "Ex interface to `+vc/git-browse-region-or-line'."
+  (interactive "<!>")
+  (+vc/git-browse-region-or-line bang))

.emacs.d/modules/emacs/vc/autoload/hydra.el

@@ -0,0 +1,41 @@
+;;; emacs/vc/autoload/hydra.el -*- lexical-binding: t; -*-
+;;;###if (featurep! :ui hydra)
+
+;;;###autoload (autoload '+vc/smerge-hydra/body "emacs/vc/autoload/hydra" nil t)
+(defhydra +vc/smerge-hydra (:hint nil
+                            :pre (if (not smerge-mode) (smerge-mode 1))
+                            ;; Disable `smerge-mode' when quitting hydra if
+                            ;; no merge conflicts remain.
+                            :post (smerge-auto-leave))
+    "
+                                                         [smerge]
+  Movement   Keep           Diff              Other
+  ╭─────────────────────────────────────────────────────────╯
+     ^_g_^       [_b_] base       [_<_] upper/base    [_C_] Combine
+     ^_C-k_^     [_u_] upper      [_=_] upper/lower   [_r_] resolve
+     ^_k_ ↑^     [_l_] lower      [_>_] base/lower    [_R_] remove
+     ^_j_ ↓^     [_a_] all        [_H_] hightlight
+     ^_C-j_^     [_RET_] current  [_E_] ediff                 ╭──────────
+     ^_G_^                                                │ [_q_] quit
+"
+    ("g" (progn (goto-char (point-min)) (smerge-next)))
+    ("G" (progn (goto-char (point-max)) (smerge-prev)))
+    ("C-j" smerge-next)
+    ("C-k" smerge-prev)
+    ("j" next-line)
+    ("k" previous-line)
+    ("b" smerge-keep-base)
+    ("u" smerge-keep-upper)
+    ("l" smerge-keep-lower)
+    ("a" smerge-keep-all)
+    ("RET" smerge-keep-current)
+    ("\C-m" smerge-keep-current)
+    ("<" smerge-diff-base-upper)
+    ("=" smerge-diff-upper-lower)
+    (">" smerge-diff-base-lower)
+    ("H" smerge-refine)
+    ("E" smerge-ediff)
+    ("C" smerge-combine-with-next)
+    ("r" smerge-resolve)
+    ("R" smerge-kill-current)
+    ("q" nil :color blue))

.emacs.d/modules/emacs/vc/autoload/vc.el

@@ -0,0 +1,43 @@
+;;; emacs/vc/autoload/vc.el -*- lexical-binding: t; -*-
+
+(autoload 'browse-at-remote--file-url "browse-at-remote")
+
+;;;###autoload
+(defun +vc/browse-at-remote-file-or-region ()
+  "Open the current file at remote in your browser.
+If a selection is active, highlight them. Otherwise omits the #L<N> suffix in
+the URL."
+  (interactive)
+  (if (or (use-region-p)
+          (ignore-errors (evil-visual-state-p)))
+      (browse-at-remote)
+    (browse-url (browse-at-remote--file-url (buffer-file-name)))))
+
+;;;###autoload
+(defun +vc/browse-at-remote-kill-file-or-region ()
+  "Copy the current file's remote URL to your clipboard.
+If a selection is active, highlight them. Otherwise omits the #L<N> suffix in
+the URL."
+  (interactive)
+  (if (or (use-region-p)
+          (ignore-errors (evil-visual-state-p)))
+      (browse-at-remote-kill)
+    (kill-new (browse-at-remote--file-url (buffer-file-name)))))
+
+
+(defun +vc--remote-homepage ()
+  (or (let ((url (browse-at-remote--remote-ref)))
+        (cdr (browse-at-remote--get-url-from-remote (car url))))
+      (user-error "Can't find homepage for current project")))
+
+;;;###autoload
+(defun +vc/browse-at-remote-homepage ()
+  "Open homepage for current project in browser."
+  (interactive)
+  (browse-url (+vc--remote-homepage)))
+
+;;;###autoload
+(defun +vc/browse-at-remote-kill-homepage ()
+  "Copy homepage URL of current project to clipboard."
+  (interactive)
+  (kill-new (+vc--remote-homepage)))