;;; init.el --- a file generated from Readme.org
;; -*- lexical-binding: t; -*-
;;; Commentary:
;;;     Org tangled from Readme.org. Edit the org file to change this configuration
;;; Code:

(setq gc-cons-threshold 100000000) ;; for lsp-mode
;; (add-hook 'after-init-hook
;;    (lambda ()
;;      (setq gc-cons-threshold 800000)))
(setq debug-on-error t)
(setq use-package-verbose t)
(setq custom-file (expand-file-name "custom.el" user-emacs-directory))
(prefer-coding-system 'utf-8) ;; is it really has to be placed here?
(setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3")

(setq package-user-dir "~/.emacs.d/elpa/")
;; (require 'use-package)
(package-initialize)
(add-to-list 'package-archives
          '("melpa" . "https://melpa.org/packages/") t)
(package-refresh-contents)
(setq package-check-signature nil)
;;(package-install (elt (cdr (assoc 'gnu-elpa-keyring-update package-archive-contents)) 0))
;;(package-install (elt (cdr (assoc 'use-package package-archive-contents)) 0))
(setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3")

;; (unless (boundp 'package-archive-contents)

;;   (package-initialize)
;;   (add-to-list 'package-archives
;;         '("melpa" . "https://melpa.org/packages/") t))
     (unless (assoc 'use-package package-archive-contents)
        (when (not package-archive-contents)
            (package-refresh-contents))
        (when (not (require 'gnu-elpa-keyring-update  nil 'noerror))
            (setq package-check-signature nil)
            (package-install (elt (cdr (assoc 'gnu-elpa-keyring-update package-archive-contents)) 0)))
        (when (not (require 'use-package nil 'noerror))
            (package-install (elt (cdr (assoc 'use-package package-archive-contents)) 0))))

;;(assoc-delete-all 'org package--builtins)
(setq use-package-enable-imenu-support t)

(require 'use-package)
(use-package org :ensure t :pin gnu)

(defcustom my/literate-file (concat user-emacs-directory "Readme.org")
       "The file to tangle all .el files from."
       :group 'my-configuration
       :type 'string)

(defcustom my/cfg-file (concat user-emacs-directory "custom.el")
       "The file with all the customization."
       :group 'my-configuration
       :type 'string)

;; (when (file-newer-than-file-p my/literate-file my/cfg-file)
;;       (org-babel-tangle-file my/literate-file))

(org-babel-tangle-file my/literate-file)
(load my/cfg-file)

;;; init.el ends here