diff options
Diffstat (limited to 'modules/init-nlinum.el')
-rw-r--r-- | modules/init-nlinum.el | 118 |
1 files changed, 0 insertions, 118 deletions
diff --git a/modules/init-nlinum.el b/modules/init-nlinum.el deleted file mode 100644 index 622bd32..0000000 --- a/modules/init-nlinum.el +++ /dev/null @@ -1,118 +0,0 @@ -;;; init-nlinum.el --- .Emacs Configuration -*- lexical-binding: t -*- -;;; Commentary: -;; - -;;; Code: -;;---------------------------------------------------------------------------- -;; Line numbers -;;---------------------------------------------------------------------------- -;; Linum snippets from: https://www.emacswiki.org/emacs/LineNumbers -(use-package nlinum - :config - (add-hook 'find-file-hook (lambda () (linum-mode 1))) - (setq global-linum-mode t) -) - -(use-package linum - :config - (linum-mode 1) - :hook - (apache-mode . linum-mode) - (c-mode . linum-mode) - (c++-mode . linum-mode) - (elisp-mode . linum-mode) - (html-mode . linum-mode) - (js-mode . linum-mode) - (js2-mode . linum-mode) - (less-mode . linum-mode) - (markdown-mode . linum-mode) - (nginx-mode . linum-mode) - (php-mode . linum-mode) - (scss-mode . linum-mode) - (sass-mode . linum-mode) - (web-mode . linum-mode)) - -(defun my-linum-get-format-string () - "Format the string of the column in the buffer. -It helps to show the numbering plus a separation bar." - (let* ((width (1+ (length (number-to-string - (count-lines (point-min) (point-max)))))) - (format (concat "%" (number-to-string width) "d \u2502"))) - (setq my-linum-format-string format))) - -(add-hook 'linum-before-numbering-hook 'my-linum-get-format-string) - -(defvar my-linum-current-line-number 0) - -(defun my-linum-format (line-number) - "Defines LINE-NUMBER the numbering format of each. -this helps maintain the format in the numbering" - (propertize (format my-linum-format-string line-number) 'face - (if (eq line-number my-linum-current-line-number) - 'my-linum-hl - 'linum))) -(setq linum-format 'my-linum-format) - -(defadvice linum-update (around my-linum-update) - "Defines LINUM-UPDATE for update lines. -this helps maintain the format in the numbering" - (let ((my-linum-current-line-number (line-number-at-pos))) - ad-do-it)) -(ad-activate 'linum-update) - -(defvar *linum-mdown-line* nil) - -(defun line-at-click () - "Funtions for position lines. -this helps maintain the move visual." - (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)) - - (with-no-warnings - (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))))) - -(defun md-select-linum () - "Funtions for position lines. -this helps maintain the move visual." - (interactive) - (with-no-warnings - (goto-line (line-at-click))) - (set-mark (point)) - (setq *linum-mdown-line* - (line-number-at-pos))) - -(defun mu-select-linum () - "Funtions for position lines. -this helps maintain the move visual." - (interactive) - (when *linum-mdown-line* - (let (mu-line) - ;; (goto-line (line-at-click)) - (setq mu-line (line-at-click)) - (with-no-warnings - (goto-line (max *linum-mdown-line* mu-line))) - - (set-mark (line-end-position)) - (with-no-warnings - (goto-line (min *linum-mdown-line* mu-line))) - (setq *linum-mdown* - nil)))) - -(global-set-key (kbd "<left-margin> <down-mouse-1>") 'md-select-linum) -(global-set-key (kbd "<left-margin> <mouse-1>") 'mu-select-linum) -(global-set-key (kbd "<left-margin> <drag-mouse-1>") 'mu-select-linum) - -(provide 'init-nlinum) - -;; Local Variables: -;; byte-compile-warnings: (not free-vars) -;; End: -;;; init-nlinum.el ends here |