config.el

;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-

;;-- Me

(defvar user-full-name "John Grey")

(defvar user-url "https://jgrey4296.github.io/")

;;-- end Me

;;-- Text Encoding
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-language-environment "UTF-8")
(prefer-coding-system 'utf-8)
;;-- end Text Encoding

;;-- locations
;;
(setq doom-fallback-buffer-name       "base_agenda.org"
      initial-buffer-choice           (expand-file-name "agenda/base_agenda.org" "~/.config/homepage/submodules_/orgfiles/")
      )


(speckler-setq! global ()
  custom-file                     (expand-file-name "emacs/custom.el" user-cache-dir)
  backup-directory-alist          (list `(".*" . ,(expand-file-name ".local/backups" doom-emacs-dir)))
  org-directory                   (f-canonical (expand-file-name "~/.config/homepage/submodules_/orgfiles/"))
  pyvenv-default-virtual-env-name (expand-file-name "mamba/envs/" user-cache-dir)
  server-auth-dir                 (expand-file-name "secrets/emacs" user-config-dir)
  native-comp-eln-load-path       (list (expand-file-name "cache/eln" doom-local-dir))
  docs-dir                        (expand-file-name "docs" templates-loc)
  bookmark-default-file (pcase system-type
                          ('darwin (expand-file-name "emacs/bookmarks/bookmarks.mac" user-cache-dir))
                          ('gnu/linux (expand-file-name "emacs/bookmarks/bookmarks.linux" user-cache-dir))
                          )
  mu4e-maildir (or (getenv "MAILDIR") "mail/" user-cache-dir)
  auth-sources (list (expand-file-name "secrets/emacs/authinfo.asc" user-config-dir))
  ;; OSX: auth-sources ("~/.authinfo" macos-keychain-generic macos-keychain-internet "~/authinfo.gpg")
  emacs-lisp-c-src-dir (pcase system-type
                         ('darwin  "/Volumes/documents/github/_libs/lisp/emacs-src/src")
                         ('gnu/linux "/media/john/data/github/_libs/lisp/emacs/src")
                         )
  emacs-lisp-src-dir (pcase system-type
                       ('darwin "/Volumes/documents/github/_libs/lisp/emacs-src/lisp/")
                       ('gnu/linux "/media/john/data/github/_libs/lisp/emacs/lisp")
                       )
  find-function-C-source-directory emacs-lisp-c-src-dir
  find-library-source-path (+jg-lisp-setup-library-source)
  )

(add-to-list 'load-path (expand-file-name "~/.local/modules"))

;;-- end locations

(setq server-log t)

;;-- doom settings
(setq doom-theme 'jg-Iosvkem)
;; Override doom's whitespace mode settings:
(fset 'doom-highlight-non-default-indentation-h #'(lambda () nil))

(fset 'ad-Advice-newline-and-indent #'(lambda (x &rest _) (funcall x)))
;;-- end doom settings

;;-- global modes
(setq initial-major-mode #'emacs-lisp-mode)

(add-hook! doom-first-buffer
           #'delete-selection-mode
           )

;;-- end global modes

;;-- byte / native compilation
;; from https://github.com/kiwanami/emacs-epc/issues/35
(setq byte-compile-warnings '(not cl-functions)
      native-comp-async-jobs-number 1
      native-comp-jit-compilation-deny-list '("/with-editor\\.el\\'"
                                              "/vterm\\.el\\'"
                                              "/evil-collection-vterm\\.el\\'"
                                              "/emacs-jupyter.*\\.el\\'"
                                              "/carousel-.*\\.el\\'"
                                              "/lsp-.*\\.el\\'"
                                              )
      ;; native-comp-jit-compilation nil
      ;; no-byte-compile
      )
;;-- end byte / native compilation

;;-- warning suppression
;;   (let ((jgtest '(1 2 3))
;;         (jgnon  '(blah))
;;         (warning-suppress-log-types '((defvaralias losing-value jgblahtest)))
;;         (warning-suppress-types nil ;;'((defvaralias losing-value jgblahtest)))
;;         )

;;   (defvaralias 'jgblahtest 'jgnon)
;;   (defvaralias 'jgblahtest 'jgtest)
;; )
;;
(setq warning-suppress-types '((bytecomp)))

(speckler-setq! warnings ()
  :override nil
  warning-suppress-log-types ;; Full Suppress
  '((defvaralias losing-value woman-topic-history)
    (defvaralias losing-value rustic-indent-method-chain)
    (losing-value rustic-indent-method-chain)
    ;; ((python python-shell-completion-native-turn-on-maybe))
    ((org-element org-element-cache))
    ((flycheck syntax-checker))
    (error "Invalid search bound (wrong side of point)")
    )
  warning-suppress-types ;; Don't Show, silently added to warnings buffer
  '((defvaralias losing-value python-shell-interpreter)
    (defvaralias losing-value rustic-indent-method-chain)
    (org-element org-element-cache)
    (org-element org-element-parser)
    (bytecomp)
    (flycheck syntax-checker)
    (yasnippet backquote-change)
    ;; ((python python-shell-completion-native-turn-on-maybe))
    )
  )
;;-- end warning suppression

;;-- command en/disabling
(put 'list-timers 'disabled nil)
(put 'list-threads 'disabled nil)
(put 'narrow-to-region 'disabled nil)

(defun print-disabled-commands ()
  "Enable all commands, reporting on which were disabled."
  (interactive)
  (with-output-to-temp-buffer "*Commands that were disabled*"
    (mapatoms
     (function
      (lambda (symbol)
        (when (get symbol 'disabled)
          (put symbol 'disabled nil)
          (prin1 symbol)
          (princ "\n")))))))
;;-- end command en/disabling