58 lines
1.5 KiB
EmacsLisp
58 lines
1.5 KiB
EmacsLisp
;;; defuns-editor.el
|
|
;; for ../core-editor.el
|
|
|
|
(defvar *linum-mdown-line* nil)
|
|
|
|
(defun doom--line-at-click ()
|
|
(save-excursion
|
|
(let ((click-y (cdr (cdr (mouse-position))))
|
|
(line-move-visual-store line-move-visual))
|
|
(setq line-move-visual t)
|
|
(goto-char (window-start))
|
|
(next-line (1- click-y))
|
|
(setq line-move-visual line-move-visual-store)
|
|
;; If you are using tabbar substitute the next line with
|
|
;; (line-number-at-pos))))
|
|
(1+ (line-number-at-pos)))))
|
|
|
|
;;;###autoload
|
|
(defun doom/mouse-drag-line ()
|
|
(interactive)
|
|
(goto-line (doom--line-at-click))
|
|
(set-mark (point))
|
|
(setq *linum-mdown-line* (line-number-at-pos)))
|
|
|
|
;;;###autoload
|
|
(defun doom/mouse-select-line ()
|
|
(interactive)
|
|
(when *linum-mdown-line*
|
|
(let (mu-line)
|
|
(setq mu-line (doom--line-at-click))
|
|
(goto-line *linum-mdown-line*)
|
|
(if (> mu-line *linum-mdown-line*)
|
|
(progn
|
|
(set-mark (point))
|
|
(goto-line mu-line)
|
|
(end-of-line))
|
|
(set-mark (line-end-position))
|
|
(goto-line mu-line)
|
|
(beginning-of-line))
|
|
(setq *linum-mdown-line* nil))))
|
|
|
|
;;;###autoload
|
|
(defun doom/reselect-paste ()
|
|
"Go back into visual mode and reselect the last pasted region."
|
|
(interactive)
|
|
(evil-goto-mark ?\[)
|
|
(evil-visual-state)
|
|
(evil-goto-mark ?\]))
|
|
|
|
;;;###autoload
|
|
(defun doom/delete-forward-word ()
|
|
"Delete the word in front of the cursor."
|
|
(interactive)
|
|
(evil-forward-word)
|
|
(evil-delete-backward-word))
|
|
|
|
(provide 'defuns-editor)
|
|
;;; defuns-editor.el ends here
|