From ffea950fd5b4009d0104b9d0042bb6856bc6acc4 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Fri, 26 Aug 2022 11:20:04 +0200 Subject: [PATCH] updated smartparens and rainbow-delimiters adjusted rainbow-colors. Signed-off-by: Andreas Gerler --- bba.org | 4 +- custom.el | 6 + .../rainbow-delimiters-autoloads.el | 32 --- .../rainbow-delimiters-pkg.el | 2 - .../rainbow-delimiters-autoloads.el | 49 ++++ .../rainbow-delimiters-pkg.el | 2 + .../rainbow-delimiters.el | 15 +- .../smartparens-elixir.el | 135 ----------- .../smartparens-autoloads.el | 141 ++++++++---- .../smartparens-c.el | 0 .../smartparens-clojure.el | 0 .../smartparens-config.el | 2 + .../smartparens-crystal.el | 0 .../smartparens-elixir.el | 214 ++++++++++++++++++ .../smartparens-ess.el | 5 +- .../smartparens-go.el | 60 +++++ .../smartparens-haskell.el | 0 .../smartparens-html.el | 0 .../smartparens-javascript.el | 0 .../smartparens-latex.el | 0 .../smartparens-lua.el | 0 .../smartparens-markdown.el | 0 .../smartparens-ml.el | 6 +- .../smartparens-org.el | 0 .../smartparens-pkg.el | 4 +- .../smartparens-python.el | 25 +- .../smartparens-racket.el | 0 .../smartparens-rst.el | 0 .../smartparens-ruby.el | 0 .../smartparens-rust.el | 0 .../smartparens-scala.el | 3 + .../smartparens-swift.el | 117 ++++++++++ .../smartparens-text.el | 0 .../smartparens.el | 157 +++++++------ .../sp-sublimetext-like.el | 0 35 files changed, 678 insertions(+), 301 deletions(-) delete mode 100644 elpa/rainbow-delimiters-20191018.1233/rainbow-delimiters-autoloads.el delete mode 100644 elpa/rainbow-delimiters-20191018.1233/rainbow-delimiters-pkg.el create mode 100644 elpa/rainbow-delimiters-20210515.1254/rainbow-delimiters-autoloads.el create mode 100644 elpa/rainbow-delimiters-20210515.1254/rainbow-delimiters-pkg.el rename elpa/{rainbow-delimiters-20191018.1233 => rainbow-delimiters-20210515.1254}/rainbow-delimiters.el (96%) delete mode 100644 elpa/smartparens-20201229.1937/smartparens-elixir.el rename elpa/{smartparens-20201229.1937 => smartparens-20220623.1523}/smartparens-autoloads.el (67%) rename elpa/{smartparens-20201229.1937 => smartparens-20220623.1523}/smartparens-c.el (100%) rename elpa/{smartparens-20201229.1937 => smartparens-20220623.1523}/smartparens-clojure.el (100%) rename elpa/{smartparens-20201229.1937 => smartparens-20220623.1523}/smartparens-config.el (97%) rename elpa/{smartparens-20201229.1937 => smartparens-20220623.1523}/smartparens-crystal.el (100%) create mode 100644 elpa/smartparens-20220623.1523/smartparens-elixir.el rename elpa/{smartparens-20201229.1937 => smartparens-20220623.1523}/smartparens-ess.el (97%) create mode 100644 elpa/smartparens-20220623.1523/smartparens-go.el rename elpa/{smartparens-20201229.1937 => smartparens-20220623.1523}/smartparens-haskell.el (100%) rename elpa/{smartparens-20201229.1937 => smartparens-20220623.1523}/smartparens-html.el (100%) rename elpa/{smartparens-20201229.1937 => smartparens-20220623.1523}/smartparens-javascript.el (100%) rename elpa/{smartparens-20201229.1937 => smartparens-20220623.1523}/smartparens-latex.el (100%) rename elpa/{smartparens-20201229.1937 => smartparens-20220623.1523}/smartparens-lua.el (100%) rename elpa/{smartparens-20201229.1937 => smartparens-20220623.1523}/smartparens-markdown.el (100%) rename elpa/{smartparens-20201229.1937 => smartparens-20220623.1523}/smartparens-ml.el (91%) rename elpa/{smartparens-20201229.1937 => smartparens-20220623.1523}/smartparens-org.el (100%) rename elpa/{smartparens-20201229.1937 => smartparens-20220623.1523}/smartparens-pkg.el (74%) rename elpa/{smartparens-20201229.1937 => smartparens-20220623.1523}/smartparens-python.el (86%) rename elpa/{smartparens-20201229.1937 => smartparens-20220623.1523}/smartparens-racket.el (100%) rename elpa/{smartparens-20201229.1937 => smartparens-20220623.1523}/smartparens-rst.el (100%) rename elpa/{smartparens-20201229.1937 => smartparens-20220623.1523}/smartparens-ruby.el (100%) rename elpa/{smartparens-20201229.1937 => smartparens-20220623.1523}/smartparens-rust.el (100%) rename elpa/{smartparens-20201229.1937 => smartparens-20220623.1523}/smartparens-scala.el (97%) create mode 100644 elpa/smartparens-20220623.1523/smartparens-swift.el rename elpa/{smartparens-20201229.1937 => smartparens-20220623.1523}/smartparens-text.el (100%) rename elpa/{smartparens-20201229.1937 => smartparens-20220623.1523}/smartparens.el (99%) rename elpa/{smartparens-20201229.1937 => smartparens-20220623.1523}/sp-sublimetext-like.el (100%) diff --git a/bba.org b/bba.org index 27bb8cc5..985b2d79 100644 --- a/bba.org +++ b/bba.org @@ -439,7 +439,7 @@ Some key bindings taken from [[https://ebzzry.github.io/emacs-pairs.html][emacs- #+BEGIN_SRC emacs-lisp (if (>= emacs-major-version 24) (progn - (add-to-list 'load-path "~/.emacs.d/elpa/smartparens-20201229.1937") + (add-to-list 'load-path "~/.emacs.d/elpa/smartparens-20220623.1523") (add-to-list 'load-path "~/.emacs.d/elpa/dash-20210826.1149") (require 'smartparens) (smartparens-global-mode 1) @@ -484,7 +484,7 @@ But we use it only in graphical mode as text mode lacks color depth. #+BEGIN_SRC emacs-lisp (if (>= emacs-major-version 24) (when (display-graphic-p) - (add-to-list 'load-path "~/.emacs.d/elpa/rainbow-delimiters-20191018.1233") + (add-to-list 'load-path "~/.emacs.d/elpa/rainbow-delimiters-20210515.1254") )) diff --git a/custom.el b/custom.el index 03c3c9c9..16a60451 100644 --- a/custom.el +++ b/custom.el @@ -62,6 +62,12 @@ '(org-level-6 ((t (:inherit default :foreground "#62a9cd" :font "Arial")))) '(org-level-7 ((t (:inherit default :foreground "#62a9cd" :font "Arial")))) '(org-level-8 ((t (:inherit default :foreground "#62a9cd" :font "Arial")))) + '(rainbow-delimiters-depth-1-face ((t (:inherit rainbow-delimiters-base-face :foreground "yellow")))) + '(rainbow-delimiters-depth-2-face ((t (:inherit rainbow-delimiters-base-face :foreground "magenta1")))) + '(rainbow-delimiters-depth-3-face ((t (:inherit rainbow-delimiters-base-face :foreground "cyan")))) + '(rainbow-delimiters-depth-4-face ((t (:inherit rainbow-delimiters-base-face :foreground "SteelBlue1")))) + '(rainbow-delimiters-depth-5-face ((t (:inherit rainbow-delimiters-base-face :foreground "pink")))) + '(rainbow-delimiters-depth-6-face ((t (:inherit rainbow-delimiters-base-face :foreground "OrangeRed1")))) '(show-paren-match ((t (:underline (:color "#07e30d" :style line))))) '(show-paren-mismatch ((t (:underline (:color "red" :style wave))))) '(stripes-face ((t :background "gray0")))) diff --git a/elpa/rainbow-delimiters-20191018.1233/rainbow-delimiters-autoloads.el b/elpa/rainbow-delimiters-20191018.1233/rainbow-delimiters-autoloads.el deleted file mode 100644 index baa534e7..00000000 --- a/elpa/rainbow-delimiters-20191018.1233/rainbow-delimiters-autoloads.el +++ /dev/null @@ -1,32 +0,0 @@ -;;; rainbow-delimiters-autoloads.el --- automatically extracted autoloads -;; -;;; Code: -(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) - -;;;### (autoloads nil "rainbow-delimiters" "rainbow-delimiters.el" -;;;;;; (23994 46384 813009 59000)) -;;; Generated autoloads from rainbow-delimiters.el - -(autoload 'rainbow-delimiters-mode "rainbow-delimiters" "\ -Highlight nested parentheses, brackets, and braces according to their depth. - -\(fn &optional ARG)" t nil) - -(autoload 'rainbow-delimiters-mode-enable "rainbow-delimiters" "\ -Enable `rainbow-delimiters-mode'. - -\(fn)" nil nil) - -(autoload 'rainbow-delimiters-mode-disable "rainbow-delimiters" "\ -Disable `rainbow-delimiters-mode'. - -\(fn)" nil nil) - -;;;*** - -;; Local Variables: -;; version-control: never -;; no-byte-compile: t -;; no-update-autoloads: t -;; End: -;;; rainbow-delimiters-autoloads.el ends here diff --git a/elpa/rainbow-delimiters-20191018.1233/rainbow-delimiters-pkg.el b/elpa/rainbow-delimiters-20191018.1233/rainbow-delimiters-pkg.el deleted file mode 100644 index 29cf9ab3..00000000 --- a/elpa/rainbow-delimiters-20191018.1233/rainbow-delimiters-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;;; -*- no-byte-compile: t -*- -(define-package "rainbow-delimiters" "20191018.1233" "Highlight brackets according to their depth" 'nil :commit "5125f4e47604ad36c3eb4706310fcafac729ca8c" :keywords '("faces" "convenience" "lisp" "tools") :authors '(("Jeremy Rayman" . "opensource@jeremyrayman.com") ("Fanael Linithien" . "fanael4@gmail.com")) :maintainer '("Fanael Linithien" . "fanael4@gmail.com") :url "https://github.com/Fanael/rainbow-delimiters") diff --git a/elpa/rainbow-delimiters-20210515.1254/rainbow-delimiters-autoloads.el b/elpa/rainbow-delimiters-20210515.1254/rainbow-delimiters-autoloads.el new file mode 100644 index 00000000..9876f5d8 --- /dev/null +++ b/elpa/rainbow-delimiters-20210515.1254/rainbow-delimiters-autoloads.el @@ -0,0 +1,49 @@ +;;; rainbow-delimiters-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*- +;; +;;; Code: + +(add-to-list 'load-path (directory-file-name + (or (file-name-directory #$) (car load-path)))) + + +;;;### (autoloads nil "rainbow-delimiters" "rainbow-delimiters.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from rainbow-delimiters.el + +(autoload 'rainbow-delimiters-mode "rainbow-delimiters" "\ +Highlight nested parentheses, brackets, and braces according to their depth. + +This is a minor mode. If called interactively, toggle the +`Rainbow-Delimiters mode' mode. If the prefix argument is +positive, enable the mode, and if it is zero or negative, disable +the mode. + +If called from Lisp, toggle the mode if ARG is `toggle'. Enable +the mode if ARG is nil, omitted, or is a positive number. +Disable the mode if ARG is a negative number. + +To check whether the minor mode is enabled in the current buffer, +evaluate `rainbow-delimiters-mode'. + +The mode's hook is called both when the mode is enabled and when +it is disabled. + +\(fn &optional ARG)" t nil) + +(autoload 'rainbow-delimiters-mode-enable "rainbow-delimiters" "\ +Enable `rainbow-delimiters-mode'." nil nil) + +(autoload 'rainbow-delimiters-mode-disable "rainbow-delimiters" "\ +Disable `rainbow-delimiters-mode'." nil nil) + +(register-definition-prefixes "rainbow-delimiters" '("rainbow-delimiters-")) + +;;;*** + +;; Local Variables: +;; version-control: never +;; no-byte-compile: t +;; no-update-autoloads: t +;; coding: utf-8 +;; End: +;;; rainbow-delimiters-autoloads.el ends here diff --git a/elpa/rainbow-delimiters-20210515.1254/rainbow-delimiters-pkg.el b/elpa/rainbow-delimiters-20210515.1254/rainbow-delimiters-pkg.el new file mode 100644 index 00000000..16679fed --- /dev/null +++ b/elpa/rainbow-delimiters-20210515.1254/rainbow-delimiters-pkg.el @@ -0,0 +1,2 @@ +;;; Generated package description from rainbow-delimiters.el -*- no-byte-compile: t -*- +(define-package "rainbow-delimiters" "20210515.1254" "Highlight brackets according to their depth" 'nil :commit "7919681b0d883502155d5b26e791fec15da6aeca" :authors '(("Jeremy Rayman" . "opensource@jeremyrayman.com") ("Fanael Linithien" . "fanael4@gmail.com")) :maintainer '("Fanael Linithien" . "fanael4@gmail.com") :keywords '("faces" "convenience" "lisp" "tools") :url "https://github.com/Fanael/rainbow-delimiters") diff --git a/elpa/rainbow-delimiters-20191018.1233/rainbow-delimiters.el b/elpa/rainbow-delimiters-20210515.1254/rainbow-delimiters.el similarity index 96% rename from elpa/rainbow-delimiters-20191018.1233/rainbow-delimiters.el rename to elpa/rainbow-delimiters-20210515.1254/rainbow-delimiters.el index 9fa85458..aff69db9 100644 --- a/elpa/rainbow-delimiters-20191018.1233/rainbow-delimiters.el +++ b/elpa/rainbow-delimiters-20210515.1254/rainbow-delimiters.el @@ -2,13 +2,14 @@ ;; Copyright (C) ;; 2010-2013 Jeremy Rayman -;; 2013-2019 Fanael Linithien +;; 2013-2021 Fanael Linithien ;; Author: Jeremy Rayman ;; Fanael Linithien ;; Maintainer: Fanael Linithien ;; Created: 2010-09-02 -;; Version: 2.1.4 -;; Package-Version: 20191018.1233 +;; Version: 2.1.5 +;; Package-Version: 20210515.1254 +;; Package-Commit: 7919681b0d883502155d5b26e791fec15da6aeca ;; Keywords: faces, convenience, lisp, tools ;; Homepage: https://github.com/Fanael/rainbow-delimiters @@ -232,6 +233,10 @@ Returns t if char at loc meets one of the following conditions: "Highlight delimiters in region between point and END. Used by font-lock for dynamic highlighting." + (when (bound-and-true-p mmm-current-submode) + ;; `mmm-mode' is weird and apparently needs this hack, because otherwise we + ;; may end up thinking matched parentheses are mismatched. + (widen)) (let* ((last-ppss-pos (point)) (ppss (syntax-ppss))) (while (> end (progn (skip-syntax-forward "^()" end) @@ -267,7 +272,9 @@ Used by font-lock for dynamic highlighting." ;;;###autoload (define-minor-mode rainbow-delimiters-mode "Highlight nested parentheses, brackets, and braces according to their depth." - nil "" nil ; No modeline lighter - it's already obvious when the mode is on. + :init-value nil + :lighter "" ; No modeline lighter - it's already obvious when the mode is on. + :keymap nil (font-lock-remove-keywords nil rainbow-delimiters--font-lock-keywords) (when rainbow-delimiters-mode (font-lock-add-keywords nil rainbow-delimiters--font-lock-keywords 'append) diff --git a/elpa/smartparens-20201229.1937/smartparens-elixir.el b/elpa/smartparens-20201229.1937/smartparens-elixir.el deleted file mode 100644 index 8411162c..00000000 --- a/elpa/smartparens-20201229.1937/smartparens-elixir.el +++ /dev/null @@ -1,135 +0,0 @@ -;;; smartparens-elixir.el --- Configuration for Elixir. -*- lexical-binding: t; -*- - -;; Copyright (C) 2017 Matúš Goljer - -;; Author: Matúš Goljer -;; Maintainer: Matúš Goljer -;; Version: 0.0.1 -;; Created: 15th January 2017 -;; Keywords: languages - -;; This program 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. - -;; This program 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 this program. If not, see . - -;;; Commentary: - -;;; Code: - -(require 'smartparens) - -(--each '(elixir-mode) - (add-to-list 'sp-sexp-suffix (list it 'regexp ""))) - -(defun sp-elixir-def-p (id) - "Return non-nil if the \"do\" keyword is part of definition. - -ID is the opening delimiter. - -Definitions are the constructions of the form defmodule-do-end, -def-do-end and similar pairs." - (save-excursion - (when (equal "do" id) - (back-to-indentation) - (looking-at (regexp-opt '( - "defmodule" - "defmacro" - "defmacrop" - "quote" - "def" - "defp" - "if" - "unless" - "case" - "cond" - "with" - "for" - "receive" - "try" - )))))) - -(defun sp-elixir-skip-def-p (ms _mb _me) - "Test if \"do\" is part of definition. -MS, MB, ME." - (sp-elixir-def-p ms)) - -(defun sp-elixir-do-block-post-handler (_id action _context) - "Insert \"do\" keyword and indent the new block. -ID, ACTION, CONTEXT." - (when (eq action 'insert) - (let ((m (make-marker))) - (save-excursion - (forward-word) ;; over the "end" - (move-marker m (point))) - (save-excursion (newline)) - (save-excursion (insert " do")) - (indent-region (line-beginning-position) m) - (move-marker m nil nil)))) - -(defun sp-elixir-empty-do-block-post-handler (_id action _context) - "Insert empty \"do\" keyword and indent the new block. - -This is used for receive-do-end expression. -ID, ACTION, CONTEXT." - (when (eq action 'insert) - (let ((m (make-marker))) - (save-excursion - (forward-word) ;; over the "end" - (move-marker m (point))) - (save-excursion - (forward-line -1) - (end-of-line) - (insert " do")) - (save-excursion (newline)) - (indent-region (line-beginning-position) m) - (indent-according-to-mode) - (move-marker m nil nil)))) - -(sp-with-modes 'elixir-mode - (sp-local-pair "do" "end" - :when '(("SPC" "RET" "")) - :skip-match 'sp-elixir-skip-def-p - :unless '(sp-in-comment-p sp-in-string-p)) - (sp-local-pair "def" "end" - :when '(("SPC" "RET" "")) - :post-handlers '(sp-elixir-do-block-post-handler) - :unless '(sp-in-comment-p sp-in-string-p)) - (sp-local-pair "defp" "end" - :when '(("SPC" "RET" "")) - :post-handlers '(sp-elixir-do-block-post-handler) - :unless '(sp-in-comment-p sp-in-string-p)) - (sp-local-pair "defmodule" "end" - :when '(("SPC" "RET" "")) - :post-handlers '(sp-elixir-do-block-post-handler) - :unless '(sp-in-comment-p sp-in-string-p)) - (sp-local-pair "fn" "end" - :when '(("SPC" "RET" "")) - :post-handlers '("| ")) - (sp-local-pair "if" "end" - :when '(("SPC" "RET" "")) - :post-handlers '(sp-elixir-do-block-post-handler) - :unless '(sp-in-comment-p sp-in-string-p)) - (sp-local-pair "unless" "end" - :when '(("SPC" "RET" "")) - :post-handlers '(sp-elixir-do-block-post-handler) - :unless '(sp-in-comment-p sp-in-string-p)) - (sp-local-pair "case" "end" - :when '(("SPC" "RET" "")) - :post-handlers '(sp-elixir-do-block-post-handler) - :unless '(sp-in-comment-p sp-in-string-p)) - (sp-local-pair "receive" "end" - :when '(("RET" "")) - :post-handlers '(sp-elixir-empty-do-block-post-handler)) - ) - -(provide 'smartparens-elixir) -;;; smartparens-elixir.el ends here diff --git a/elpa/smartparens-20201229.1937/smartparens-autoloads.el b/elpa/smartparens-20220623.1523/smartparens-autoloads.el similarity index 67% rename from elpa/smartparens-20201229.1937/smartparens-autoloads.el rename to elpa/smartparens-20220623.1523/smartparens-autoloads.el index 04931a77..b6b42bfb 100644 --- a/elpa/smartparens-20201229.1937/smartparens-autoloads.el +++ b/elpa/smartparens-20220623.1523/smartparens-autoloads.el @@ -1,4 +1,4 @@ -;;; smartparens-autoloads.el --- automatically extracted autoloads +;;; smartparens-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*- ;; ;;; Code: @@ -39,10 +39,19 @@ Initiate `smartparens-mode-map' with `sp-smartparens-bindings'." t nil) (autoload 'smartparens-mode "smartparens" "\ Toggle smartparens mode. -If called interactively, enable Smartparens mode if ARG is -positive, and disable it if ARG is zero or negative. If called -from Lisp, also enable the mode if ARG is omitted or nil, and -toggle it if ARG is `toggle'; disable the mode otherwise. +This is a minor mode. If called interactively, toggle the +`Smartparens mode' mode. If the prefix argument is positive, +enable the mode, and if it is zero or negative, disable the mode. + +If called from Lisp, toggle the mode if ARG is `toggle'. Enable +the mode if ARG is nil, omitted, or is a positive number. +Disable the mode if ARG is a negative number. + +To check whether the minor mode is enabled in the current buffer, +evaluate `smartparens-mode'. + +The mode's hook is called both when the mode is enabled and when +it is disabled. You can enable pre-set bindings by customizing `sp-base-key-bindings' variable. The current content of @@ -55,10 +64,20 @@ You can enable pre-set bindings by customizing (autoload 'smartparens-strict-mode "smartparens" "\ Toggle the strict smartparens mode. -If called interactively, enable Smartparens-Strict mode if ARG is -positive, and disable it if ARG is zero or negative. If called -from Lisp, also enable the mode if ARG is omitted or nil, and -toggle it if ARG is `toggle'; disable the mode otherwise. +This is a minor mode. If called interactively, toggle the +`Smartparens-Strict mode' mode. If the prefix argument is +positive, enable the mode, and if it is zero or negative, disable +the mode. + +If called from Lisp, toggle the mode if ARG is `toggle'. Enable +the mode if ARG is nil, omitted, or is a positive number. +Disable the mode if ARG is a negative number. + +To check whether the minor mode is enabled in the current buffer, +evaluate `smartparens-strict-mode'. + +The mode's hook is called both when the mode is enabled and when +it is disabled. When strict mode is active, `delete-char', `kill-word' and their backward variants will skip over the pair delimiters in order to @@ -87,13 +106,18 @@ or call the function `smartparens-global-strict-mode'.") (autoload 'smartparens-global-strict-mode "smartparens" "\ Toggle Smartparens-Strict mode in all buffers. -With prefix ARG, enable Smartparens-Global-Strict mode if ARG is positive; -otherwise, disable it. If called from Lisp, enable the mode if -ARG is omitted or nil. +With prefix ARG, enable Smartparens-Global-Strict mode if ARG is +positive; otherwise, disable it. + +If called from Lisp, toggle the mode if ARG is `toggle'. +Enable the mode if ARG is nil, omitted, or is a positive number. +Disable the mode if ARG is a negative number. Smartparens-Strict mode is enabled in all buffers where `turn-on-smartparens-strict-mode' would do it. -See `smartparens-strict-mode' for more information on Smartparens-Strict mode. + +See `smartparens-strict-mode' for more information on +Smartparens-Strict mode. \(fn &optional ARG)" t nil) @@ -118,11 +142,15 @@ or call the function `smartparens-global-mode'.") (autoload 'smartparens-global-mode "smartparens" "\ Toggle Smartparens mode in all buffers. With prefix ARG, enable Smartparens-Global mode if ARG is positive; -otherwise, disable it. If called from Lisp, enable the mode if -ARG is omitted or nil. +otherwise, disable it. + +If called from Lisp, toggle the mode if ARG is `toggle'. +Enable the mode if ARG is nil, omitted, or is a positive number. +Disable the mode if ARG is a negative number. Smartparens mode is enabled in all buffers where `turn-on-smartparens-mode' would do it. + See `smartparens-mode' for more information on Smartparens mode. \(fn &optional ARG)" t nil) @@ -151,10 +179,20 @@ of Emacs idle time if the point is immediately in front or after a pair. This mode works similarly to `show-paren-mode', but support custom pairs. -If called interactively, enable Show-Smartparens mode if ARG is -positive, and disable it if ARG is zero or negative. If called -from Lisp, also enable the mode if ARG is omitted or nil, and -toggle it if ARG is `toggle'; disable the mode otherwise. +This is a minor mode. If called interactively, toggle the +`Show-Smartparens mode' mode. If the prefix argument is +positive, enable the mode, and if it is zero or negative, disable +the mode. + +If called from Lisp, toggle the mode if ARG is `toggle'. Enable +the mode if ARG is nil, omitted, or is a positive number. +Disable the mode if ARG is a negative number. + +To check whether the minor mode is enabled in the current buffer, +evaluate `show-smartparens-mode'. + +The mode's hook is called both when the mode is enabled and when +it is disabled. \(fn &optional ARG)" t nil) @@ -172,13 +210,18 @@ or call the function `show-smartparens-global-mode'.") (autoload 'show-smartparens-global-mode "smartparens" "\ Toggle Show-Smartparens mode in all buffers. -With prefix ARG, enable Show-Smartparens-Global mode if ARG is positive; -otherwise, disable it. If called from Lisp, enable the mode if -ARG is omitted or nil. +With prefix ARG, enable Show-Smartparens-Global mode if ARG is +positive; otherwise, disable it. + +If called from Lisp, toggle the mode if ARG is `toggle'. +Enable the mode if ARG is nil, omitted, or is a positive number. +Disable the mode if ARG is a negative number. Show-Smartparens mode is enabled in all buffers where `turn-on-show-smartparens-mode' would do it. -See `show-smartparens-mode' for more information on Show-Smartparens mode. + +See `show-smartparens-mode' for more information on Show-Smartparens +mode. \(fn &optional ARG)" t nil) @@ -188,7 +231,7 @@ Turn on `show-smartparens-mode'." t nil) (autoload 'turn-off-show-smartparens-mode "smartparens" "\ Turn off `show-smartparens-mode'." t nil) -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "smartparens" '("smartparens-" "sp-"))) +(register-definition-prefixes "smartparens" '("smartparens-" "sp-")) ;;;*** @@ -196,7 +239,7 @@ Turn off `show-smartparens-mode'." t nil) ;;;;;; (0 0 0 0)) ;;; Generated autoloads from smartparens-clojure.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "smartparens-clojure" '("sp-clojure-prefix"))) +(register-definition-prefixes "smartparens-clojure" '("sp-clojure-prefix")) ;;;*** @@ -204,7 +247,7 @@ Turn off `show-smartparens-mode'." t nil) ;;;;;; (0 0 0 0)) ;;; Generated autoloads from smartparens-config.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "smartparens-config" '("sp-lisp-invalid-hyperlink-p"))) +(register-definition-prefixes "smartparens-config" '("sp-lisp-invalid-hyperlink-p")) ;;;*** @@ -212,7 +255,7 @@ Turn off `show-smartparens-mode'." t nil) ;;;;;; (0 0 0 0)) ;;; Generated autoloads from smartparens-crystal.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "smartparens-crystal" '("sp-crystal-"))) +(register-definition-prefixes "smartparens-crystal" '("sp-crystal-")) ;;;*** @@ -220,7 +263,7 @@ Turn off `show-smartparens-mode'." t nil) ;;;;;; (0 0 0 0)) ;;; Generated autoloads from smartparens-elixir.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "smartparens-elixir" '("sp-elixir-"))) +(register-definition-prefixes "smartparens-elixir" '("sp-elixir-")) ;;;*** @@ -228,7 +271,7 @@ Turn off `show-smartparens-mode'." t nil) ;;;;;; 0 0)) ;;; Generated autoloads from smartparens-ess.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "smartparens-ess" '("sp-ess-"))) +(register-definition-prefixes "smartparens-ess" '("sp-ess-")) ;;;*** @@ -236,7 +279,7 @@ Turn off `show-smartparens-mode'." t nil) ;;;;;; (0 0 0 0)) ;;; Generated autoloads from smartparens-haskell.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "smartparens-haskell" '("sp-"))) +(register-definition-prefixes "smartparens-haskell" '("sp-")) ;;;*** @@ -244,7 +287,7 @@ Turn off `show-smartparens-mode'." t nil) ;;;;;; 0 0 0)) ;;; Generated autoloads from smartparens-html.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "smartparens-html" '("sp-html-"))) +(register-definition-prefixes "smartparens-html" '("sp-html-")) ;;;*** @@ -252,7 +295,7 @@ Turn off `show-smartparens-mode'." t nil) ;;;;;; (0 0 0 0)) ;;; Generated autoloads from smartparens-latex.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "smartparens-latex" '("sp-latex-"))) +(register-definition-prefixes "smartparens-latex" '("sp-latex-")) ;;;*** @@ -260,7 +303,7 @@ Turn off `show-smartparens-mode'." t nil) ;;;;;; 0 0)) ;;; Generated autoloads from smartparens-lua.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "smartparens-lua" '("sp-lua-post-keyword-insert"))) +(register-definition-prefixes "smartparens-lua" '("sp-lua-post-keyword-insert")) ;;;*** @@ -268,7 +311,7 @@ Turn off `show-smartparens-mode'." t nil) ;;;;;; (0 0 0 0)) ;;; Generated autoloads from smartparens-markdown.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "smartparens-markdown" '("sp-"))) +(register-definition-prefixes "smartparens-markdown" '("sp-")) ;;;*** @@ -276,7 +319,7 @@ Turn off `show-smartparens-mode'." t nil) ;;;;;; 0 0)) ;;; Generated autoloads from smartparens-org.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "smartparens-org" '("sp-"))) +(register-definition-prefixes "smartparens-org" '("sp-")) ;;;*** @@ -284,7 +327,7 @@ Turn off `show-smartparens-mode'." t nil) ;;;;;; (0 0 0 0)) ;;; Generated autoloads from smartparens-python.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "smartparens-python" '("sp-python-"))) +(register-definition-prefixes "smartparens-python" '("sp-python-")) ;;;*** @@ -292,7 +335,7 @@ Turn off `show-smartparens-mode'." t nil) ;;;;;; 0 0)) ;;; Generated autoloads from smartparens-rst.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "smartparens-rst" '("sp-rst-point-after-backtick"))) +(register-definition-prefixes "smartparens-rst" '("sp-rst-point-after-backtick")) ;;;*** @@ -300,7 +343,7 @@ Turn off `show-smartparens-mode'." t nil) ;;;;;; 0 0 0)) ;;; Generated autoloads from smartparens-ruby.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "smartparens-ruby" '("sp-"))) +(register-definition-prefixes "smartparens-ruby" '("sp-")) ;;;*** @@ -308,7 +351,7 @@ Turn off `show-smartparens-mode'." t nil) ;;;;;; 0 0 0)) ;;; Generated autoloads from smartparens-rust.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "smartparens-rust" '("sp-"))) +(register-definition-prefixes "smartparens-rust" '("sp-")) ;;;*** @@ -316,7 +359,15 @@ Turn off `show-smartparens-mode'." t nil) ;;;;;; (0 0 0 0)) ;;; Generated autoloads from smartparens-scala.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "smartparens-scala" '("sp-scala-wrap-with-indented-newlines"))) +(register-definition-prefixes "smartparens-scala" '("sp-scala-wrap-with-indented-newlines")) + +;;;*** + +;;;### (autoloads nil "smartparens-swift" "smartparens-swift.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from smartparens-swift.el + +(register-definition-prefixes "smartparens-swift" '("sp-swift-")) ;;;*** @@ -324,7 +375,7 @@ Turn off `show-smartparens-mode'." t nil) ;;;;;; 0 0 0)) ;;; Generated autoloads from smartparens-text.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "smartparens-text" '("sp-text-mode-"))) +(register-definition-prefixes "smartparens-text" '("sp-text-mode-")) ;;;*** @@ -332,13 +383,13 @@ Turn off `show-smartparens-mode'." t nil) ;;;;;; (0 0 0 0)) ;;; Generated autoloads from sp-sublimetext-like.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "sp-sublimetext-like" '("sp-point-not-before-word"))) +(register-definition-prefixes "sp-sublimetext-like" '("sp-point-not-before-word")) ;;;*** -;;;### (autoloads nil nil ("smartparens-c.el" "smartparens-javascript.el" -;;;;;; "smartparens-ml.el" "smartparens-pkg.el" "smartparens-racket.el") -;;;;;; (0 0 0 0)) +;;;### (autoloads nil nil ("smartparens-c.el" "smartparens-go.el" +;;;;;; "smartparens-javascript.el" "smartparens-ml.el" "smartparens-pkg.el" +;;;;;; "smartparens-racket.el") (0 0 0 0)) ;;;*** diff --git a/elpa/smartparens-20201229.1937/smartparens-c.el b/elpa/smartparens-20220623.1523/smartparens-c.el similarity index 100% rename from elpa/smartparens-20201229.1937/smartparens-c.el rename to elpa/smartparens-20220623.1523/smartparens-c.el diff --git a/elpa/smartparens-20201229.1937/smartparens-clojure.el b/elpa/smartparens-20220623.1523/smartparens-clojure.el similarity index 100% rename from elpa/smartparens-20201229.1937/smartparens-clojure.el rename to elpa/smartparens-20220623.1523/smartparens-clojure.el diff --git a/elpa/smartparens-20201229.1937/smartparens-config.el b/elpa/smartparens-20220623.1523/smartparens-config.el similarity index 97% rename from elpa/smartparens-20201229.1937/smartparens-config.el rename to elpa/smartparens-20220623.1523/smartparens-config.el index 6e17e4b4..3b8e8f59 100644 --- a/elpa/smartparens-20201229.1937/smartparens-config.el +++ b/elpa/smartparens-20220623.1523/smartparens-config.el @@ -107,6 +107,7 @@ ID, ACTION, CONTEXT." (eval-after-load 'elixir-mode '(require 'smartparens-elixir)) (eval-after-load 'enh-ruby-mode '(require 'smartparens-ruby)) (eval-after-load 'ess '(require 'smartparens-ess)) +(eval-after-load 'go-mode '(require 'smartparens-go)) (eval-after-load 'haskell-interactive-mode '(require 'smartparens-haskell)) (eval-after-load 'haskell-mode '(require 'smartparens-haskell)) (--each sp--html-modes @@ -123,6 +124,7 @@ ID, ACTION, CONTEXT." (eval-after-load 'rust-mode '(require 'smartparens-rust)) (eval-after-load 'rustic '(require 'smartparens-rust)) (eval-after-load 'scala-mode '(require 'smartparens-scala)) +(eval-after-load 'swift-mode '(require 'smartparens-swift)) (eval-after-load 'tex-mode '(require 'smartparens-latex)) (eval-after-load 'text-mode '(require 'smartparens-text)) (eval-after-load 'tuareg '(require 'smartparens-ml)) diff --git a/elpa/smartparens-20201229.1937/smartparens-crystal.el b/elpa/smartparens-20220623.1523/smartparens-crystal.el similarity index 100% rename from elpa/smartparens-20201229.1937/smartparens-crystal.el rename to elpa/smartparens-20220623.1523/smartparens-crystal.el diff --git a/elpa/smartparens-20220623.1523/smartparens-elixir.el b/elpa/smartparens-20220623.1523/smartparens-elixir.el new file mode 100644 index 00000000..820c8df1 --- /dev/null +++ b/elpa/smartparens-20220623.1523/smartparens-elixir.el @@ -0,0 +1,214 @@ +;;; smartparens-elixir.el --- Configuration for Elixir. -*- lexical-binding: t; -*- + +;; Copyright (C) 2017 Matúš Goljer + +;; Author: Matúš Goljer +;; Maintainer: Matúš Goljer +;; Version: 0.0.1 +;; Created: 15th January 2017 +;; Keywords: languages + +;; This program 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. + +;; This program 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 this program. If not, see . + +;;; Commentary: + +;;; Code: + +(require 'smartparens) + +(--each '(elixir-mode) + (add-to-list 'sp-sexp-suffix (list it 'regexp ""))) + +(defvar sp-elixir-builtins + (regexp-opt '("defmodule" "defmacro" "defmacrop" "def" "defp" "defimpl" + "if" "unless" "case" "cond" + "with" "for" "receive" "try" "quote") + 'words) + "Regexp that matches opening delimiters for definitions. + +Definitions require either comma followed by \"do:\" keyword +list, or \"do\" \"end\" block delimiters.") + +(defun sp-elixir-skip-do-keyword-p-fun (bodyless-ms keywords) + "Define a function that will test if any of keywords is part of definition. + +BODYLESS-MS is an keyword that supports bodyless form, like +\"def\" or \"defp\". KEYWORDS is additional regexp for keywords +to check in order to skip definition. + +This line-based search terminates early if any of +`sp-elixir-builtins' were found." + (lambda (ms _mb _me) + (unless (or (equal "end" ms) (equal "do" ms)) + (or (string-match-p keywords (thing-at-point 'line t)) + (catch 'definition + (save-excursion + (while t + (forward-line 1) + (let ((line (string-trim-left (thing-at-point 'line t)))) + (unless (string-match-p "\\s-*#" line) ;; skip full line comments + (cond ((eq (string-match-p "\\bend\\b" line) 0) + (throw 'definition nil)) + ;; if BODYLESS-MS was supplied, means we're trying + ;; to match bodyless form + ((and bodyless-ms (eq (string-match-p bodyless-ms line) 0)) + (throw 'definition t)) + ;; Terminate the search if we find any of + ;; `sp-elixir-builtins' as we're usually + ;; searching for "end" + ((eq (string-match-p sp-elixir-builtins line) 0) + (throw 'definition nil)) + ;; "do:" keyword means that there will be no + ;; "end" so we skip this definition + ((eq (string-match-p keywords line) 0) + (throw 'definition t)) + ((eobp) (throw 'definition nil)))))))))))) + +;; Special functions for SKIP-MATCH parameter of `sp-pair' + +(fset 'sp-elixir-skip-keyword-list-def-p (sp-elixir-skip-do-keyword-p-fun nil "\\bdo:")) +(fset 'sp-elixir-skip-bodyless-def-p (sp-elixir-skip-do-keyword-p-fun "\\bdef\\b" "\\bdo:")) +(fset 'sp-elixir-skip-bodyless-defp-p (sp-elixir-skip-do-keyword-p-fun "\\bdefp\\b" "\\bdo:")) +(fset 'sp-elixir-skip-for-in-defimpl-p (sp-elixir-skip-do-keyword-p-fun nil "\\b\\(defimpl\\b\\|do:\\)")) + +(defun sp-elixir-skip-def-p (ms _mb _me) + "Test if \"do\" is part of definition. + +MS must be \"do\" keyword. + +Definitions in Elixir can contain any of `sp-elixir-builtins' +followed with \"do\" keyword and closed with \"end\" keyword, +which may not be on the same line." + (when (equal "do" ms) + (save-excursion + (catch 'definition + (while t + (let ((line (string-trim-left (thing-at-point 'line t)))) + (unless (string-match-p "\\s-*#" line) + (cond ((eq (string-match-p sp-elixir-builtins line) 0) + (throw 'definition t)) + ((eq (string-match-p "\\bend\\b" line) 0) + (throw 'definition nil)) + ((bobp) (throw 'definition nil))))) + (forward-line -1)))))) + +(defun sp-elixir-do-block-post-handler (_id action _context) + "Insert \"do\" keyword and indent the new block. +ID, ACTION, CONTEXT." + (when (eq action 'insert) + (let ((m (make-marker))) + (save-excursion + (forward-word) ;; over the "end" + (move-marker m (point))) + (save-excursion (newline)) + (save-excursion (insert " do")) + (indent-region (line-beginning-position) m) + (move-marker m nil nil)))) + +(defun sp-elixir-empty-do-block-post-handler (_id action _context) + "Insert empty \"do\" keyword and indent the new block. + +This is used for receive-do-end expression. +ID, ACTION, CONTEXT." + (when (eq action 'insert) + (let ((m (make-marker))) + (save-excursion + (forward-word) ;; over the "end" + (move-marker m (point))) + (save-excursion + (forward-line -1) + (end-of-line) + (insert " do")) + (save-excursion (newline)) + (indent-region (line-beginning-position) m) + (indent-according-to-mode) + (move-marker m nil nil)))) + +(sp-with-modes 'elixir-mode + (sp-local-pair "do" "end" + :when '(("SPC" "RET" "")) + :skip-match 'sp-elixir-skip-def-p + :unless '(sp-in-comment-p sp-in-string-p)) + (sp-local-pair "def" "end" + :when '(("SPC" "RET" "")) + :post-handlers '(sp-elixir-do-block-post-handler) + :skip-match 'sp-elixir-skip-bodyless-def-p + :unless '(sp-in-comment-p sp-in-string-p)) + (sp-local-pair "defp" "end" + :when '(("SPC" "RET" "")) + :post-handlers '(sp-elixir-do-block-post-handler) + :skip-match 'sp-elixir-skip-bodyless-defp-p + :unless '(sp-in-comment-p sp-in-string-p)) + (sp-local-pair "defmodule" "end" + :when '(("SPC" "RET" "")) + :post-handlers '(sp-elixir-do-block-post-handler) + :skip-match 'sp-elixir-skip-keyword-list-def-p + :unless '(sp-in-comment-p sp-in-string-p)) + (sp-local-pair "defimpl" "end" + :when '(("SPC" "RET" "")) + :post-handlers '(sp-elixir-do-block-post-handler) + :skip-match 'sp-elixir-skip-keyword-list-def-p + :unless '(sp-in-comment-p sp-in-string-p)) + (sp-local-pair "fn" "end" + :when '(("SPC" "RET" "")) + :post-handlers '("| ")) + (sp-local-pair "if" "end" + :when '(("SPC" "RET" "")) + :post-handlers '(sp-elixir-do-block-post-handler) + :skip-match 'sp-elixir-skip-keyword-list-def-p + :unless '(sp-in-comment-p sp-in-string-p)) + (sp-local-pair "for" "end" + :when '(("SPC" "RET" "")) + :post-handlers '(sp-elixir-do-block-post-handler) + :skip-match 'sp-elixir-skip-for-in-defimpl-p + :unless '(sp-in-comment-p sp-in-string-p)) + (sp-local-pair "cond" "end" + :when '(("SPC" "RET" "")) + :post-handlers '(sp-elixir-do-block-post-handler) + :unless '(sp-in-comment-p sp-in-string-p)) + (sp-local-pair "with" "end" + :when '(("SPC" "RET" "")) + :post-handlers '(sp-elixir-do-block-post-handler) + :unless '(sp-in-comment-p sp-in-string-p)) + (sp-local-pair "unless" "end" + :when '(("SPC" "RET" "")) + :post-handlers '(sp-elixir-do-block-post-handler) + :skip-match 'sp-elixir-skip-keyword-list-def-p + :unless '(sp-in-comment-p sp-in-string-p)) + (sp-local-pair "case" "end" + :when '(("SPC" "RET" "")) + :post-handlers '(sp-elixir-do-block-post-handler) + :skip-match 'sp-elixir-skip-keyword-list-def-p + :unless '(sp-in-comment-p sp-in-string-p)) + (sp-local-pair "try" "end" + :when '(("SPC" "RET" "")) + :post-handlers '(sp-elixir-do-block-post-handler) + :skip-match 'sp-elixir-skip-keyword-list-def-p + :unless '(sp-in-comment-p sp-in-string-p)) + (sp-local-pair "receive" "end" + :when '(("RET" "")) + :skip-match 'sp-elixir-skip-keyword-list-def-p + :post-handlers '(sp-elixir-empty-do-block-post-handler)) + (sp-local-pair "quote" "end" + :when '(("RET" "")) + :skip-match 'sp-elixir-skip-keyword-list-def-p + :post-handlers '(sp-elixir-empty-do-block-post-handler)) + (sp-local-pair "defmacro" "end" + :when '(("RET" "")) + :skip-match 'sp-elixir-skip-keyword-list-def-p + :post-handlers '(sp-elixir-empty-do-block-post-handler)) + ) + +(provide 'smartparens-elixir) +;;; smartparens-elixir.el ends here diff --git a/elpa/smartparens-20201229.1937/smartparens-ess.el b/elpa/smartparens-20220623.1523/smartparens-ess.el similarity index 97% rename from elpa/smartparens-20201229.1937/smartparens-ess.el rename to elpa/smartparens-20220623.1523/smartparens-ess.el index 15b923ea..25ba4558 100644 --- a/elpa/smartparens-20201229.1937/smartparens-ess.el +++ b/elpa/smartparens-20220623.1523/smartparens-ess.el @@ -155,7 +155,7 @@ ARGS." (defun sp-ess-roxy-str-p (_id action _context) "Test if looking back at `ess-roxy-re'. ID, ACTION, CONTEXT." - (when (and (boundp 'ess-roxy-re) (eq action 'insert)) + (when (and (bound-and-true-p ess-roxy-re) (eq action 'insert)) (sp--looking-back-p ess-roxy-re))) (sp-with-modes 'ess-mode @@ -229,6 +229,9 @@ ID, ACTION, CONTEXT." :post-handlers '((sp-ess-open-sexp-indent "M-j")) :suffix "{[^}]*}")) +(sp-with-modes '(ess-r-mode inferior-ess-r-mode) + (sp-local-pair "\\(" nil + :unless '(:add sp-in-code-p))) (provide 'smartparens-ess) ;;; smartparens-ess ends here diff --git a/elpa/smartparens-20220623.1523/smartparens-go.el b/elpa/smartparens-20220623.1523/smartparens-go.el new file mode 100644 index 00000000..7479a4cc --- /dev/null +++ b/elpa/smartparens-20220623.1523/smartparens-go.el @@ -0,0 +1,60 @@ +;;; smartparens-go.el --- Additional configuration for go-mode. -*- lexical-binding: t; -*- + +;; Copyright (C) 2022 Jimmy Yuen Ho Wong + +;; Created: 10 June 2022 +;; 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 . + +;;; Commentary: + +;; This file provides some additional configuration for Go. To use +;; it, simply add: +;; +;; (require 'smartparens-config) +;; +;; alternatively, you can explicitly load these preferences: +;; +;; (require 'smartparens-go) +;; +;; in your configuration. + +;; For more info, see github readme at +;; https://github.com/Fuco1/smartparens + +;;; Code: +(require 'smartparens) + +(declare-function go-mode "go-mode") + +(sp-with-modes 'go-mode + (sp-local-pair "{" nil :post-handlers '(("||\n[i]" "RET"))) + (sp-local-pair "/*" "*/" :post-handlers '(("| " "SPC") + ("* ||\n[i]" "RET")))) + +;; Go has no sexp suffices. This fixes slurping +;; (|foo).bar -> (foo.bar) +(add-to-list 'sp-sexp-suffix (list #'go-mode 'regexp "")) + +(provide 'smartparens-go) + +;;; smartparens-go.el ends here diff --git a/elpa/smartparens-20201229.1937/smartparens-haskell.el b/elpa/smartparens-20220623.1523/smartparens-haskell.el similarity index 100% rename from elpa/smartparens-20201229.1937/smartparens-haskell.el rename to elpa/smartparens-20220623.1523/smartparens-haskell.el diff --git a/elpa/smartparens-20201229.1937/smartparens-html.el b/elpa/smartparens-20220623.1523/smartparens-html.el similarity index 100% rename from elpa/smartparens-20201229.1937/smartparens-html.el rename to elpa/smartparens-20220623.1523/smartparens-html.el diff --git a/elpa/smartparens-20201229.1937/smartparens-javascript.el b/elpa/smartparens-20220623.1523/smartparens-javascript.el similarity index 100% rename from elpa/smartparens-20201229.1937/smartparens-javascript.el rename to elpa/smartparens-20220623.1523/smartparens-javascript.el diff --git a/elpa/smartparens-20201229.1937/smartparens-latex.el b/elpa/smartparens-20220623.1523/smartparens-latex.el similarity index 100% rename from elpa/smartparens-20201229.1937/smartparens-latex.el rename to elpa/smartparens-20220623.1523/smartparens-latex.el diff --git a/elpa/smartparens-20201229.1937/smartparens-lua.el b/elpa/smartparens-20220623.1523/smartparens-lua.el similarity index 100% rename from elpa/smartparens-20201229.1937/smartparens-lua.el rename to elpa/smartparens-20220623.1523/smartparens-lua.el diff --git a/elpa/smartparens-20201229.1937/smartparens-markdown.el b/elpa/smartparens-20220623.1523/smartparens-markdown.el similarity index 100% rename from elpa/smartparens-20201229.1937/smartparens-markdown.el rename to elpa/smartparens-20220623.1523/smartparens-markdown.el diff --git a/elpa/smartparens-20201229.1937/smartparens-ml.el b/elpa/smartparens-20220623.1523/smartparens-ml.el similarity index 91% rename from elpa/smartparens-20201229.1937/smartparens-ml.el rename to elpa/smartparens-20220623.1523/smartparens-ml.el index 7960c5f1..ee066deb 100644 --- a/elpa/smartparens-20201229.1937/smartparens-ml.el +++ b/elpa/smartparens-20220623.1523/smartparens-ml.el @@ -60,7 +60,11 @@ (sp-local-pair "`" nil :actions nil) ;; Disable ' because it is used in value names and types (sp-local-pair "'" nil :actions nil) - (sp-local-pair "(*" "*)" )) + (sp-local-pair "{|" "|}" ) ;; multi-line string + (sp-local-pair "[|" "|]" ) ;; array + (sp-local-pair "sig" "end" ) ;; signature + (sp-local-pair "module" "end" ) ;; module + (sp-local-pair "(*" "*)" )) ;; comment ;; Ignore punctuation, so we can split ~(foo) to ~foo. (add-to-list 'sp-sexp-prefix (list 'tuareg-mode 'syntax "")) diff --git a/elpa/smartparens-20201229.1937/smartparens-org.el b/elpa/smartparens-20220623.1523/smartparens-org.el similarity index 100% rename from elpa/smartparens-20201229.1937/smartparens-org.el rename to elpa/smartparens-20220623.1523/smartparens-org.el diff --git a/elpa/smartparens-20201229.1937/smartparens-pkg.el b/elpa/smartparens-20220623.1523/smartparens-pkg.el similarity index 74% rename from elpa/smartparens-20201229.1937/smartparens-pkg.el rename to elpa/smartparens-20220623.1523/smartparens-pkg.el index 9645fa2b..a2b66c5e 100644 --- a/elpa/smartparens-20201229.1937/smartparens-pkg.el +++ b/elpa/smartparens-20220623.1523/smartparens-pkg.el @@ -1,7 +1,7 @@ -(define-package "smartparens" "20201229.1937" "Automatic insertion, wrapping and paredit-like navigation with user defined pairs." +(define-package "smartparens" "20220623.1523" "Automatic insertion, wrapping and paredit-like navigation with user defined pairs." '((dash "2.13.0") (cl-lib "0.3")) - :commit "63695c64233d215a92bf08e762f643cdb595bdd9" :authors + :commit "8b6a3c3b31afd5b3f846e09859b5fc62eb06e7c1" :authors '(("Matus Goljer" . "matus.goljer@gmail.com")) :maintainer '("Matus Goljer" . "matus.goljer@gmail.com") diff --git a/elpa/smartparens-20201229.1937/smartparens-python.el b/elpa/smartparens-20220623.1523/smartparens-python.el similarity index 86% rename from elpa/smartparens-20201229.1937/smartparens-python.el rename to elpa/smartparens-20220623.1523/smartparens-python.el index 4ad3cf2b..93698ce5 100644 --- a/elpa/smartparens-20201229.1937/smartparens-python.el +++ b/elpa/smartparens-20220623.1523/smartparens-python.el @@ -52,8 +52,13 @@ :group 'smartparens) (defcustom sp-python-insert-colon-in-function-definitions t - "Whether to auto-insert a colon when parens insertion is -triggered while typing a function definition" + "If non-nil, auto-insert a colon after parens insertion in definition. + +Supported definitions are: + +- def +- async def +- class" :group 'smartparens-python :type 'boolean) @@ -64,14 +69,26 @@ triggered while typing a function definition" (add-to-list 'sp-sexp-suffix (list it 'regexp ""))) (defun sp-python-maybe-add-colon-python (_id action _context) - "Adds a colon after parentheses in a python function definition" + "Adds a colon after parentheses in a python definition. + +Works for (async) def forms and class forms. + +See also the option `sp-python-insert-colon-in-function-definitions'." ;; here, caret supposed to be in between parens, i.e. (|) (when (and sp-python-insert-colon-in-function-definitions (eq action 'insert) (looking-at ")\\s-*$") (save-excursion (goto-char (line-beginning-position)) - (re-search-forward "^\\s-*def\\b" (line-end-position)))) + (re-search-forward + (rx bol + (* (syntax whitespace)) + (? "async") + (* (syntax whitespace)) + (or "def" "class") + word-boundary) + (line-end-position) + t))) (save-excursion (forward-char) ;; skip closing paren (insert ":")))) diff --git a/elpa/smartparens-20201229.1937/smartparens-racket.el b/elpa/smartparens-20220623.1523/smartparens-racket.el similarity index 100% rename from elpa/smartparens-20201229.1937/smartparens-racket.el rename to elpa/smartparens-20220623.1523/smartparens-racket.el diff --git a/elpa/smartparens-20201229.1937/smartparens-rst.el b/elpa/smartparens-20220623.1523/smartparens-rst.el similarity index 100% rename from elpa/smartparens-20201229.1937/smartparens-rst.el rename to elpa/smartparens-20220623.1523/smartparens-rst.el diff --git a/elpa/smartparens-20201229.1937/smartparens-ruby.el b/elpa/smartparens-20220623.1523/smartparens-ruby.el similarity index 100% rename from elpa/smartparens-20201229.1937/smartparens-ruby.el rename to elpa/smartparens-20220623.1523/smartparens-ruby.el diff --git a/elpa/smartparens-20201229.1937/smartparens-rust.el b/elpa/smartparens-20220623.1523/smartparens-rust.el similarity index 100% rename from elpa/smartparens-20201229.1937/smartparens-rust.el rename to elpa/smartparens-20220623.1523/smartparens-rust.el diff --git a/elpa/smartparens-20201229.1937/smartparens-scala.el b/elpa/smartparens-20220623.1523/smartparens-scala.el similarity index 97% rename from elpa/smartparens-20201229.1937/smartparens-scala.el rename to elpa/smartparens-20220623.1523/smartparens-scala.el index 7e79016d..96f8c7ef 100644 --- a/elpa/smartparens-20201229.1937/smartparens-scala.el +++ b/elpa/smartparens-20220623.1523/smartparens-scala.el @@ -56,6 +56,7 @@ (defun sp-scala-wrap-with-indented-newlines (_1 action _2) "Post handler for the wrap ACTION, putting the region on indented newlines." (when (eq action 'wrap) + (indent-for-tab-command) (sp-get sp-last-wrapped-region (let ((beg :beg-in) (end :end-in)) @@ -76,5 +77,7 @@ ("| " "SPC") sp-scala-wrap-with-indented-newlines)) +(sp-local-pair 'scala-mode "\"\"\"" "\"\"\"") + (provide 'smartparens-scala) ;;; smartparens-scala.el ends here diff --git a/elpa/smartparens-20220623.1523/smartparens-swift.el b/elpa/smartparens-20220623.1523/smartparens-swift.el new file mode 100644 index 00000000..a1efab10 --- /dev/null +++ b/elpa/smartparens-20220623.1523/smartparens-swift.el @@ -0,0 +1,117 @@ +;;; smartparens-swift.el --- Additional configuration for Swift language buffers. -*- lexical-binding: t; -*- + +;; Copyright (C) 2015 Wilfred Hughes, +;; 2022 Josh Caswell + +;; Created: 4 April 2022 +;; 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 . + +;;; Commentary: + +;; This file provides some additional configuration for Swift. To use +;; it, simply add: +;; +;; (require 'smartparens-config) +;; +;; alternatively, you can explicitly load these preferences: +;; +;; (require 'smartparens-swift) +;; +;; in your configuration. + +;; For more info, see github readme at +;; https://github.com/Fuco1/smartparens + +;;; Code: +(require 'smartparens) + +(declare-function swift-mode "swift-mode") + +(defun sp-swift-skip-match-angle-bracket (_ms _mb me) + "Non-nil if we should ignore the bracket as valid delimiter." + (save-excursion + (goto-char me) + (let ((on-fn-return-type + (sp--looking-back-p (rx "->") nil)) + (on-range-operator + (sp--looking-back-p (rx "..<") nil)) + (on-comparison + (sp--looking-back-p (rx (or + (seq space "<") + (seq space ">") + (seq space "<<") + (seq space ">>"))) + nil))) + (or on-comparison on-fn-return-type on-range-operator)))) + +(defun sp-swift-filter-angle-brackets (_id action context) + "Non-nil if we should allow ID's ACTION in CONTEXT for angle brackets." + ;; See the docstring for `sp-pair' for the possible values of ID, + ;; ACTION and CONTEXT. + (cond + ;; Inside strings, don't do anything with < or >. + ((eq context 'string) + nil) + ((or (eq context 'comment) + (eq context 'code)) + (let ((on-fn-return-type + (looking-back (rx "->") nil)) + (on-range-operator + (looking-back (rx "..<") nil)) + (on-comparison + (looking-back (rx (or + (seq space "<") + (seq space ">") + (seq space "<<") + (seq space ">>"))) + nil))) + (cond + ;; Only insert a matching > if we're not looking at one of the operators. + ((eq action 'insert) + (and (not on-comparison) (not on-fn-return-type) (not on-range-operator))) + ;; Allow wrapping in a pair if the region is active and we're not on a + ;; range operator. + ((eq action 'wrap) + (not on-range-operator)) + ;; When pressing >, autoskip if we're not looking at one of the + ;; operators. + ((eq action 'autoskip) + (and (not on-comparison) (not on-fn-return-type) (not on-range-operator))) + ;; Allow navigation, highlighting and strictness checks if it's + ;; not one of the operators. + ((eq action 'navigate) + (and (not on-comparison) (not on-fn-return-type) (not on-range-operator)))))))) + +(sp-with-modes '(swift-mode) + (sp-local-pair "<" ">" + :when '(sp-swift-filter-angle-brackets) + :skip-match 'sp-swift-skip-match-angle-bracket) + (sp-local-pair "\"\"\"" "\"\"\"")) + +;; Swift has no sexp suffices. This fixes slurping +;; (|foo).bar -> (foo.bar) +(add-to-list 'sp-sexp-suffix (list #'swift-mode 'regexp "")) + +(provide 'smartparens-swift) + +;;; smartparens-swift.el ends here diff --git a/elpa/smartparens-20201229.1937/smartparens-text.el b/elpa/smartparens-20220623.1523/smartparens-text.el similarity index 100% rename from elpa/smartparens-20201229.1937/smartparens-text.el rename to elpa/smartparens-20220623.1523/smartparens-text.el diff --git a/elpa/smartparens-20201229.1937/smartparens.el b/elpa/smartparens-20220623.1523/smartparens.el similarity index 99% rename from elpa/smartparens-20201229.1937/smartparens.el rename to elpa/smartparens-20220623.1523/smartparens.el index 88e10daf..fd580645 100644 --- a/elpa/smartparens-20201229.1937/smartparens.el +++ b/elpa/smartparens-20220623.1523/smartparens.el @@ -128,7 +128,11 @@ better orientation." sp-use-paredit-bindings sp-use-smartparens-bindings )) - (commands (cl-loop for i in (cdr (assoc-string (file-truename (locate-library "smartparens")) load-history)) + (commands (cl-loop for i in (cdr + (assoc-string + (file-truename (locate-library "smartparens")) + (--map (cons (file-truename (car it)) (cdr it)) + load-history))) if (and (consp i) (eq (car i) 'defun) (commandp (cdr i))) collect (cdr i)))) (with-current-buffer (get-buffer-create "*Smartparens cheat sheet*") @@ -246,11 +250,12 @@ function will be considered." (and sp-backward-bound-fn (funcall sp-backward-bound-fn))) +(defvaralias 'sp-keymap 'smartparens-mode-map) +(make-obsolete-variable 'sp-keymap 'smartparens-mode-map "2015-01-01") + ;;;###autoload (defvar smartparens-mode-map (make-sparse-keymap) "Keymap used for `smartparens-mode'.") -(defvaralias 'sp-keymap 'smartparens-mode-map) -(make-obsolete-variable 'sp-keymap 'smartparens-mode-map "2015-01-01") (defvar sp-paredit-bindings '( ("C-M-f" . sp-forward-sexp) ;; navigation @@ -565,6 +570,8 @@ Symbol is defined as a chunk of text recognized by common-lisp-mode emacs-lisp-mode eshell-mode + fennel-mode + fennel-repl-mode geiser-repl-mode gerbil-mode inf-clojure-mode @@ -579,6 +586,7 @@ Symbol is defined as a chunk of text recognized by scheme-interaction-mode scheme-mode slime-repl-mode + sly-mrepl-mode stumpwm-mode ) "List of Lisp-related modes." @@ -756,15 +764,15 @@ after the smartparens indicator in the mode list." (progn (unless smartparens-mode (smartparens-mode 1)) - (unless (-find-indices (lambda (it) (eq (car it) 'smartparens-strict-mode)) minor-mode-overriding-map-alist) - (setq minor-mode-overriding-map-alist - (cons `(smartparens-strict-mode . ,smartparens-strict-mode-map) minor-mode-overriding-map-alist))) + (unless (assq 'smartparens-strict-mode minor-mode-overriding-map-alist) + (push `(smartparens-strict-mode . ,smartparens-strict-mode-map) + minor-mode-overriding-map-alist)) (put 'sp-backward-delete-char 'delete-selection 'sp--delete-selection-supersede-p) (put 'sp-delete-char 'delete-selection 'sp--delete-selection-supersede-p) (add-hook 'self-insert-uses-region-functions 'sp--self-insert-uses-region-strict-p nil 'local) (setq sp-autoskip-closing-pair 'always)) (setq minor-mode-overriding-map-alist - (-remove (lambda (it) (eq (car it) 'smartparens-strict-mode)) minor-mode-overriding-map-alist)) + (assq-delete-all 'smartparens-strict-mode minor-mode-overriding-map-alist)) (put 'sp-backward-delete-char 'delete-selection 'supersede) (put 'sp-delete-char 'delete-selection 'supersede) (remove-hook 'self-insert-uses-region-functions 'sp--self-insert-uses-region-strict-p 'local) @@ -779,6 +787,7 @@ after the smartparens indicator in the mode list." :group 'smartparens) (defcustom sp-ignore-modes-list '( + minibuffer-mode minibuffer-inactive-mode ) "Modes where smartparens mode is inactive if allowed globally." @@ -815,7 +824,9 @@ that depend on the active `major-mode'." (setq sp-escape-char (string char)))) (unless sp-comment-char (when (= ?< (char-syntax char)) - (setq sp-comment-char (string char)))))) + (setq sp-comment-char (string char))))) + ;; in case no escape syntax is found, just assume the backspace + (unless sp-escape-char (setq sp-escape-char "\\"))) (defun sp--maybe-init () "Initialize the buffer if it is not already initialized. @@ -842,14 +853,13 @@ See `sp--init'." This commands load all the parent major mode definitions and merges them into current buffer's `sp-local-pairs'." - (let ((parent-modes (-fix (lambda (x) - (--if-let (get (car x) 'derived-mode-parent) - (cons it x) - x)) - (list major-mode)))) - ;; Combine all the definitions from the most ancient parent to the - ;; most recent parent - (--each parent-modes (sp-update-local-pairs it)))) + ;; Combine all the definitions from the most ancient parent to the + ;; most recent parent + (-each (nreverse + (--unfold (when it + (cons it (get it 'derived-mode-parent))) + major-mode)) + #'sp-update-local-pairs)) (defun sp-update-local-pairs (configuration) "Update `sp-local-pairs' with CONFIGURATION. @@ -2097,27 +2107,25 @@ The list OLD-PAIR must not be nil." (defun sp--merge-pairs (old-pair new-pair) "Merge OLD-PAIR and NEW-PAIR. This modifies the OLD-PAIR by side effect." - (let ((ind 0)) - (--each new-pair - (when (= 0 (% ind 2)) - (sp--merge-prop it new-pair old-pair)) - (setq ind (1+ ind)))) + (--each new-pair + ;; In plists, items at even positions are keys + (when (= 0 (% it-index 2)) + (sp--merge-prop it new-pair old-pair))) old-pair) (defun sp--update-pair (new-pair old-pair) "Copy properties from NEW-PAIR to OLD-PAIR. The list OLD-PAIR must not be nil." - (let ((ind 0)) - (--each new-pair - (when (= 0 (% ind 2)) - (when (or (not (plist-get old-pair it)) - ;; HACK: we don't want to overwrite list properties - ;; that aren't just :add with :add because this - ;; would break the "idempotency". - (not (equal '(:add) (plist-get new-pair it)))) - (plist-put old-pair it (plist-get new-pair it)))) - (setq ind (1+ ind)))) + (--each new-pair + ;; In plists, items at even positions are keys + (when (= 0 (% it-index 2)) + (when (or (not (plist-get old-pair it)) + ;; HACK: we don't want to overwrite list properties + ;; that aren't just :add with :add because this + ;; would break the "idempotency". + (not (equal '(:add) (plist-get new-pair it)))) + (plist-put old-pair it (plist-get new-pair it))))) old-pair) (defun sp--update-pair-list (pair mode) @@ -2154,24 +2162,21 @@ old definition with values from PAIR." If PROP is non-nil, return the value of that property instead." (let ((pair (sp--get-pair open list))) - (if prop - (cond - ((eq prop :op-l) - (length (plist-get pair :open))) - ((eq prop :cl-l) - (length (plist-get pair :close))) - ((eq prop :len) - (+ (length (plist-get pair :open)) (length (plist-get pair :close)))) - ((eq prop :post-handlers) - (--filter (not (listp it)) (plist-get pair prop))) - ((eq prop :post-handlers-cond) - (--filter (listp it) (plist-get pair :post-handlers))) - ((eq prop :when) - (--filter (not (listp it)) (plist-get pair :when))) - ((eq prop :when-cond) - (-flatten (-concat (--filter (listp it) (plist-get pair :when))))) - (t (plist-get pair prop))) - pair))) + (cl-case prop + ((nil) pair) + (:op-l (length (plist-get pair :open))) + (:cl-l (length (plist-get pair :close))) + (:len (+ (length (plist-get pair :open)) + (length (plist-get pair :close)))) + (:post-handlers + (-remove #'listp (plist-get pair :post-handlers))) + (:post-handlers-cond + (-filter #'listp (plist-get pair :post-handlers))) + (:when + (-remove #'listp (plist-get pair :when))) + (:when-cond + (-flatten (-concat (-filter #'listp (plist-get pair :when))))) + (t (plist-get pair prop))))) (defun sp-get-pair-definition (open mode &optional prop) "Get the definition of pair identified by OPEN. @@ -2950,9 +2955,10 @@ This predicate is only tested on \"insert\" action." (defun sp-char-escaped-p (_id action _context) "Return non-nil if character before point is escaped with \\." (when (eq action 'insert) - (save-excursion - (backward-char 1) - (looking-back "\\\\" 1)))) + (unless (= (point) (point-min)) + (save-excursion + (backward-char 1) + (looking-back "\\\\" 1))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -3668,7 +3674,19 @@ delimiter insertion separately." ;; do not escape if we are looking at a closing ;; delimiter, that means we closed an opened string, ;; most likely. - (sp--buffer-is-string-balanced-p)) + (sp--buffer-is-string-balanced-p) + ;; in some text modes like org-mode which do not + ;; respect escapes, an "escaped" quote will still + ;; behave as regular quote, but we want to ignore it to + ;; be logically consistent. This will prevent a buffer + ;; with \" followed by newly inserted " auto-escaping + ;; the inserted quotes (which actually closes the + ;; string and makes the buffer balanced) + (save-excursion + (backward-char (length open)) + (-when-let (string-start (nth 8 (sp--syntax-ppss))) + (goto-char string-start) + (not (sp-char-is-escaped-p))))) (sp--escape-region (list open) (- (point) (length open)) (point))))) ;; kept to not break people's config... remove later @@ -4145,11 +4163,11 @@ just-inserted character." position of point. If the point is inside an empty pair, automatically delete both. That -is, [(|) turns to [|, [\{|\} turns to [|. Can be disabled by setting +is, [(|) turns to [|, [{|} turns to [|. Can be disabled by setting `sp-autodelete-pair' to nil. If the point is behind a closing pair or behind an opening pair delete -it as a whole. That is, \{\}| turns to \{|, \{| turns to |. Can be +it as a whole. That is, {}| turns to {|, {| turns to |. Can be disabled by setting `sp-autodelete-closing-pair' and `sp-autodelete-opening-pair' to nil. @@ -8388,25 +8406,18 @@ Examples: (interactive "P") (cond ((equal arg '(4)) - (-when-let (items (sp-get-list-items)) - (let ((op (sp-get (car items) :op)) - (cl (sp-get (car items) :cl)) - (beg (sp-get (car items) :beg)) - (end (sp-get (car items) :end))) - (!cdr items) - (setq items (nreverse items)) + (-when-let ((first-item . rest-items) (sp-get-list-items)) + (sp-get first-item (save-excursion - (goto-char end) - (delete-char (- (length cl))) - (while items - (sp-get (car items) - (goto-char :end) - (insert cl) - (goto-char :beg) - (insert op)) - (!cdr items)) - (goto-char beg) - (delete-char (length op)))))) + (goto-char :end) + (delete-char (- (length :cl))) + (--each (nreverse rest-items) + (goto-char (sp-get it :end)) + (insert :cl) + (goto-char (sp-get it :beg)) + (insert :op)) + (goto-char :beg) + (delete-char (length :op)))))) (t (let ((should-split-as-string (and sp-split-sexp-always-split-as-string diff --git a/elpa/smartparens-20201229.1937/sp-sublimetext-like.el b/elpa/smartparens-20220623.1523/sp-sublimetext-like.el similarity index 100% rename from elpa/smartparens-20201229.1937/sp-sublimetext-like.el rename to elpa/smartparens-20220623.1523/sp-sublimetext-like.el -- 2.47.3