(setq package-archives ‘(("gnu"   . "http://mirrors.ustc.edu.cn/elpa/gnu/")
                         ("melpa" . "http://mirrors.ustc.edu.cn/elpa/melpa/")))

(use-package rustic)
(add-hook ‘rust-mode-hook
      (lambda () (setq indent-tabs-mode nil)))
(add-hook ‘rust-mode-hook
      (lambda () (define-key rust-mode-map (kbd "C-c C-c") ‘rust-run)))
(setq rust-format-on-save t)

(require ‘yasnippet)
(yas-global-mode 1)
(electric-pair-mode)
(global-company-mode)

(add-hook ‘julia-mode-hook ‘julia-repl-mode)

(setq racket-program "G:\\Program Files\\Racket\\Racket.exe")
(require ‘racket-xp)
(add-hook ‘racket-mode-hook #‘racket-xp-mode)

(add-hook ‘racket-mode-hook #‘racket-mode-xref-backend-function)
(add-hook ‘racket-xp-mode-hook #‘racket-xp-xref-backend-function)
(add-hook ‘racket-repl-mode-hook #‘racket-repl-xref-backend-function)

(use-package paredit
  :ensure t
  :config
  (dolist (m ‘(emacs-lisp-mode-hook
           lisp-mode-hook
           racket-mode-hook
           racket-repl-mode-hook))
    (add-hook m #‘paredit-mode))
  (bind-keys :map paredit-mode-map
         ("{" . paredit-open-curly)
         ("}" . paredit-close-curly))
  (unless terminal-frame
    (bind-keys :map paredit-mode-map
           ("M-[" . paredit-wrap-square)
           ("M-{" . paredit-wrap-curly))))

(eval-after-load ‘scheme
  ‘(define-key scheme-mode-map "\t" ‘scheme-complete-or-indent))
(autoload ‘scheme-get-current-symbol-info "scheme-complete" nil t)
(add-hook ‘scheme-mode-hook
      (lambda ()
        (make-local-variable ‘eldoc-documentation-function)
        (setq eldoc-documentation-function ‘scheme-get-current-symbol-info)
        (eldoc-mode)))

;(require ‘rainbow-delimiters)
(require ‘highlight-parentheses)

(dolist (m ‘(emacs-lisp-mode-hook
         lisp-mode-hook
         racket-mode-hook
         racket-repl-mode-hook))
  ;(add-hook m #‘rainbow-delimiters-mode)
  (add-hook m #‘highlight-parentheses-mode))
(global-paren-face-mode)
(load (expand-file-name "C:/users/o/quicklisp/slime-helper.el"))
(setq inferior-lisp-program "sbcl")
(slime-setup ‘(slime-fancy slime-company))
(add-to-list ‘slime-contribs ‘slime-repl)
(load-theme ‘solarized-dark t)

(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.
 ‘(julia-program "G:/Julia 1.5.3/bin/julia.exe")
 ‘(package-selected-packages
   ‘(all-the-icons-dired dired-du dired-explorer dired-filter dired-icon dired-rainbow direx paren-face common-lisp-snippets redshank slime-company slime highlight-parentheses solarized-theme rainbow-delimiters yasnippet use-package-hydra use-package-ensure-system-package use-package-el-get use-package-chords thrift scribble-mode scheme-complete rustic racket-mode paredit mic-paren lsp-ui lsp-julia julia-vterm julia-shell julia-repl flycheck-rust flycheck-julia el-get company)))
(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.
 ‘(default ((t (:family "Consolas" :foundry "outline" :slant normal :weight normal :height 143 :width normal)))))

;(setq package-archives ‘(("gnu"   . "http://mirrors.ustc.edu.cn/elpa/gnu/")
 ;                        ("melpa" . "http://mirrors.ustc.edu.cn/elpa/melpa/")))
(setq package-archives ‘(("gnu" . "http://mirrors.ustc.edu.cn/elpa/gnu/")
                         ("melpa" . "http://mirrors.ustc.edu.cn/elpa/melpa/")
                         ("melpa-stable" . "http://mirrors.ustc.edu.cn/elpa/melpa-stable/")
                         ("org" . "http://mirrors.ustc.edu.cn/elpa/org/")))
(setq package-archives nil)
(global-company-mode)
(global-flycheck-mode)

(eval-after-load ‘company
  ‘(add-to-list ‘company-backends ‘company-irony))

(eval-after-load ‘company
  ‘(add-to-list ‘company-backends ‘company-c-headers))

(add-hook ‘c++-mode-hook ‘irony-mode)
(add-hook ‘c-mode-hook ‘irony-mode)
(add-hook ‘objc-mode-hook ‘irony-mode)

(defun compile-gtk-single-file ()
  (interactive)
  (let* ((base-name (file-name-base (buffer-file-name)))
     (exe-name (concat base-name ".exe"))
     (source-name (concat base-name ".c"))
     (cmd (read-shell-command "Compile single gtk file: "
                 (concat "gcc `pkg-config --cflags gtk4` -o "
                     exe-name " "
                     source-name
                     " `pkg-config --libs gtk4`"
                     " && ./"
                     exe-name
                     " &"))))
    (shell-command cmd)))

(defun run-gtk-single-file ()
  (interactive)
  (let* ((base-name (file-name-base (buffer-file-name)))
     (exe-name (concat base-name ".exe"))
     (cmd (read-shell-command "Run single gtk file: "
                  (concat "./"
                      exe-name
                      " &"))))
    (shell-command cmd)))

(add-hook ‘c-mode-hook
      ‘(lambda ()
         (local-set-key (kbd "C-c c") ‘compile-gtk-single-file)
         (local-set-key (kbd "C-c r") ‘run-gtk-single-file)))

(ivy-mode)
(setq ivy-use-virtual-buffers t)
(setq enable-recursive-minibuffers t)
(setq search-default-mode #‘char-fold-to-regexp)
(global-set-key "\C-s" ‘swiper)
(global-set-key (kbd "C-c C-r") ‘ivy-resume)
(global-set-key (kbd "M-x") ‘counsel-M-x)
(global-set-key (kbd "C-x C-f") ‘counsel-find-file)
(define-key minibuffer-local-map (kbd "C-r") ‘counsel-minibuffer-history)

(setenv "GTAGSLIBPATH" "G:/msys64/mingw64/include/")
(load-file "g:/msys64/home/o/.emacs.d/global-tags.el/global-tags.el")
(add-hook ‘c-mode-hook #‘global-tags-exclusive-backend-mode)
(add-hook ‘c-mode-hook
      (lambda ()
        (add-hook ‘after-save-hook
              #‘global-tags-update-database-with-buffer
              nil
              t)))



(use-package ivy-xref
  :ensure t
  :init
  ;; xref initialization is different in Emacs 27 - there are two different
  ;; variables which can be set rather than just one
  (when (>= emacs-major-version 27)
    (setq xref-show-definitions-function #‘ivy-xref-show-defs))
  ;; Necessary in Emacs <27. In Emacs 27 it will affect all xref-based
  ;; commands other than xref-find-definitions (e.g. project-find-regexp)
  ;; as well
  (setq xref-show-xrefs-function #‘ivy-xref-show-xrefs))

;; Windows performance tweaks
;;
(when (boundp ‘w32-pipe-read-delay)
  (setq w32-pipe-read-delay 0))
;; Set the buffer size to 64K on Windows (from the original 4K)
(when (boundp ‘w32-pipe-buffer-size)
  (setq irony-server-w32-pipe-buffer-size (* 64 1024)))

(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.
 ‘(company-backends
   ‘(company-c-headers company-clang company-irony company-bbdb company-semantic company-cmake company-capf company-clang company-files
               (company-dabbrev-code company-gtags company-etags company-keywords)
               company-oddmuse company-dabbrev))
 ‘(company-c-headers-path-system
   ‘("g:/msys64/mingw64/include" "g:/msys64/mingw64/include/gtk-4.0" "g:/msys64/mingw64/include/glib-2.0" "g:/msys64/mingw64/include/graphene-1.0" "g:/msys64/mingw64/lib/glib-2.0/include" "g:/msys64/mingw64/include/cairo" "g:/msys64/mingw64/include/pango-1.0" "g:/msys64/usr/include" "g:/msys64/mingw64/include/harfbuzz" "g:/msys64/mingw64/include/gdk-pixbuf-2.0" "g:/msys64/mingw64/lib/graphene-1.0/include"))
 ‘(company-clang-arguments
   ‘("-IG:/msys64/mingw64/include" "-IG:/msys64/mingw64/include/gtk-4.0" "-IG:/msys64/mingw64/include/glib-2.0" "-IG:/msys64/mingw64/include/graphene-1.0" "-IG:/msys64/mingw64/lib/glib-2.0/include" "-IG:/msys64/mingw64/include/cairo" "-IG:/msys64/mingw64/include/pango-1.0" "-IG:/msys64/usr/include" "-IG:/msys64/mingw64/include/harfbuzz" "-IG:/msys64/mingw64/include/gdk-pixbuf-2.0" "-IG:/msys64/mingw64/lib/graphene-1.0/include"))
 ‘(company-minimum-prefix-length 2)
 ‘(flycheck-clang-include-path
   ‘("g:/msys64/mingw64/include" "g:/msys64/mingw64/include/gtk-4.0" "g:/msys64/mingw64/include/glib-2.0" "g:/msys64/mingw64/include/graphene-1.0" "g:/msys64/mingw64/lib/glib-2.0/include" "g:/msys64/mingw64/include/cairo" "g:/msys64/mingw64/include/pango-1.0" "g:/msys64/usr/include" "g:/msys64/mingw64/include/harfbuzz" "g:/msys64/mingw64/include/gdk-pixbuf-2.0" "g:/msys64/mingw64/lib/graphene-1.0/include"))
 ‘(flycheck-clang-includes nil)
 ‘(flycheck-gcc-include-path nil)
 ‘(package-selected-packages
   ‘(ht async persp-mode-projectile-bridge use-package ivy-xcdoc ivy-xref counsel-gtags swiper ivy gxref flycheck-irony company-irony-c-headers company-irony irony clang-capf clang-format clang-format+ company company-c-headers company-ctags))
 ‘(sql-connection-alist
   ‘(("stock"
      (sql-product ‘ms)
      (sql-user "sa")
      (sql-password "JianBing!@#0831")
      (sql-server "121.196.17.12")
      (sql-database "DataSource"))))
 ‘(sql-ms-program
   "C:\\Program Files\\Microsoft SQL Server\\Client SDK\\ODBC\\170\\Tools\\Binn\\SQLCMD.EXE"))
(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.
 )