thundertheidiot.bsky.social / nixdots
my nixos configuration
0
fork

Configure Feed

Select the types of activity you want to include in your feed.

slight optimizations maybe

Thunder c5daf3c4 774dde59

+22 -12
+22 -12
home/emacs/config.org
··· 1814 1814 (green (alist-get 'green flavor)) 1815 1815 (red (alist-get 'red flavor)) 1816 1816 (yellow (alist-get 'yellow flavor)) 1817 - (mauve (alist-get 'mauve flavor))) 1817 + (rosewater (alist-get 'rosewater flavor)) 1818 + (mauve (alist-get 'mauve flavor)) 1819 + 1820 + (envrc-none (propertize "" 'face `(:foreground ,text))) 1821 + (envrc-on (propertize (propertize "" 'face `(:foreground ,green)))) 1822 + (envrc-error (propertize "" 'face `(:foreground ,red))) 1823 + ) 1818 1824 (setq-default mode-line-format 1819 1825 `( 1820 1826 " " 1821 1827 (:eval 1822 1828 (propertize "%b" 'face 'bold)) 1823 - " L%l" ;; line number 1824 - ;; mode-line-position 1825 - " " 1826 - ;; mode-line-modes 1829 + " L%l " ;; line number 1830 + 1831 + ;; (:eval 1832 + ;; (when (file-remote-p default-directory) 1833 + ;; (let* ((vec (tramp-dissect-file-name default-directory)) 1834 + ;; (user (or (tramp-file-name-user vec) "")) 1835 + ;; (host (tramp-file-name-host vec))) 1836 + ;; (propertize (format "%s@%s " user host) 'face ,(list 'quote (list :foreground rosewater)))))) 1827 1837 1828 1838 (:eval 1829 1839 (pcase envrc--status 1830 - ('none (propertize "" 'face ,(list 'quote (list :foreground text)))) 1831 - ('on (propertize "" 'face ,(list 'quote (list :foreground green)))) 1832 - ('error (propertize "" 'face ,(list 'quote (list :foreground red)))) 1833 - (_ (propertize "" 'face ,(list 'quote :foreground red))))) 1840 + ('none ,envrc-none) 1841 + ('on ,envrc-on) 1842 + (_ ,envrc-error))) 1834 1843 1835 1844 " " 1836 1845 ··· 1842 1851 (:eval (when (magit-toplevel) " ")) 1843 1852 1844 1853 (:eval 1845 - (when (eglot-managed-p) 1854 + (when eglot--managed-mode 1846 1855 (eglot--mode-line-format))) 1847 1856 1848 - (:eval (when (eglot-managed-p) " ")) 1857 + (:eval (when eglot--managed-mode " ")) 1849 1858 1850 1859 (:eval 1851 1860 (when flycheck-mode ··· 1867 1876 "%=" 1868 1877 (:eval (nyan-create))))) 1869 1878 1870 - (nyan-start-animation)) 1879 + ;; (nyan-start-animation) 1880 + ) 1871 1881 1872 1882 (add-hook 'window-setup-hook #'th/mode-line) 1873 1883 (add-hook 'server-after-make-frame-hook #'th/mode-line)