From 8662730bf8ebc3fb00f1c72578a78762e435ecc2 Mon Sep 17 00:00:00 2001
From: Franck Cuny <franck@fcuny.net>
Date: Tue, 22 Mar 2022 06:52:26 -0700
Subject: git: make flymake happy

---
 emacs/custom/fcuny-git.el | 60 ++++++-----------------------------------------
 1 file changed, 7 insertions(+), 53 deletions(-)

(limited to 'emacs')

diff --git a/emacs/custom/fcuny-git.el b/emacs/custom/fcuny-git.el
index 5a2f152..83a477d 100644
--- a/emacs/custom/fcuny-git.el
+++ b/emacs/custom/fcuny-git.el
@@ -1,5 +1,9 @@
+;;; fcuny-git --- configures git for emacs
+;;; Commentary:
+;;; Code:
 (require 'fcuny-defuns)
 (require 'fcuny-vars)
+(require 'use-package)
 
 (use-package git-modes
   :ensure t
@@ -17,7 +21,6 @@
   :bind (("C-x g" . magit-status))
   :custom
   (vc-follow-symlinks t)
-  :custom
   (magit-completing-read-function 'ivy-completing-read))
 
 (use-package magit-repos
@@ -38,62 +41,13 @@
     (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.rbx.com/%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 '("github\\.rbx\\.com" fcuny/git-link-work-sourcegraph))
-  (add-to-list 'git-link-commit-remote-alist '("github\\.rbx\\.com" 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)
-
-(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)))
+  :custom
+  (git-link-open-in-browser 't))
 
 (provide 'fcuny-git)
+;;; fcuny-git.el ends here
-- 
cgit 1.4.1