aa26332d00
vcs: + +git-gutter to conf-modes; -git-gutter from evil-insert-state-exit + switch github-browse-file for browse-at-remote + fix <leader>ob; add <leader>d[./sr] vc bindings + vc-annotate bindings and initial state Workgroups2 integration: + don't mess with buffers (speeds up emacs a lot!) + unicode numbers in display + single display function + remember workgroup uid instead (and smarter :tabrename) + clean up after wg update Org-mode + give highlight precedence to links in org-mode + enable encryption + config clean up + use different font for org + exclude attachments in recentf + redo latex and inline-image config + add narf/org-open-notes + update file templates for org CRM Mode-line + polish mode-line + decouple from spaceline-segments.el + refactor narf|spaceline-env-update + add macro-recording and buffer-size indicators to mode-line + python: '2>&1' in env-command + flycheck fringe indicator: change to arrow Aesthetics + update narf-dark-theme + add narf-minibuffer-active face + change writing indicator in writing-mode Misc + fix whitespace in display-startup-echo-area-message + reset fonts for more unicode characters + custom imenu entries + helm-imenu fontification + enable yascroll-bar in REPLs + reorganize my-commands.el + force quit iedit on ESC in normal mode + update snippets submodule + remove ido init (helm handles it all) [EXPERIMENTAL] + back to Terminus(TTF) font + popwin: update config for git-gutter and vc-diff windows + highlight :g[lobal] and :al[ign] matches + decouple narf/get-buffers+narf/get-all-buffers from wg-mess-with-buffer-list + fix narf/helm-buffers-dwim (add interactive form)
43 lines
1.2 KiB
EmacsLisp
43 lines
1.2 KiB
EmacsLisp
;;; defuns-editor.el
|
|
;; for ../core-editor.el
|
|
|
|
(defvar *linum-mdown-line* nil)
|
|
|
|
(defun narf--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 narf/mouse-drag-line ()
|
|
(interactive)
|
|
(goto-line (narf--line-at-click))
|
|
(set-mark (point))
|
|
(setq *linum-mdown-line* (line-number-at-pos)))
|
|
|
|
;;;###autoload
|
|
(defun narf/mouse-select-line ()
|
|
(interactive)
|
|
(when *linum-mdown-line*
|
|
(let (mu-line)
|
|
(setq mu-line (narf--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))))
|
|
|
|
(provide 'defuns-editor)
|
|
;;; defuns-editor.el ends here
|