ink/.emacs.d
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use bitmap fot for editing, ttf for modeline. Fix mode line colors

Browse Source
This commit is contained in:
Iñaki Domínguez
2017-01-13 00:48:58 +01:00
parent 99ca0d9225
commit f7f67a07c9
3 changed files with 30 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
init.el
View File

@@ -19,18 +19,32 @@
;; If you edit it by hand, you could mess it up, so be careful. ;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance. ;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right. ;; If there is more than one, they won't work right.
'(haskell-process-suggest-remove-import-lines t)
'(haskell-process-auto-import-loaded-modules t) '(haskell-process-auto-import-loaded-modules t)
'(haskell-process-log t) '(haskell-process-log t)
'(haskell-process-type 'cabal-repl) '(haskell-process-suggest-remove-import-lines t)
'(haskell-process-type (quote cabal-repl))
'(package-selected-packages '(package-selected-packages
(quote (quote
(swiper colemak-evil evil all-the-icons use-package rich-minority projectile mode-icons magit-find-file haskell-mode gruvbox-theme fill-column-indicator evil-magit counsel)))) (swiper colemak-evil evil all-the-icons use-package rich-minority projectile mode-icons magit-find-file haskell-mode gruvbox-theme fill-column-indicator evil-magit counsel))))
(custom-set-faces (custom-set-faces
'(mode-line ((t (:background " ")))) ;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(linum ((t (:underline nil)))) '(linum ((t (:underline nil))))
) '(mode-line ((t (:background "gray11" :foreground "#b8b8b8" :box nil :family "Iosevka Term" :height 100))))
'(mode-line-buffer-id ((t (:foreground "#a1b56c" :family "Iosevka Term" :height 100))))
'(mode-line-highlight ((t (:foreground "#ba8baf" :box nil :weight bold :family "Iosevka Term" :height 100))))
'(mode-line-inactive ((t (:background "#282828" :foreground "#585858" :box nil :underline nil :family "Iosevka Term" :height 100))))
'(term-color-black ((t (:foreground "#525252"))))
'(term-color-blue ((t (:foreground "#33ddff"))))
'(term-color-cyan ((t (:foreground "#196f80"))))
'(term-color-green ((t (:foreground "#bf4c26"))))
'(term-color-magenta ((t (:foreground "#26a6bf"))))
'(term-color-red ((t (:foreground "#ff6633"))))
'(term-color-white ((t (:foreground "#ede4b1"))))
'(term-color-yellow ((t (:foreground "#803319")))))
;; ;; custom-set-faces was added by Custom. ;; ;; custom-set-faces was added by Custom.
;; ;; If you edit it by hand, you could mess it up, so be careful. ;; ;; If you edit it by hand, you could mess it up, so be careful.
;; ;; Your init file should contain only one such instance. ;; ;; Your init file should contain only one such instance.

6
my-modeline.el
View File

@@ -12,9 +12,9 @@
(defun evil-tag-color () (defun evil-tag-color ()
(if (eq (get-buffer-window) powerline-current-window) (if (eq (get-buffer-window) powerline-current-window)
(cond ((evil-normal-state-p) "DodgerBlue4") (cond ((evil-normal-state-p) "#5c3f56")
((evil-visual-state-p) "DarkSlateGray") ((evil-visual-state-p) "#446963")
((evil-insert-state-p) "maroon") ((evil-insert-state-p) "#ac4142")
((evil-emacs-state-p) "SeaGreen") ((evil-emacs-state-p) "SeaGreen")
((evil-operator-state-p) "SeaGreen") ((evil-operator-state-p) "SeaGreen")
((evil-motion-state-p) "SeaGreen") ((evil-motion-state-p) "SeaGreen")

11
my-noexternals.el
View File

@@ -7,11 +7,18 @@
(autoload 'ghc-debug "ghc" nil t) (autoload 'ghc-debug "ghc" nil t)
(add-hook 'haskell-mode-hook (lambda () (ghc-init))) (add-hook 'haskell-mode-hook (lambda () (ghc-init)))
(add-to-list 'exec-path "~/.cabal/bin") (add-to-list 'exec-path "~/.cabal/bin")
;; (add-to-list
;; 'default-frame-alist
;; '(font . "Iosevka Term 10"))
;; (set-frame-font
;; "Iosevka Term 10")
(add-to-list (add-to-list
'default-frame-alist 'default-frame-alist
'(font . "Iosevka Term 10")) '(font . "envypn 15"))
(set-frame-font (set-frame-font
"Iosevka Term 10") "envypn 15")
;; (set-face-font 'menu "-ypn-envypn-medium-r-normal--15-150-75-75-c-90-iso8859-1")
;; (set-face-font 'default "-ypn-envypn-medium-r-normal--15-150-75-75-c-90-iso8859-1")
(setq frame-title-format (setq frame-title-format
'(buffer-file-name "%f" '(buffer-file-name "%f"
(dired-directory dired-directory "%b"))) (dired-directory dired-directory "%b")))