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.
;; Your init file should contain only one such instance.
;; 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-log t)
'(haskell-process-type 'cabal-repl)
'(haskell-process-suggest-remove-import-lines t)
'(haskell-process-type (quote cabal-repl))
'(package-selected-packages
(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))))
(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))))
)
'(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.
;; ;; If you edit it by hand, you could mess it up, so be careful.
;; ;; Your init file should contain only one such instance.

6
my-modeline.el
View File

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

11
my-noexternals.el
View File

@@ -7,11 +7,18 @@
(autoload 'ghc-debug "ghc" nil t)
(add-hook 'haskell-mode-hook (lambda () (ghc-init)))
(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
'default-frame-alist
'(font . "Iosevka Term 10"))
'(font . "envypn 15"))
(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
'(buffer-file-name "%f"
(dired-directory dired-directory "%b")))