jessieh/adwaita-dark-theme
jessieh/adwaita-dark-theme
1
Fork 0
Code Issues 1 Pull Requests Releases Activity

Remove unnecessary progn calls

Browse Source
This commit is contained in:
Jessie Hildebrandt 2022-12-19 19:24:18 -05:00
parent e0a594d0c2
commit ed811011b8
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
adwaita-dark-theme.el
View File

@ -852,11 +852,17 @@
;;;###autoload ;;;###autoload
(defun adwaita-dark-theme-neotree-configuration-enable () (defun adwaita-dark-theme-neotree-configuration-enable ()
"Enable custom adwaita-dark configuration for use with neotree." "Enable custom adwaita-dark configuration for use with neotree."
(progn (advice-add #'neo-global--select-window :after (lambda ()
(advice-add #'neo-global--select-window :after (lambda () (visual-line-mode 0) (set-window-fringes neo-global--window 0 0))) (visual-line-mode -1)
(advice-add #'neo-buffer--insert-root-entry :override #'adwaita-dark-theme--neotree-insert-root) (set-window-fringes neo-global--window 0 0)
(advice-add #'neo-buffer--insert-dir-entry :override #'adwaita-dark-theme--neotree-insert-dir) (setq-local line-spacing 3
(advice-add #'neo-buffer--insert-file-entry :override #'adwaita-dark-theme--neotree-insert-file))) mode-line-format nil
auto-hscroll-mode nil
buffer-display-table (make-display-table))
(set-display-table-slot buffer-display-table 'truncation 8230)))
(advice-add #'neo-buffer--insert-root-entry :override #'adwaita-dark-theme--neotree-insert-root)
(advice-add #'neo-buffer--insert-dir-entry :override #'adwaita-dark-theme--neotree-insert-dir)
(advice-add #'neo-buffer--insert-file-entry :override #'adwaita-dark-theme--neotree-insert-file))
;; ;;
;; Fringe bitmap functions ;; Fringe bitmap functions
@ -945,10 +951,9 @@
;;;###autoload ;;;###autoload
(defun adwaita-dark-theme-flymake-fringe-bmp-enable () (defun adwaita-dark-theme-flymake-fringe-bmp-enable ()
"Enable custom adwaita-dark fringe bitmaps for use with flymake." "Enable custom adwaita-dark fringe bitmaps for use with flymake."
(progn (setq flymake-error-bitmap '(adwaita-dark-theme--marker-bmp compilation-error)
(setq-default flymake-error-bitmap '(adwaita-dark-theme--marker-bmp compilation-error)) flymake-warning-bitmap '(adwaita-dark-theme--marker-bmp compilation-warning)
(setq-default flymake-warning-bitmap '(adwaita-dark-theme--marker-bmp compilation-warning)) flymake-note-bitmap '(adwaita-dark-theme--marker-bmp compilation-info)))
(setq-default flymake-note-bitmap '(adwaita-dark-theme--marker-bmp compilation-info))))
;; ;;
;; Register theme folder location ;; Register theme folder location