(tool-bar-mode -1)
(set-scroll-bar-mode nil)
-(setq mode-line-format nil)
(setq package-enable-at-startup nil)
('gnu/linux
(menu-bar-mode -1)
(setq initial-frame-alist '((fullscreen . fullboth)
- (alpha-background . 85))))
+ (alpha-background . 92))))
('android
(setenv "PATH" (format "%s:%s" "/data/data/com.termux/files/usr/bin"
(getenv "PATH")))
(elpaca gnu-elpa-keyring-update)
(elpaca graphql-mode)
(elpaca htmlize)
-(elpaca ialign)
(elpaca keycast)
(elpaca kubernetes)
(elpaca (oauth2
(insert-image (esy/plot-eur-to-ils-rates 300 500))
(insert "\n")))
-(defvar esy/mode-line-format
- '(" %+ "
- (:eval (when-let (project (project-current))
- (list
- (propertize (concat (project-name project) "/ ")
- 'face 'italic))))
- (:propertize "%b" face mode-line-buffer-id)
- " (%["
- mode-name mode-line-process minor-mode-alist
- (:eval (when (window-dedicated-p)
- " Dedicated"))
- "%n%])"
- (vc-mode vc-mode)
- mode-line-format-right-align
- (:eval (when (mode-line-window-selected-p)
- (list
- (let* ((last-rate (cdar esy/eur-to-ils-rates))
- (face-arrw (cond
- ((< esy/eur-to-ils-average-rate last-rate)
- '("↑" . error))
- ((< last-rate esy/eur-to-ils-average-rate)
- '("↓" . success))
- (t
- '("→" . warning))))
- (arrw (car face-arrw))
- (face (cdr face-arrw)))
- (propertize (concat "€" arrw
- (number-to-string last-rate) "₪")
- 'face face))
- " "
- 'display-time-string
- 'battery-mode-line-string
- " ")))
- "%5l"
- (4 "|%c")
- " "
- (-3 "%p")
- "/%I "))
-
-(add-hook 'after-init-hook
- (lambda ()
- (setq-default mode-line-format esy/mode-line-format)
- (force-mode-line-update t)))
-
(with-eval-after-load 'elisp-mode
(setq elisp-flymake-byte-compile-load-path (cons "./" load-path)))
'(font-lock-doc-face ((t :inherit font-lock-string-face :slant italic)))
'(elisp-shorthand-font-lock-face ((t :inherit font-lock-keyword-face :slant italic))))
+(custom-theme-set-variables
+ 'esy
+ '(mode-line-format
+ '(" %+ "
+ (:eval (when-let (project (project-current))
+ (list
+ (propertize (concat (project-name project) "/ ")
+ 'face 'italic))))
+ (:propertize "%b" face mode-line-buffer-id)
+ " (%["
+ mode-name mode-line-process minor-mode-alist
+ (:eval (when (window-dedicated-p)
+ " Dedicated"))
+ "%n%])"
+ (vc-mode vc-mode)
+ mode-line-format-right-align
+ (:eval (when (mode-line-window-selected-p)
+ (list "" 'display-time-string 'battery-mode-line-string " ")))
+ "%5l"
+ (4 "|%c")
+ " "
+ (-3 "%p")
+ "/%I ")))
+
(provide-theme 'esy)
;;; esy-theme.el ends here