init.el

;; Added by Package.el.  This must come before configurations of
;; installed packages.  Don't delete this line.  If you don't want it,
;; just comment it out by adding a semicolon to the start of the line.
;; You may delete these explanatory comments.
(package-initialize)

(put 'downcase-region 'disabled nil)
(put 'upcase-region 'disabled nil)

(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(package-selected-packages
   '(neotree leader-key package-lint swift-mode json-reformat helpful emojify minimap ag rg wgrep embark-consult marginalia consult-projectile consult-lsp consult-company consult-flycheck diredfl consult orderless vertico spacemacs-theme dashboard writeroom-mode god-mode parinfer-rust-mode multi-vterm vterm unfill mwim which-key rpm-spec-mode vundo yasnippet company-auctex ob-rust rust-mode json-mode yaml-mode ccls doom-themes doom-modeline markdown-mode rainbow-delimiters window-jump shackle anzu switch-window lsp-ui symbol-overlay vdiff ztree ssh-config-mode projectile org-tree-slide cmake-mode avy paradox csv-mode beginend lorem-ipsum ox-twbs flycheck org-bullets company windresize sokoban smart-tabs-mode page-break-lines magit lua-mode))
 '(safe-local-variable-values
   '((eval and buffer-file-name
           (not
            (eq major-mode 'package-recipe-mode))
           (or
            (require 'package-recipe-mode nil t)
            (let
                ((load-path
                  (cons "../package-build" load-path)))
              (require 'package-recipe-mode nil t)))
           (package-recipe-mode))
     (projectile-project-compilation-dir . ".")
     (projectile-project-compilation-cmd . "cmake --build build")
     (projectile-project-compilation-cmd . "make -j2")
     (projectile-project-compilation-cmd . "make -C build")
     (projectile-project-compilation-cmd . "./local.sh")
     (projectile-project-compilation-cmd . "./build.sh"))))

(add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/"))

(let ((packages-refreshed nil))
  (dolist (p package-selected-packages)
    (unless (package-installed-p p)
      (message "Installing: %s" p)
      (unless packages-refreshed
        (package-refresh-contents)
        (setq packages-refreshed t))
      (package-install p)))
  (when packages-refreshed
    (package-autoremove)))

(let ((secret-file "~/.emacs.d/secret.el"))
  (when (file-readable-p secret-file)
    (load-file secret-file)))

;; (org-babel-load-file "~/.emacs.d/config.org")
(let ((config-org "~/.emacs.d/config.org")
      (config-lisp "~/.emacs.d/config.el"))
  (when (file-newer-than-file-p config-org config-lisp)
    (require 'ob-tangle)
    (org-babel-tangle-file config-org config-lisp)
    (byte-compile-file config-lisp))
  (load-file config-lisp))