/elpa-local/28.1/smartparens-20220204.1134/smartparens-clojure.el
Emacs Lisp | 56 lines | 11 code | 5 blank | 40 comment | 1 complexity | 79f42b20d1848e1720c80d51a35de9fb MD5 | raw file
Possible License(s): GPL-3.0, CC-BY-4.0, BSD-3-Clause
- ;;; smartparens-clojure.el --- Additional configuration for Clojure mode. -*- lexical-binding: t; -*-
- ;;
- ;; Author: Vitalie Spinu <spinuvit@gmail.com>
- ;; Maintainer: Matus Goljer <matus.goljer@gmail.com>
- ;; Created: 14 July 2016
- ;; Keywords: abbrev convenience editing
- ;; URL: https://github.com/Fuco1/smartparens
- ;;
- ;; This file is not part of GNU Emacs.
- ;;
- ;;; License:
- ;;
- ;; This file is part of Smartparens.
- ;;
- ;; Smartparens is free software; you can redistribute it and/or modify
- ;; it under the terms of the GNU General Public License as published by
- ;; the Free Software Foundation, either version 3 of the License, or
- ;; (at your option) any later version.
- ;;
- ;; Smartparens is distributed in the hope that it will be useful,
- ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
- ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- ;; GNU General Public License for more details.
- ;;
- ;; You should have received a copy of the GNU General Public License
- ;; along with Smartparens. If not, see <http://www.gnu.org/licenses/>.
- ;;
- ;;; Commentary:
- ;;
- ;; This file provides some additional configuration for Clojure mode. To use
- ;; it, simply add:
- ;;
- ;; (require 'smartparens-clojure)
- ;;
- ;; into your configuration. You can use this in conjunction with the
- ;; default config or your own configuration.
- ;;
- ;;; Code:
- (require 'smartparens)
- (defvar sp-clojure-prefix "\\(?:[@`'#~,_?^]+\\)"
- "Prefix used in `sp-sexp-prefix' for clojure modes.")
- (dolist (mode '(clojure-mode clojurescript-mode clojurec-mode cider-repl-mode))
- (add-to-list 'sp-sexp-prefix `(,mode regexp ,sp-clojure-prefix)))
- ;; Match "`" with "`" in strings and comments
- (sp-with-modes sp-clojure-modes
- (sp-local-pair "`" "`"
- :when '(sp-in-string-p
- sp-in-comment-p)
- :unless '(sp-lisp-invalid-hyperlink-p)))
- (provide 'smartparens-clojure)
- ;;; smartparens-clojure.el ends here