1196 |
1196 |
1197 (defun my--large-file-p () |
1197 (defun my--large-file-p () |
1198 "If buffer too large and my cause performance issue." |
1198 "If buffer too large and my cause performance issue." |
1199 (< large-file-warning-threshold (buffer-size))) |
1199 (< large-file-warning-threshold (buffer-size))) |
1200 |
1200 |
|
1201 ;; http://git.savannah.nongnu.org/cgit/so-long.git/tree/so-long.el is part of Emacs 27.1 |
|
1202 ;; https://emacs.stackexchange.com/questions/598/how-do-i-prevent-extremely-long-lines-making-emacs-slow |
|
1203 ;; (make-variable-buffer-local 'mode-line-format) |
|
1204 ;; (setq mode-line-format (delq 'mode-line-position 'mode-line-format)) |
1201 (define-derived-mode my-large-file-mode fundamental-mode "LargeFile" |
1205 (define-derived-mode my-large-file-mode fundamental-mode "LargeFile" |
1202 "Fixes performance issues in Emacs for large files." |
1206 "Fixes performance issues in Emacs for large files." |
1203 ;; (setq buffer-read-only t) |
1207 ;; (setq buffer-read-only t) |
1204 (setq bidi-display-reordering nil) |
1208 (setq bidi-display-reordering nil) |
|
1209 (setq bidi-paragraph-direction 'left-to-right) |
|
1210 (font-lock-mode -1) |
1205 (jit-lock-mode nil) |
1211 (jit-lock-mode nil) |
1206 (buffer-disable-undo) |
1212 (buffer-disable-undo) |
1207 ;; (make-variable-buffer-local 'mode-line-format) |
1213 (show-paren-mode -1) |
1208 ;; (setq mode-line-format (delq 'mode-line-position 'mode-line-format)) |
1214 (auto-revert-tail-mode -1) |
1209 (set (make-local-variable 'global-hl-line-mode) nil) |
1215 (set (make-local-variable 'global-hl-line-mode) nil) |
1210 (set (make-local-variable 'line-number-mode) nil) |
1216 (set (make-local-variable 'line-number-mode) nil) |
1211 (set (make-local-variable 'column-number-mode) nil) ) |
1217 (set (make-local-variable 'column-number-mode) nil) |
|
1218 (size-indication-mode -1)) |
1212 |
1219 |
1213 (add-to-list 'magic-mode-alist (cons #'my--large-file-p #'my-large-file-mode)) |
1220 (add-to-list 'magic-mode-alist (cons #'my--large-file-p #'my-large-file-mode)) |
1214 |
1221 |
1215 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1222 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1216 (message "helm") |
1223 (message "helm") |
2636 (add-hook 'log-edit-mode-hook 'my-log-edit-mode-hook t) |
2643 (add-hook 'log-edit-mode-hook 'my-log-edit-mode-hook t) |
2637 |
2644 |
2638 (eval-after-load 'log-edit |
2645 (eval-after-load 'log-edit |
2639 '(remove-hook 'log-edit-hook 'log-edit-insert-message-template)) |
2646 '(remove-hook 'log-edit-hook 'log-edit-insert-message-template)) |
2640 |
2647 |
|
2648 (mapatoms |
|
2649 (lambda (sym) |
|
2650 (when (and |
|
2651 (boundp sym) |
|
2652 (sequencep (symbol-value sym)) |
|
2653 (string-suffix-p "-hook" (symbol-name sym)) |
|
2654 (cl-some |
|
2655 (lambda (hook) |
|
2656 (and (symbolp hook) |
|
2657 (cl-search "git" (symbol-name hook)))) |
|
2658 (symbol-value sym))) |
|
2659 (message "sym: %s" sym)))) |
|
2660 |
|
2661 after-change-major-mode-hook |
|
2662 |
|
2663 (with-eval-after-load 'vc-hooks |
|
2664 (remove-hook 'find-file-hook 'vc-refresh-state)) |
|
2665 |
2641 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2666 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2642 (message "magit") |
2667 (message "magit") |
|
2668 |
|
2669 (when (eq window-system 'w32) |
|
2670 (setq magit-refresh-status-buffer nil)) |
2643 |
2671 |
2644 (with-eval-after-load 'magit-mode |
2672 (with-eval-after-load 'magit-mode |
2645 (setq magit-log-margin '(t "%F %H:%M" magit-log-margin-width t 18)) |
2673 (setq magit-log-margin '(t "%F %H:%M" magit-log-margin-width t 18)) |
2646 (define-key magit-mode-map [s-tab] nil)) |
2674 (define-key magit-mode-map [s-tab] nil)) |
2647 |
2675 |
2648 (setq magit-diff-refine-hunk t) |
2676 (setq magit-diff-refine-hunk t) |
|
2677 |
|
2678 (with-eval-after-load 'magit-branch |
|
2679 (remove-hook 'find-file-hook 'magit-edit-branch*description-check-buffers)) |
|
2680 (with-eval-after-load 'magit-autorevert |
|
2681 (remove-hook 'find-file-hook 'magit-auto-revert-mode-check-buffers) |
|
2682 (remove-hook 'after-change-major-mode-hook 'magit-auto-revert-mode-enable-in-buffers)) |
|
2683 (with-eval-after-load 'git-commit |
|
2684 (remove-hook 'find-file-hook 'git-commit-setup-check-buffer) |
|
2685 (remove-hook 'after-change-major-mode-hook 'git-commit-setup-font-lock-in-buffer)) |
2649 |
2686 |
2650 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2687 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2651 (message "indenting") |
2688 (message "indenting") |
2652 |
2689 |
2653 (setq standard-indent 4) |
2690 (setq standard-indent 4) |