From 51f6e672297c637248cccee844f3d0596867bf95 Mon Sep 17 00:00:00 2001 From: EuAndreh Date: Sat, 3 Nov 2018 00:14:47 -0200 Subject: Remove unused code from spacemacs.el. --- spacemacs.el | 38 ++------------------------------------ 1 file changed, 2 insertions(+), 36 deletions(-) (limited to 'spacemacs.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")) -- cgit v1.2.3