Remove unused code from spacemacs.el.

2 files changed, 2 insertions, 36 deletions

diff --git a/emacs/not-much.el b/emacs/not-much.el
index a434bbd..fdb18ad 100644
--- a/emacs/not-much.el
+++ b/emacs/not-much.el
diff --git a/spacemacs.el b/spacemacs.el
index fc3693a..a478f91 100644
--- a/spacemacs.el
+++ b/spacemacs.el
@@ -75,7 +75,6 @@ This function should only modify configuration layer settings."
      restclient
      ruby
      rust
-     search-engine
      scheme
      shell-scripts
      sql
@@ -508,19 +507,6 @@ dump."
   )
 
 
-;; TODO: merge upstream
-(defun git-link-pull-requests (remote)
-  (interactive (list (git-link--select-remote)))
-  (let ((remote-host (git-link--remote-host remote)))
-    (if remote-host
-        (git-link--new (format "https://%s/%s/%s"
-                               remote-host
-                               (git-link--remote-dir remote)
-                               (pcase remote-host
-                                 ("gitlab.com" "merge_requests")
-                                 ("github.com" "pulls"))))
-      (error  "Remote `%s' is unknown or contains an unsupported URL" remote))))
-
 (defun set-custom-clj-indent ()
   "dom/* indentation rules: React/Native helper fns"
   (define-clojure-indent
@@ -588,8 +574,7 @@ dump."
                              ("M-["   . (lambda () (interactive) (find-file "~/tmp/scratch.org")))
                              ("M-]"   . (lambda () (interactive) (find-file "~/Nextcloud/Notes/TODOs.txt")))))
 
-(defvar custom-el-files '("~/annex/dev/code/dotfiles/emacs/re-jump.el"
-                          "~/annex/dev/code/dotfiles/emacs/not-much.el"
+(defvar custom-el-files '("~/annex/dev/code/dotfiles/emacs/not-much.el"
                           "~/.quicklisp/slime-helper.el"))
 
 (defmacro measure-time (&rest body)
@@ -616,21 +601,17 @@ dump."
   "Configuration function for user code.
 This function is called at the very end of Spacemacs initialization after layers configuration.
 This is the place where most of your configurations should be done. Unless it is explicitly specified that a variable should be set before a package is loaded, you should place your code here."
-  (require 'git-link)     ;; for git-link-*
 
   (eval-after-load 'clojure-mode '(set-custom-clj-indent))
   (eval-after-load 'midje-mode   '(set-custom-clj-indent))
 
   (spacemacs/set-leader-keys
-    "oo"    'spacemacs/workspaces-transient-state/body
     "p C-r" 'euandreh/projectile-reload-known-projects
     "an"    'notmuch
-    "/"     'engine/search-duck-duck-go
     "d"     'spacemacs/delete-window
     "w/"    'split-window-right-and-focus
     "w-"    'split-window-below-and-focus
-    "glh"   'git-link-homepage
-    "glp"   'git-link-pull-requests)
+    "glh"   'git-link-homepage)
 
   (spacemacs/set-leader-keys-for-major-mode 'typescript-mode
     "." 'spacemacs/jump-to-definition
@@ -747,14 +728,6 @@ This is the place where most of your configurations should be done. Unless it is
   (setq org-export-allow-bind-keywords t)
   (setq org-html-postamble t)
 
-  ;; (require 'key-chord)
-  ;; (key-chord-mode 1)
-  ;; (key-chord-define-global "qw" 'save-buffer)
-  ;; (key-chord-define-global "qe" (lambda ()
-  ;;                                  (interactive)
-  ;;                                  (save-some-buffers 1)))
-
-
   (defun git-link-savannah (hostname dirname filename _branch commit start _end)
     (let ((project-name (cadr (split-string dirname "/"))))
       (format "https://%s/cgit/%s.git/tree/%s?id=%s#n%s"
@@ -764,13 +737,6 @@ This is the place where most of your configurations should be done. Unless it is
               commit
               start)))
 
-  (add-to-list 'git-link-remote-alist '("savannah" git-link-savannah))
-
-  ;; matrix-client-el
-  ;; (add-to-list 'load-path
-  ;;              (expand-file-name "~/tmp/matrix-client-el"))
-  ;; (require 'matrix-client)
-
   ;; (require 'geiser-guile)
   ;; (with-eval-after-load 'geiser-guile
   ;;   (add-to-list 'geiser-guile-load-path "~/dev/guix/guix"))