Compare commits

...

3 Commits

4 changed files with 71 additions and 7 deletions

View File

@ -43,6 +43,10 @@
(setq company-dabbrev-downcase nil)
:config
(setq-default company-backends
'((company-capf :with company-yasnippet) :separate
(company-keywords company-dabbrev company-ispell) :separate
company-files))
(bind-key [remap completion-at-point] #'company-complete company-mode-map))

View File

@ -204,7 +204,6 @@ shipped with Emacs."
:commands eglot
:autoload eglot-ensure)
(use! flycheck
"Flycheck is a modern on-the-fly syntax checking extension for GNU Emacs."
:config (global-flycheck-mode))
@ -241,6 +240,8 @@ shipped with Emacs."
(setq tooltip-use-echo-area t)
(setq x-gtk-use-system-tooltips nil)
;; Switch from `dabbrev-expand' to `hippie-expand'
(global-set-key [remap dabbrev-expand] 'hippie-expand)
;; Global configurations
(tool-bar-mode -1)
(tooltip-mode nil)

View File

@ -61,7 +61,7 @@ to Emacs modeline."
(require 'noether-views)
(let ((active-border (get-base16-color-or :base0A "#bd93f9"))
(inactive-border (get-base16-color-or :base04 "#44475a")))
(inactive-border (get-base16-color-or :base03 "#44475a")))
(set-face-attribute 'fg42/-disabled-modeline-active-border nil :background active-border)
(set-face-attribute 'fg42/-disabled-modeline-dective-border nil :background inactive-border))
@ -74,11 +74,69 @@ to Emacs modeline."
(if fg42/modeline-inactive-face fg42/modeline-inactive-face 'fg42/-disabled-modeline-dective-border)
(default-value 'face-remapping-alist) face-remaps))
(setq-default noether-views (or fg42/modeline-views
(list
noether-minimal-mode-line
noether-minimal-location
noether-minimal-exwm))))
(when-not-wm
(require 'noether-units)
(require 'nerd-icons)
(require 'projectile)
(defvar noether--mode-icon)
(defun noether--update-mode-icon ()
"Set the current buffer name to the watched var."
(setq noether--mode-icon major-mode))
(defun noether--format-mode-icon (_ v _ _)
"Format the icon V."
(nerd-icons-icon-for-mode v))
(noether-defunit mode-icon
"Draws an icon for the current major mode."
:label ""
:len 1
:init (lambda ()
(add-hook 'post-command-hook #'noether--update-mode-icon))
:deinit (lambda ()
(remove-hook 'post-command-hook #'noether--update-mode-icon))
:var 'noether--mode-icon
:fn #'noether--format-mode-icon)
(noether-defview fg42-modeline
"A simple and minimalist mode-line like status bar"
:managed? t
:binding (kbd "C-c 0")
:buffer "*modeline"
:visible? t
:timeout 0
:frame
(list
:position
(cons (- (frame-inner-width) 690)
(- (frame-outer-height) 20))
:border-width 0
:border-color "#bd93f9")
:units
(list
(buffer-name-unit :label (format "%s " (nerd-icons-codicon "nf-cod-layers"))
:len 20)
;; (mode-name-unit :label " " :len 4)
(projectile-project-unit :label (format "%s " (nerd-icons-octicon "nf-oct-project"))
:len 20)
(git-branch-unit :label (format "%s " (nerd-icons-devicon "nf-dev-git_branch"))
:len 20)
(mode-icon)
(line-unit :label "")))
(setq-default noether-views (list fg42-modeline)))
(when-wm
(setq-default noether-views (list noether-minimal-exwm))))
(provide 'fg42/modeline)
;;; modeline.el ends here

View File

@ -110,6 +110,7 @@ literate programming, maintaining to-do lists, planning projects, and more — i
and effective plain text system.
For more info on ~org-mode~ check out `https://orgmode.org/'"
:hook (org-mod . flyspell-mode)
:init
(setq
org-auto-align-tags nil