improve work environment
parent
d9ef6acfda
commit
f330dfb902
|
@ -7,7 +7,10 @@
|
||||||
"Global keymap for `agw-mode'.")
|
"Global keymap for `agw-mode'.")
|
||||||
|
|
||||||
(defvar-local agw-no-fixes nil
|
(defvar-local agw-no-fixes nil
|
||||||
"Fixes files before save if `t' in this buffer.")
|
"Fixes files before save if nil in this buffer.")
|
||||||
|
|
||||||
|
(defvar-local agw-work nil
|
||||||
|
"Changes the functionality of `agw-prog-mode'.")
|
||||||
|
|
||||||
(define-minor-mode agw-key-map-mode
|
(define-minor-mode agw-key-map-mode
|
||||||
"Minor mode for key bindings."
|
"Minor mode for key bindings."
|
||||||
|
@ -18,13 +21,6 @@
|
||||||
"Binds a key into `agw-mode-map'."
|
"Binds a key into `agw-mode-map'."
|
||||||
(define-key agw-mode-map (kbd (concat "C-<tab> " key)) def))
|
(define-key agw-mode-map (kbd (concat "C-<tab> " key)) def))
|
||||||
|
|
||||||
(defun agw-prog-mode ()
|
|
||||||
"Sets up `prog-mode' and `text-mode'."
|
|
||||||
(setq-local tab-always-indent nil
|
|
||||||
tab-width 3
|
|
||||||
standard-indent 3
|
|
||||||
indent-tabs-mode t))
|
|
||||||
|
|
||||||
(defun agw-fp-mode ()
|
(defun agw-fp-mode ()
|
||||||
"Sets up lisp and other functional language major modes."
|
"Sets up lisp and other functional language major modes."
|
||||||
(setq-local indent-tabs-mode nil
|
(setq-local indent-tabs-mode nil
|
||||||
|
@ -61,7 +57,21 @@
|
||||||
((eq selection 'screen-line) "ʌ")
|
((eq selection 'screen-line) "ʌ")
|
||||||
((eq selection 'block) "Λ"))))
|
((eq selection 'block) "Λ"))))
|
||||||
|
|
||||||
|
(defun agw-prog-mode ()
|
||||||
|
"Sets up `prog-mode' and `text-mode'."
|
||||||
|
(if agw-work
|
||||||
|
(setq-local tab-always-indent t
|
||||||
|
tab-width 4
|
||||||
|
standard-indent 4
|
||||||
|
indent-tabs-mode nil)
|
||||||
|
(setq-local tab-always-indent nil
|
||||||
|
tab-width 3
|
||||||
|
standard-indent 3
|
||||||
|
indent-tabs-mode t)))
|
||||||
|
|
||||||
(defun agw-after-local-vars ()
|
(defun agw-after-local-vars ()
|
||||||
|
(if (or (derived-mode-p 'prog-mode) (derived-mode-p 'text-mode))
|
||||||
|
(agw-prog-mode))
|
||||||
(unless indent-tabs-mode (smart-tabs-mode 0)))
|
(unless indent-tabs-mode (smart-tabs-mode 0)))
|
||||||
|
|
||||||
;; Lithium dialogues mode
|
;; Lithium dialogues mode
|
||||||
|
|
|
@ -24,12 +24,10 @@
|
||||||
(add-hook 'prog-mode-hook #'agw-flyspell-prog-mode)
|
(add-hook 'prog-mode-hook #'agw-flyspell-prog-mode)
|
||||||
(add-hook 'prog-mode-hook #'prettify-symbols-mode)
|
(add-hook 'prog-mode-hook #'prettify-symbols-mode)
|
||||||
(add-hook 'prog-mode-hook #'subword-mode)
|
(add-hook 'prog-mode-hook #'subword-mode)
|
||||||
(add-hook 'prog-mode-hook #'agw-prog-mode)
|
|
||||||
|
|
||||||
;; `text-mode'
|
;; `text-mode'
|
||||||
(add-hook 'text-mode-hook #'agw-flyspell-prog-mode)
|
(add-hook 'text-mode-hook #'agw-flyspell-prog-mode)
|
||||||
(add-hook 'text-mode-hook #'subword-mode)
|
(add-hook 'text-mode-hook #'subword-mode)
|
||||||
(add-hook 'text-mode-hook #'agw-prog-mode)
|
|
||||||
|
|
||||||
;; `hack-local-variables'
|
;; `hack-local-variables'
|
||||||
(add-hook 'hack-local-variables-hook #'agw-after-local-vars)
|
(add-hook 'hack-local-variables-hook #'agw-after-local-vars)
|
||||||
|
|
Loading…
Reference in New Issue