Commit f986923b by vindarel

rm helm occurences

for #15
parent 7d1d0697
......@@ -30,7 +30,6 @@
;;; Code:
(require 'helm)
(require 'projectile)
(require 's)
(require 'github-issues)
......@@ -47,18 +46,6 @@
(defvar git-commit-insert-issue-bitbucket-keywords '("see" "for")
"Similar to Gitlab, Bitbucket can reference issues with or without keywords, see: https://confluence.atlassian.com/bitbucket/resolve-issues-automatically-when-users-push-code-221451126.html")
;; (defvar git-commit-insert-issue-helm-source
(setq git-commit-insert-issue-helm-source
'((name . "Select an issue")
(candidates . git-commit-insert-issue-get-issues-github-or-gitlab-or-bitbucket-format)
(action . (lambda (candidate)
candidate))))
(defun git-commit-insert-issue-helm ()
(interactive)
(helm :sources '(git-commit-insert-issue-helm-source))
)
(defun git-username ()
(s-trim (shell-command-to-string "git config user.name")))
......@@ -135,8 +122,6 @@
(defun git-commit-insert-issue-ask-issues ()
"Ask for the issue to insert."
(interactive)
;; This helm call doesn't work alone, but isn't actually needed.
;; (helm :sources '(issues-helm-source)))
(let ((ido-separator "\n"))
(insert (completing-read "Choose the issue: "
(git-commit-insert-issue-get-issues-github-or-gitlab-or-bitbucket-format)))))
......@@ -214,7 +199,6 @@
(git-commit-insert-issue--construct-regexp (append
git-commit-insert-issue-github-keywords
git-commit-insert-issue-gitlab-keywords)))
;; (insert (git-commit-insert-issue-helm)) ;; broken helm
(insert (git-commit-insert-issue-ask-issues))
(self-insert-command 1)))))
(define-key git-commit-mode-map "#" (insert "#"))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment