diff options
author | William Carroll <wpcarro@gmail.com> | 2019-01-13T19·33-0500 |
---|---|---|
committer | William Carroll <wpcarro@gmail.com> | 2019-01-13T19·45-0500 |
commit | 481df5a3855ccd5ea3bf4d5f41ae780f4773b7b4 (patch) | |
tree | 3aeb7e20eaba176536cb8d10ba531ac39674fc4a /configs/shared/emacs/.emacs.d/elpa/evil-text-objects-haskell-20180316.1833 | |
parent | 18b9930b8604134f087ca61fe94740b31f94327c (diff) |
Remove Emacs spam
My inconsistent git history-keeping is coming to bite me here. At the moment, I can only speculate about what went wrong here. The gist is this: I unintentionally committed files that were supposed to be ignored This commit removes those files which includes: - auto-save-list - elpa packages - quelpa packages - misc
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/evil-text-objects-haskell-20180316.1833')
3 files changed, 0 insertions, 150 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/evil-text-objects-haskell-20180316.1833/evil-text-objects-haskell-autoloads.el b/configs/shared/emacs/.emacs.d/elpa/evil-text-objects-haskell-20180316.1833/evil-text-objects-haskell-autoloads.el deleted file mode 100644 index 00cdbe01bffa..000000000000 --- a/configs/shared/emacs/.emacs.d/elpa/evil-text-objects-haskell-20180316.1833/evil-text-objects-haskell-autoloads.el +++ /dev/null @@ -1,16 +0,0 @@ -;;; evil-text-objects-haskell-autoloads.el --- automatically extracted autoloads -;; -;;; Code: -(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) - -;;;### (autoloads nil nil ("evil-text-objects-haskell.el") (23377 -;;;;;; 61619 204561 624000)) - -;;;*** - -;; Local Variables: -;; version-control: never -;; no-byte-compile: t -;; no-update-autoloads: t -;; End: -;;; evil-text-objects-haskell-autoloads.el ends here diff --git a/configs/shared/emacs/.emacs.d/elpa/evil-text-objects-haskell-20180316.1833/evil-text-objects-haskell-pkg.el b/configs/shared/emacs/.emacs.d/elpa/evil-text-objects-haskell-20180316.1833/evil-text-objects-haskell-pkg.el deleted file mode 100644 index b04de6d2789d..000000000000 --- a/configs/shared/emacs/.emacs.d/elpa/evil-text-objects-haskell-20180316.1833/evil-text-objects-haskell-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;;; -*- no-byte-compile: t -*- -(define-package "evil-text-objects-haskell" "20180316.1833" "Text objects for Haskell source code" 'nil) diff --git a/configs/shared/emacs/.emacs.d/elpa/evil-text-objects-haskell-20180316.1833/evil-text-objects-haskell.el b/configs/shared/emacs/.emacs.d/elpa/evil-text-objects-haskell-20180316.1833/evil-text-objects-haskell.el deleted file mode 100644 index 4edb5810f270..000000000000 --- a/configs/shared/emacs/.emacs.d/elpa/evil-text-objects-haskell-20180316.1833/evil-text-objects-haskell.el +++ /dev/null @@ -1,132 +0,0 @@ -;;; evil-text-objects-haskell.el --- Text objects for Haskell source code -;; Package-Version: 20180316.1833 - -;;; License: - -;; Copyright (C) 2018 Off Market Data, Inc. DBA Urbint -;; Permission is hereby granted, free of charge, to any person obtaining a copy -;; of this software and associated documentation files (the "Software"), to -;; deal in the Software without restriction, including without limitation the -;; rights to use, copy, modify, merge, publish, distribute, sublicense, and/or -;; sell copies of the Software, and to permit persons to whom the Software is -;; furnished to do so, subject to the following conditions: -;; -;; The above copyright notice and this permission notice shall be included in -;; all copies or substantial portions of the Software. -;; -;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;; IN THE SOFTWARE. - -;;; Commentary: - -;; evil-text-objects-haskell provides text-object definitions that -;; should make working with Haskell in Emacs more enjoyable. -;; -;; Currently supporting: -;; - functions -;; - multi-line comments -;; -;; See the README.md for installation instructions. - -(require 'evil) -(require 'pcre2el) -(require 'dash) -(require 'bind-key) - -;;; Code: - -;; Helper Functions -(defun string-symbol-at-point () - "Return a string version of the symbol at point after stripping away -after all of the text properties." - (-> - (symbol-at-point) - symbol-name - substring-no-properties)) - -;; multi-line comments -(evil-define-text-object - evil-inner-haskell-comment-block (count &optional beg end type) - "Inner text object for a Haskell comment block." - (let ((beg (save-excursion - (search-backward "{-") - (right-char 2) - (point))) - (end (save-excursion - (search-forward "-}") - (left-char 2) - (point)))) - (evil-range beg end type))) - -(evil-define-text-object - evil-outer-haskell-comment-block (count &optional beg end type) - "Outer text object for a Haskell comment block." - (let ((beg (save-excursion - (search-backward "{-") - (point))) - (end (save-excursion - (search-forward "-}") - (point)))) - (evil-range beg end type))) - -;; functions -(evil-define-text-object - evil-inner-haskell-function (count &optional beg end type) - "Inner text object for a Haskell function." - (evil-range 0 0 type)) - -(evil-define-text-object - evil-outer-haskell-function (count &optional beg end type) - "Outer text object for a Haskell function." - (beginning-of-line) - (when (looking-at "--") - (while (looking-at "--") - (forward-line -1))) - (when (looking-at "[[:space:]]") - (while (looking-at "[[:space:]]") - (forward-line -1))) - (let* ((fn-name (save-excursion - (search-backward-regexp "^\\w") - (string-symbol-at-point))) - (fn-name-regexp (concat "^" fn-name "\\b")) - (end (save-excursion - (while (search-forward-regexp fn-name-regexp nil t)) - (unless (search-forward-regexp "^\\w" nil t) - (goto-char (point-max))) - (search-backward-regexp "^[[:space:]]+[^ ]") - (end-of-line) - (point))) - (beg (save-excursion - (goto-char end) - (while (search-backward-regexp fn-name-regexp nil t)) - (beginning-of-line) - (forward-line -1) - (while (looking-at "--") - (forward-line -1)) - (point)))) - (evil-range beg end type))) - -;; Installation Helper -(defun evil-text-objects-haskell/install () - "Register keybindings for the text objects defined herein. It is -recommended to run this after something like `haskell-mode-hook'. See -README.md for additional information." - (bind-keys :map evil-operator-state-local-map - ("af" . evil-outer-haskell-function) - ("if" . evil-inner-haskell-function) - ("iC" . evil-inner-haskell-comment-block) - ("aC" . evil-outer-haskell-comment-block)) - (bind-keys :map evil-visual-state-local-map - ("af" . evil-outer-haskell-function) - ("if" . evil-inner-haskell-function) - ("iC" . evil-inner-haskell-comment-block) - ("aC" . evil-outer-haskell-comment-block))) - -(provide 'evil-text-objects-haskell) - -;;; evil-text-objects-haskell.el ends here |