emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

General refactors & reformatting

Browse source
This commit is contained in:
Henrik Lissner 2019-12-20 00:47:04 -05:00
parent de63dd50ef
commit 322bca710a
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
6 changed files with 15 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

5
core/core-editor.el
View file

@ -146,6 +146,7 @@ possible."
(push '("/LICENSE\\'" . text-mode) auto-mode-alist) (push '("/LICENSE\\'" . text-mode) auto-mode-alist)
(push '("\\.log\\'" . text-mode) auto-mode-alist) (push '("\\.log\\'" . text-mode) auto-mode-alist)
(push '("\\.env\\'" . sh-mode) auto-mode-alist)
;; ;;
@ -418,7 +419,7 @@ files, so we replace calls to `pp' with the much faster `prin1'."
(require 'smartparens-config) (require 'smartparens-config)
;; Overlays are too distracting and not terribly helpful. show-parens does ;; Overlays are too distracting and not terribly helpful. show-parens does
;; this for us already, so... ;; this for us already (and is faster), so...
(setq sp-highlight-pair-overlay nil (setq sp-highlight-pair-overlay nil
sp-highlight-wrap-overlay nil sp-highlight-wrap-overlay nil
sp-highlight-wrap-tag-overlay nil) sp-highlight-wrap-tag-overlay nil)
@ -442,7 +443,7 @@ files, so we replace calls to `pp' with the much faster `prin1'."
;; Silence some harmless but annoying echo-area spam ;; Silence some harmless but annoying echo-area spam
(dolist (key '(:unmatched-expression :no-matching-tag)) (dolist (key '(:unmatched-expression :no-matching-tag))
(setf (cdr (assq key sp-message-alist)) nil)) (setf (alist-get key sp-message-alist) nil))
(add-hook! 'minibuffer-setup-hook (add-hook! 'minibuffer-setup-hook
(defun doom-init-smartparens-in-minibuffer-maybe-h () (defun doom-init-smartparens-in-minibuffer-maybe-h ()

4
core/core-modules.el
View file

@ -590,14 +590,14 @@ This is a wrapper around `eval-after-load' that:
;; DEPRECATED ;; DEPRECATED
(defmacro def-package! (&rest args) (defmacro def-package! (&rest args)
(make-obsolete 'def-package! 'use-package! "2.0.9")
(message "`def-package!' was renamed to `use-package!'; use that instead.") (message "`def-package!' was renamed to `use-package!'; use that instead.")
`(use-package! ,@args)) `(use-package! ,@args))
(make-obsolete 'def-package! 'use-package! "2.0.9")
(defmacro def-package-hook! (&rest args) (defmacro def-package-hook! (&rest args)
(make-obsolete 'def-package-hook! 'use-package-hook! "2.0.9")
(message "`def-package-hook!' was renamed to `use-package-hook!'; use that instead.") (message "`def-package-hook!' was renamed to `use-package-hook!'; use that instead.")
`(use-package-hook! ,@args)) `(use-package-hook! ,@args))
(make-obsolete 'def-package-hook! 'use-package-hook! "2.0.9")
(provide 'core-modules) (provide 'core-modules)
;;; core-modules.el ends here ;;; core-modules.el ends here

11
modules/config/default/autoload/default.el
View file

@ -245,12 +245,11 @@ If prefix ARG is set, prompt for a known project to search from."
(completing-read "Search project: " projects (completing-read "Search project: " projects
nil t nil nil (doom-project-root)) nil t nil nil (doom-project-root))
(user-error "There are no known projects")) (user-error "There are no known projects"))
default-directory)) default-directory)))
(this-command (call-interactively
(cond ((featurep! :completion ivy) #'+ivy/project-search) (cond ((featurep! :completion ivy) #'+ivy/project-search)
((featurep! :completion helm) #'+helm/project-search) ((featurep! :completion helm) #'+helm/project-search)
(#'projectile-ripgrep)))) (#'projectile-ripgrep)))))
(call-interactively this-command)))
;;;###autoload ;;;###autoload
(defun +default/search-other-project () (defun +default/search-other-project ()

2
modules/lang/clojure/config.el
View file

@ -26,7 +26,7 @@
(set-eval-handler! '(clojure-mode clojurescript-mode) #'cider-eval-region)) (set-eval-handler! '(clojure-mode clojurescript-mode) #'cider-eval-region))
:config :config
(add-hook 'cider-mode-hook #'eldoc-mode) (add-hook 'cider-mode-hook #'eldoc-mode)
(set-lookup-handlers! 'cider-mode (set-lookup-handlers! '(cider-mode cider-repl-mode)
:definition #'+clojure-cider-lookup-definition :definition #'+clojure-cider-lookup-definition
:documentation #'cider-doc) :documentation #'cider-doc)
(set-popup-rules! (set-popup-rules!

6
modules/lang/emacs-lisp/config.el
View file

@ -19,12 +19,12 @@ This marks a foldable marker for `outline-minor-mode' in elisp buffers.")
(use-package! elisp-mode (use-package! elisp-mode
:mode ("\\.Cask\\'" . emacs-lisp-mode) :mode ("\\.Cask\\'" . emacs-lisp-mode)
:config :config
(set-repl-handler! 'emacs-lisp-mode #'+emacs-lisp/open-repl) (set-repl-handler! '(emacs-lisp-mode lisp-interaction-mode) #'+emacs-lisp/open-repl)
(set-eval-handler! 'emacs-lisp-mode #'+emacs-lisp-eval) (set-eval-handler! '(emacs-lisp-mode lisp-interaction-mode) #'+emacs-lisp-eval)
(set-lookup-handlers! 'emacs-lisp-mode (set-lookup-handlers! 'emacs-lisp-mode
:definition #'elisp-def :definition #'elisp-def
:documentation #'+emacs-lisp-lookup-documentation) :documentation #'+emacs-lisp-lookup-documentation)
(set-docsets! 'emacs-lisp-mode "Emacs Lisp") (set-docsets! '(emacs-lisp-mode lisp-interaction-mode) "Emacs Lisp")
(set-pretty-symbols! 'emacs-lisp-mode :lambda "lambda") (set-pretty-symbols! 'emacs-lisp-mode :lambda "lambda")
(set-rotate-patterns! 'emacs-lisp-mode (set-rotate-patterns! 'emacs-lisp-mode
:symbols '(("t" "nil") :symbols '(("t" "nil")

2
modules/lang/org/packages.el
View file

@ -44,7 +44,7 @@
(when (featurep! +gnuplot) (when (featurep! +gnuplot)
(package! gnuplot) (package! gnuplot)
(package! gnuplot-mode)) (package! gnuplot-mode))
(when (featurep! +ipython) (when (featurep! +ipython) ; DEPRECATED
(package! ob-ipython)) (package! ob-ipython))
(when (featurep! +jupyter) (when (featurep! +jupyter)
(package! jupyter)) (package! jupyter))