Emacs: Move mode-specific visuals to their dedicated files
parent
a1520a5626
commit
dbb3517a15
|
@ -10,6 +10,16 @@
|
||||||
;; (define-key map (kbd "C-c o") 'ff-find-other-file)
|
;; (define-key map (kbd "C-c o") 'ff-find-other-file)
|
||||||
(define-key map (kbd "M-TAB") 'semantic-complete-analyze-inline))
|
(define-key map (kbd "M-TAB") 'semantic-complete-analyze-inline))
|
||||||
|
|
||||||
|
;;; C additional keywords.
|
||||||
|
;;; Useless in quasi-monochrome.
|
||||||
|
;; (dolist (mode '(c-mode c++-mode))
|
||||||
|
;; (font-lock-add-keywords
|
||||||
|
;; mode
|
||||||
|
;; '(("\\<\\(and\\|or\\|not\\)\\>" . font-lock-keyword-face)
|
||||||
|
;; ;; Functions.
|
||||||
|
;; ("\\<\\(\\sw+\\)(" 1 'font-lock-function-name-face)
|
||||||
|
;; ("\\<\\(\\sw+\\)<\\sw+>(" 1 'font-lock-function-name-face))))
|
||||||
|
|
||||||
(when (require 'company nil t)
|
(when (require 'company nil t)
|
||||||
(local-set-key (kbd "M-TAB") (if (require 'helm-company nil t) 'helm-company 'company-complete)))
|
(local-set-key (kbd "M-TAB") (if (require 'helm-company nil t) 'helm-company 'company-complete)))
|
||||||
|
|
||||||
|
|
|
@ -8,6 +8,10 @@
|
||||||
(setq-default sh-shell-file sh-shell-file)
|
(setq-default sh-shell-file sh-shell-file)
|
||||||
;; (setq-default sh-shell 'sh)
|
;; (setq-default sh-shell 'sh)
|
||||||
|
|
||||||
|
;;; Faces
|
||||||
|
(set-face-foreground 'sh-heredoc "#00bfff")
|
||||||
|
(set-face-bold 'sh-heredoc nil)
|
||||||
|
|
||||||
(defun sh-set-compiler ()
|
(defun sh-set-compiler ()
|
||||||
"Set shell interpreter.
|
"Set shell interpreter.
|
||||||
Set `sh-shell', `sh-shell-file' and `compile-command' according to the following rules:
|
Set `sh-shell', `sh-shell-file' and `compile-command' according to the following rules:
|
||||||
|
|
|
@ -56,26 +56,11 @@
|
||||||
(set-face-foreground 'font-lock-type-face (face-foreground 'default))
|
(set-face-foreground 'font-lock-type-face (face-foreground 'default))
|
||||||
(set-face-foreground 'font-lock-variable-name-face (face-foreground 'default))
|
(set-face-foreground 'font-lock-variable-name-face (face-foreground 'default))
|
||||||
|
|
||||||
;;; Sh-mode
|
|
||||||
(with-eval-after-load 'sh-script
|
|
||||||
(set-face-foreground 'sh-heredoc "#00bfff")
|
|
||||||
(set-face-bold 'sh-heredoc nil))
|
|
||||||
|
|
||||||
;;; Compilation mode
|
;;; Compilation mode
|
||||||
(with-eval-after-load 'compile
|
(with-eval-after-load 'compile
|
||||||
(set-face-foreground 'compilation-column-number "cyan")
|
(set-face-foreground 'compilation-column-number "cyan")
|
||||||
(set-face-foreground 'compilation-line-number "cyan"))
|
(set-face-foreground 'compilation-line-number "cyan"))
|
||||||
|
|
||||||
;;; C additional keywords.
|
|
||||||
;;; Useless in quasi-monochrome.
|
|
||||||
;; (dolist (mode '(c-mode c++-mode))
|
|
||||||
;; (font-lock-add-keywords
|
|
||||||
;; mode
|
|
||||||
;; '(("\\<\\(and\\|or\\|not\\)\\>" . font-lock-keyword-face)
|
|
||||||
;; ;; Functions.
|
|
||||||
;; ("\\<\\(\\sw+\\)(" 1 'font-lock-function-name-face)
|
|
||||||
;; ("\\<\\(\\sw+\\)<\\sw+>(" 1 'font-lock-function-name-face))))
|
|
||||||
|
|
||||||
;;; Ediff
|
;;; Ediff
|
||||||
(with-eval-after-load 'ediff-init
|
(with-eval-after-load 'ediff-init
|
||||||
(set-face-attribute 'ediff-even-diff-A nil :inherit 'ediff-current-diff-A :foreground 'unspecified :background 'unspecified :box nil)
|
(set-face-attribute 'ediff-even-diff-A nil :inherit 'ediff-current-diff-A :foreground 'unspecified :background 'unspecified :box nil)
|
||||||
|
|
Loading…
Reference in New Issue