diff options
| author | Christian Cunningham <cc@localhost> | 2025-02-26 16:34:06 -0800 |
|---|---|---|
| committer | Christian Cunningham <cc@localhost> | 2025-02-26 16:34:06 -0800 |
| commit | 16f4e04fb5ca29d7a48a79277f394cec91362f19 (patch) | |
| tree | 504a2a37cd5cf08999c2af060dd93672353178bb | |
| parent | 664318209281208e151781a513d9f045479fdb08 (diff) | |
Add color to status bar
Minor changes:
Ignore url-like file names for pining alive
Include files should be treated as assembly
| -rw-r--r-- | elchemy-user.el | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/elchemy-user.el b/elchemy-user.el index 41f2376..cd78701 100644 --- a/elchemy-user.el +++ b/elchemy-user.el @@ -45,13 +45,17 @@ elchemy/schedule-lookahead 7) ;; Modeline -(setq-default mode-line-format `((:propertize " ♥ " face (:family ,elchemy/user/alt-font-name)) +(setq-default mode-line-format `((:propertize " ♥ " face (:family ,elchemy/user/alt-font-name :foreground "red")) (:propertize "PlayTime" face (:weight bold)) - (:propertize " ♦ " face (:family ,elchemy/user/alt-font-name)) + (:propertize " ♦ " face (:family ,elchemy/user/alt-font-name :foreground "red")) (:propertize "%b" face (:slant italic)) - (:propertize " ♣ " face (:family ,elchemy/user/alt-font-name)) + (:propertize " ♣ " face (:family ,elchemy/user/alt-font-name :foreground "black")) (:propertize (:eval mode-name) face (:foreground "red")) - (:propertize " ♠ " face (:family ,elchemy/user/alt-font-name)))) + (:propertize " ♠ " face (:family ,elchemy/user/alt-font-name :foreground "black")))) + +;; Don't treat url-like file names as urls and ping accidentally when emacs greps! +;; [https://old.reddit.com/r/emacs/comments/1gjlv1z/why_is_emacs_grep_command_pinging_external_servers/] +(setq ffap-machine-p-known 'reject) ;; Ignore Bell (setq ring-bell-function 'ignore) @@ -60,6 +64,9 @@ (setq python-shell-interpreter "~/.micromamba/envs/emacs-py/bin/ipython" python-shell-interpreter-args "--pylab") +;; Assembly +(add-to-list 'auto-mode-alist '("\\.inc\\'" . asm-mode)) + ;; Org Mode Options (org-babel-do-load-languages 'org-babel-load-languages @@ -111,6 +118,7 @@ (setq treesit-language-source-alist '((bash "https://github.com/tree-sitter/tree-sitter-bash") + (clojure "https://github.com/sogaiu/tree-sitter-clojure") (cmake "https://github.com/uyha/tree-sitter-cmake") (css "https://github.com/tree-sitter/tree-sitter-css") (elisp "https://github.com/Wilfred/tree-sitter-elisp") |