ld/multiple-cursors.el
1
0
Fork 0
mirror of https://github.com/magnars/multiple-cursors.el.git synced 2025-10-13 13:03:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix style issues

Browse Source
This commit is contained in:
Philippe Vaucher 2014-10-03 14:00:53 +02:00
parent f3daf86bd6
commit b46f79566e
1 changed files with 9 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
mc-hide-unmatched-lines-mode.el
View File

@ -29,7 +29,6 @@
;;; Code: ;;; Code:
(require 'multiple-cursors-core) (require 'multiple-cursors-core)
(defvar hum/hide-unmatched-lines-mode-map (make-sparse-keymap) (defvar hum/hide-unmatched-lines-mode-map (make-sparse-keymap)
@ -45,15 +44,14 @@
;; used only in in multiple-cursors-mode-disabled-hook ;; used only in in multiple-cursors-mode-disabled-hook
(defun hum/disable-hum-mode () (defun hum/disable-hum-mode ()
(mc-hide-unmatched-lines-mode 0) (mc-hide-unmatched-lines-mode 0))
)
(define-minor-mode mc-hide-unmatched-lines-mode (define-minor-mode mc-hide-unmatched-lines-mode
"Minor mode when enabled hides all lines where no cursos (and "Minor mode when enabled hides all lines where no cursos (and
also hum/lines-to-expand below and above) To make use of this also hum/lines-to-expand below and above) To make use of this
mode press \"C-'\" while multiple-cursor-mode is active. You can mode press \"C-'\" while multiple-cursor-mode is active. You can
still edit lines while you are in mc-hide-unmatched-lines still edit lines while you are in mc-hide-unmatched-lines
mode. To leave this mode press <return> or \"C-g\"" mode. To leave this mode press <return> or \"C-g\""
nil " hu" nil " hu"
hum/hide-unmatched-lines-mode-map hum/hide-unmatched-lines-mode-map
(if mc-hide-unmatched-lines-mode (if mc-hide-unmatched-lines-mode
@ -63,9 +61,7 @@ mode. To leave this mode press <return> or \"C-g\""
(add-hook 'multiple-cursors-mode-disabled-hook 'hum/disable-hum-mode t t)) (add-hook 'multiple-cursors-mode-disabled-hook 'hum/disable-hum-mode t t))
(progn (progn
(hum/unhide-unmatched-lines) (hum/unhide-unmatched-lines)
(remove-hook 'multiple-cursors-mode-disabled-hook 'hum/disable-hum-mode)) (remove-hook 'multiple-cursors-mode-disabled-hook 'hum/disable-hum-mode))))
)
)
(defconst hum/invisible-overlay-name 'hum/invisible-overlay-name) (defconst hum/invisible-overlay-name 'hum/invisible-overlay-name)
@ -77,8 +73,7 @@ mode. To leave this mode press <return> or \"C-g\""
(defcustom hum/placeholder "..." (defcustom hum/placeholder "..."
"Placeholder which will be placed insted of hiden text" "Placeholder which will be placed insted of hiden text"
:type '(string) :type '(string)
:group 'multiple-cursors :group 'multiple-cursors)
)
(defun hum/add-invisible-overlay (begin end) (defun hum/add-invisible-overlay (begin end)
(let ((overlay (make-overlay begin (let ((overlay (make-overlay begin
@ -91,10 +86,7 @@ mode. To leave this mode press <return> or \"C-g\""
(overlay-put overlay 'invisible t) (overlay-put overlay 'invisible t)
(overlay-put overlay 'intangible t) (overlay-put overlay 'intangible t)
(overlay-put overlay 'evaporate t) (overlay-put overlay 'evaporate t)
(overlay-put overlay 'after-string hum/placeholder) (overlay-put overlay 'after-string hum/placeholder)))
)
)
(defun hum/hide-unmatched-lines () (defun hum/hide-unmatched-lines ()
(let ((begin (point-min))) (let ((begin (point-min)))
@ -102,18 +94,12 @@ mode. To leave this mode press <return> or \"C-g\""
(save-excursion (save-excursion
(goto-char (mc/cursor-beg cursor)) (goto-char (mc/cursor-beg cursor))
(if (< begin (line-beginning-position (- hum/lines-to-expand))) (if (< begin (line-beginning-position (- hum/lines-to-expand)))
(hum/add-invisible-overlay begin (line-end-position (- hum/lines-to-expand))) (hum/add-invisible-overlay begin (line-end-position (- hum/lines-to-expand))))
) (setq begin (line-beginning-position (+ 2 hum/lines-to-expand)))))
(setq begin (line-beginning-position (+ 2 hum/lines-to-expand))) (hum/add-invisible-overlay begin (point-max))))
)
)
(hum/add-invisible-overlay begin (point-max))
)
)
(defun hum/unhide-unmatched-lines () (defun hum/unhide-unmatched-lines ()
(remove-overlays nil nil hum/invisible-overlay-name t) (remove-overlays nil nil hum/invisible-overlay-name t))
)
(provide 'mc-hide-unmatched-lines-mode) (provide 'mc-hide-unmatched-lines-mode)
(define-key mc/keymap (kbd "C-'") 'mc-hide-unmatched-lines-mode) (define-key mc/keymap (kbd "C-'") 'mc-hide-unmatched-lines-mode)