From 481df5a3855ccd5ea3bf4d5f41ae780f4773b7b4 Mon Sep 17 00:00:00 2001 From: William Carroll Date: Sun, 13 Jan 2019 14:33:17 -0500 Subject: 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 --- .../evil-text-objects-haskell.el | 132 --------------------- 1 file changed, 132 deletions(-) delete mode 100644 configs/shared/emacs/.emacs.d/elpa/evil-text-objects-haskell-20180316.1833/evil-text-objects-haskell.el (limited to 'configs/shared/emacs/.emacs.d/elpa/evil-text-objects-haskell-20180316.1833/evil-text-objects-haskell.el') 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 -- cgit 1.4.1