[nongnu] elpa/javelin 2b211a5f862 25/99: remove magit dependency

[ELPA Syncer]

branch: elpa/javelin
commit 2b211a5f862e834ef83ed77dbc10eb0021f453df
Author: Otávio Schwanck dos Santos <otavioschwa...@gmail.com>
Commit: Otávio Schwanck dos Santos <otavioschwa...@gmail.com>

    remove magit dependency
---
 README.org |  1 +
 harpoon.el | 15 ++++++++++++---
 2 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index d53289427c2..15576c9b9bd 100644
--- a/README.org
+++ b/README.org
@@ -70,6 +70,7 @@ You can customize by setting this variable:
 | Variable                      | Description                  | Default       
           |
 | harpoon-separate-by-branch    | If nil, ignores the branch   | t             
           |
 | harpoon-project-name-function | Function to get project name | 
'projectile-project-name |
+| harpoon-project-root-function | Function to get project root | 
'projectile-project-root |
 
 * For project.el users
 
diff --git a/harpoon.el b/harpoon.el
index 72f2ecdf9a7..c5337d95621 100644
--- a/harpoon.el
+++ b/harpoon.el
@@ -6,7 +6,7 @@
 ;; Keywords: tools languages
 ;; Homepage: https://github.com/otavioschwanck/harpoon.el
 ;; Version: 0.3
-;; Package-Requires: ((emacs "27.2") (magit "3.3.0") (f "0.20.0"))
+;; Package-Requires: ((emacs "27.2") (f "0.20.0"))
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -29,7 +29,6 @@
 ;; separated by project and branch.
 
 ;;; Code:
-(require 'magit)
 (require 'f)
 
 (defvar harpoon-mode-map
@@ -48,6 +47,10 @@
   "Function used to get project name."
   :type 'symbol)
 
+(defcustom harpoon-project-root-function 'projectile-project-root
+  "Function used to get project root."
+  :type 'symbol)
+
 (defcustom harpoon-separate-by-branch t
   "Harpoon separated by branch."
   :type 'boolean)
@@ -64,12 +67,18 @@
 (defvar harpoon-cache-loaded nil
   "Cache for harpoon.")
 
+(defun harpoon--get-branch-name ()
+  "Get the branch name for harpoon."
+  (car (split-string
+        (shell-command-to-string
+         (concat "cd " (funcall harpoon-project-root-function) "; git 
rev-parse --abbrev-ref HEAD")) "\n")))
+
 (defun harpoon--cache-key ()
   "Key to save current file on cache."
   (if harpoon-separate-by-branch
       (concat (harpoon--sanitize (funcall harpoon-project-name-function))
               "#"
-              (harpoon--sanitize (magit-get-current-branch)))
+              (harpoon--sanitize (harpoon--get-branch-name)))
     (harpoon--sanitize (funcall harpoon-project-name-function))))
 
 (defun harpoon--create-directory ()