forked from colonelpanic/dotfiles
multi-line.el
This commit is contained in:
parent
c9f046f38e
commit
199e9cc1f8
196
dotfiles/emacs.d/load.d/multi-line.el
Normal file
196
dotfiles/emacs.d/load.d/multi-line.el
Normal file
@ -0,0 +1,196 @@
|
|||||||
|
;;; multi-line.el --- multi-line statements -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
|
;; Copyright (C) 2015 Ivan Malison
|
||||||
|
|
||||||
|
;; Author: Ivan Malison <IvanMalison@gmail.com>
|
||||||
|
;; Keywords: multi line length whitespace programming
|
||||||
|
;; URL: https://github.com/IvanMalison/multi-line
|
||||||
|
;; Version: 0.0.0
|
||||||
|
;; Package-Requires:
|
||||||
|
|
||||||
|
;; 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 <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
;;; Commentary:
|
||||||
|
|
||||||
|
;; multi-line aims to provide a flexible framework for automatically
|
||||||
|
;; multi-lining and single-lining function invocations, array and map
|
||||||
|
;; literals and more. It relies on functions that are defined on a per
|
||||||
|
;; major mode basis wherever it can so that function correctly across
|
||||||
|
;; many different programming languages.
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
(defvar multi-line-find-strategy)
|
||||||
|
(defvar multi-line-enter-strategy)
|
||||||
|
(defvar multi-line-multi-line-strategy)
|
||||||
|
(defvar multi-line-single-line-strategy)
|
||||||
|
|
||||||
|
(defun multi-line-lparenthesis-advance ()
|
||||||
|
(re-search-forward "[[{(]"))
|
||||||
|
|
||||||
|
(defun multi-line-up-list-back ()
|
||||||
|
(up-list) (backward-sexp))
|
||||||
|
|
||||||
|
(defclass multi-line-forward-sexp-enter-strategy ()
|
||||||
|
((done-regex :initarg :done-regex :initform "[[:space:]]*\[[({]")
|
||||||
|
(advance-fn :initarg :advance-fn :initform 'multi-line-lparenthesis-advance)
|
||||||
|
(inside-fn :initarg :inside-fn :initform 'multi-line-up-list-back)))
|
||||||
|
|
||||||
|
(defmethod multi-line-enter ((enter multi-line-forward-sexp-enter-strategy))
|
||||||
|
(condition-case nil
|
||||||
|
(while (not (looking-at (oref enter :done-regex)))
|
||||||
|
(forward-sexp))
|
||||||
|
('error
|
||||||
|
(funcall (oref enter :inside-fn))))
|
||||||
|
(funcall (oref enter :advance-fn)))
|
||||||
|
|
||||||
|
(defun multi-line-comma-advance ()
|
||||||
|
(re-search-forward ","))
|
||||||
|
|
||||||
|
(defun multi-line-done-advance ()
|
||||||
|
(re-search-forward "[)}\]")
|
||||||
|
(backward-char))
|
||||||
|
|
||||||
|
(defclass multi-line-forward-sexp-find-strategy ()
|
||||||
|
((split-regex :initarg :split-regex :initform "[[:space:]]*,")
|
||||||
|
(done-regex :initarg :done-regex :initform "[[:space:]]*[})]")
|
||||||
|
(split-advance-fn :initarg :split-advance-fn :initform
|
||||||
|
'multi-line-comma-advance)))
|
||||||
|
|
||||||
|
(defmethod multi-line-should-stop ((strategy multi-line-forward-sexp-find-strategy))
|
||||||
|
(cond
|
||||||
|
((looking-at (oref strategy :done-regex)) :done)
|
||||||
|
((looking-at (oref strategy :split-regex)) :candidate)
|
||||||
|
(t nil)))
|
||||||
|
|
||||||
|
(defmethod multi-line-find-next ((strategy multi-line-forward-sexp-find-strategy))
|
||||||
|
(let (last last-point this-point)
|
||||||
|
(setq this-point (point))
|
||||||
|
(condition-case nil
|
||||||
|
(while (and (not (equal this-point last-point))
|
||||||
|
(not (setq last (multi-line-should-stop strategy))))
|
||||||
|
(forward-sexp)
|
||||||
|
(setq last-point this-point)
|
||||||
|
(setq this-point (point)))
|
||||||
|
('error (setq last :done))
|
||||||
|
nil)
|
||||||
|
(when (equal last :candidate) (funcall (oref strategy :split-advance-fn)))
|
||||||
|
last))
|
||||||
|
|
||||||
|
(defclass multi-line-never-newline ()
|
||||||
|
((spacer :initarg :spacer :initform " ")))
|
||||||
|
|
||||||
|
(defmethod multi-line-respace ((respacer multi-line-never-newline) index markers)
|
||||||
|
(when (not (or (equal 0 index)
|
||||||
|
(equal index (- (length markers) 1))))
|
||||||
|
(insert (oref respacer :spacer))))
|
||||||
|
|
||||||
|
(defclass multi-line-always-newline ()
|
||||||
|
((always-first :initarg :always-first :initform t)
|
||||||
|
(always-last :initarg :always-last :initform t)))
|
||||||
|
|
||||||
|
(defmethod multi-line-should-newline ((respacer multi-line-always-newline)
|
||||||
|
index markers)
|
||||||
|
(let ((marker-length (length markers)))
|
||||||
|
(or (and (equal 0 index) (oref respacer :always-first))
|
||||||
|
(and (equal index (- marker-length 1)) (oref respacer :always-last)))))
|
||||||
|
|
||||||
|
(defmethod multi-line-respace ((respacer multi-line-always-newline) index markers)
|
||||||
|
(when (multi-line-should-newline respacer index markers)
|
||||||
|
(newline-and-indent)))
|
||||||
|
|
||||||
|
(defclass multi-line-column-number ()
|
||||||
|
((newline-at :initarg :newline-at :initform 80)
|
||||||
|
(newline-respacer :initarg :newline-respacer :initform
|
||||||
|
(make-instance multi-line-always-newline))
|
||||||
|
(default-respacer :initarg :default-respacer :initform
|
||||||
|
(make-instance multi-line-never-newline))))
|
||||||
|
|
||||||
|
(defmethod multi-line-should-newline ((respacer multi-line-column-number)
|
||||||
|
index markers)
|
||||||
|
(let ((marker-length (length markers)))
|
||||||
|
(or (and (equal 0 index))
|
||||||
|
(and (equal index (- marker-length 1)))
|
||||||
|
(and (< (+ index 1) marker-length)
|
||||||
|
(save-excursion
|
||||||
|
(goto-char (marker-position (nth (+ index 1) markers )))
|
||||||
|
(> (current-column) (oref respacer :newline-at)))))))
|
||||||
|
|
||||||
|
(defmethod multi-line-respace ((respacer multi-line-column-number) index markers)
|
||||||
|
(if (multi-line-should-newline respacer index markers)
|
||||||
|
(newline-and-indent) (insert " ")))
|
||||||
|
|
||||||
|
(defun multi-line-get-markers (enter-strategy find-strategy)
|
||||||
|
(multi-line-enter enter-strategy)
|
||||||
|
(let ((markers (list (point-marker))))
|
||||||
|
(nconc markers
|
||||||
|
(cl-loop until (equal (multi-line-find-next find-strategy) :done)
|
||||||
|
collect (point-marker)))
|
||||||
|
(nconc markers (list (point-marker)))))
|
||||||
|
|
||||||
|
(defun multi-line-clear-whitespace-at-point ()
|
||||||
|
(interactive)
|
||||||
|
(let ((start (point)))
|
||||||
|
(re-search-forward "[^[:space:]\n]")
|
||||||
|
(backward-char)
|
||||||
|
(kill-region start (point))))
|
||||||
|
|
||||||
|
(defun multi-line-clear-whitespace ()
|
||||||
|
(interactive)
|
||||||
|
(let ((markers (multi-line-get-markers multi-line-enter-strategy
|
||||||
|
multi-line-find-strategy)))
|
||||||
|
(cl-loop for marker in markers do
|
||||||
|
(goto-char (marker-position marker))
|
||||||
|
(multi-line-clear-whitespace-at-point))))
|
||||||
|
|
||||||
|
(defun multi-line-always-newline-and-indent ()
|
||||||
|
(interactive)
|
||||||
|
(let ((markers (multi-line-get-markers multi-line-enter-strategy
|
||||||
|
multi-line-find-strategy)))
|
||||||
|
(cl-loop for marker in markers do
|
||||||
|
(goto-char (marker-position marker))
|
||||||
|
(multi-line-clear-whitespace-at-point)
|
||||||
|
(newline-and-indent))))
|
||||||
|
|
||||||
|
(defun multi-line-adjust-whitespace (respacer)
|
||||||
|
(let ((markers (multi-line-get-markers multi-line-enter-strategy
|
||||||
|
multi-line-find-strategy)))
|
||||||
|
(cl-loop for marker being the elements of markers using (index i) do
|
||||||
|
(goto-char (marker-position marker))
|
||||||
|
(multi-line-clear-whitespace-at-point)
|
||||||
|
(multi-line-respace respacer i markers))))
|
||||||
|
|
||||||
|
(defun multi-line-set-default-strategies ()
|
||||||
|
(interactive)
|
||||||
|
(setq multi-line-find-strategy
|
||||||
|
(make-instance multi-line-forward-sexp-find-strategy)
|
||||||
|
multi-line-enter-strategy
|
||||||
|
(make-instance multi-line-forward-sexp-enter-strategy)
|
||||||
|
multi-line-multi-line-strategy
|
||||||
|
(make-instance multi-line-column-number)
|
||||||
|
multi-line-single-line-strategy
|
||||||
|
(make-instance multi-line-never-newline)))
|
||||||
|
|
||||||
|
(defun multi-line-multiline ()
|
||||||
|
(interactive)
|
||||||
|
(multi-line-adjust-whitespace multi-line-multi-line-strategy))
|
||||||
|
|
||||||
|
(defun multi-line-singleline ()
|
||||||
|
(interactive)
|
||||||
|
(multi-line-adjust-whitespace multi-line-single-line-strategy))
|
||||||
|
|
||||||
|
|
||||||
|
(provide 'multi-line)
|
||||||
|
;; flycheck-disabled-checkers: (emacs-lisp-checkdoc)
|
||||||
|
;;; multi-line.el ends here
|
||||||
Loading…
Reference in New Issue
Block a user