emacs-config/lisp/ti-config/work-config.el

;;; work-config.el ---  -*- lexical-binding: t -*-

;; Copyright (C) 2020 Benson Chu

;; Author: Benson Chu <bensonchu457@gmail.com>
;; Created: [2020-07-30 14:07]

;; This file is not part of GNU Emacs

;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <https://www.gnu.org/licenses/>.

;;; Commentary:

;;; Code:
(require 'my-org-misc)
(require 'work-org-stuff)
(require 'work-commentor)
(require 'work-asm-config)
(require 'ti-keymap)
(require 'ti-lib)
(require 'ti-tools-backup)
(require 'argo-fastsim-dump-mode)
(require 'machine-scheduler-debug-mode)
(require 'frame-restore)
(require 'ti-config)
(require 'bisect-mode)
(require 'deadgrep-rejump-mode)

(put 'magit-log-mode 'magit-log-default-arguments
     '("--graph" "-n64" "--decorate"))

;; https://github.com/Alexander-Miller/treemacs/issues/1017#issuecomment-1515602288
(add-to-list 'image-types 'svg)

(add-to-list 'auto-mode-alist '("\\.map$" . ti-linker-map-mode))
(add-to-list 'auto-mode-alist '("\\.cdis$" . asm-mode))
(add-to-list 'auto-mode-alist '("\\.cmd$" . conf-mode))
(add-to-list 'auto-mode-alist '("\\.fsdump$" . argo-fastsim-dump-mode))

(use-package ein
  :config
  (setq request-curl-options '("--noproxy \"*\""))
  (setq ein:jupyter-server-command "~/.local/bin/jupyter"))

(use-package deadgrep)

(use-package cmake-mode
  :config
  (defun my/cmake-jump-to-definiton (sym)
    (interactive
     (list (symbol-name (symbol-at-point))))
    (rgrep (concat "function(" sym)
           "*.cmake CMakeLists.txt"
           (projectile-acquire-root)))

  (define-key cmake-mode-map (kbd "M-.") #'my/cmake-jump-to-definiton))

(global-display-fill-column-indicator-mode t)

(setq-default fill-column 79)

;; Prompt for passwords via the minibuffer
(setq epg-pinentry-mode nil)

(add-to-list 'display-buffer-alist
             '("\\*xref\\*" display-buffer-in-side-window
               (side . top) (slot . 0) (window-height . fit-window-to-buffer)
               (preserve-size . (nil . t)) ,parameters))

(add-to-list 'auto-mode-alist '("\\.mir$" . llvm-mode))

(when-let (exe (executable-find "rg"))
  (use-package deadgrep
    :config
    (setq deadgrep-executable exe)
    (setq deadgrep-project-root-function
          #'(lambda ()
              (if current-prefix-arg
                  default-directory
                (deadgrep--project-root))))))

(defmacro load-file? (fname)
  `(when (file-exists-p ,fname)
     (load-file ,fname)))

;; (pop llvm-font-lock-keywords)

(add-to-list 'auto-mode-alist
             '("\\.dsls$" . json-mode))

(add-to-list 'auto-mode-alist '("\\.test" . tcl-mode))

(add-to-list 'auto-mode-alist '("\\.gel" . c-mode))

(pop c-mode-common-hook)
(add-hook 'c-mode-common-hook
	      (function
	       (lambda nil
	         (if (and buffer-file-name (string-match "llvm" buffer-file-name))
		         (progn
		           (c-set-style "llvm.org"))))))

(define-key *root-map* (kbd "u")
  (lambda ()
    (interactive)
    (insert comment-start)
    (just-one-space)
    (insert "BENSON_UPDATE_THIS: ")
    (save-excursion
      (insert comment-end)
      (indent-for-comment))))

(require 'llvm-jump-to-tablegen)
(require 'my-tablegen-mode)

(define-key tablegen-mode-map (kbd "M-.") #'ll/jump-to-tablegen)

;; (when (string-match-p ".*NATIVE_COMP.*" system-configuration-features)
;;   (defun replace-path-for-async-native-comp (orig &rest args)
;;     (let ((path (getenv "PATH")))
;;       (setenv "PATH" (concat "/db/sds/packages2/emacs-master/bin:" path))
;;       (apply orig args)))

;;   (defun replace-path-for-native-comp (orig &rest args)
;;     (let ((path (getenv "PATH")))
;;       (setenv "PATH" (concat "/db/sds/packages2/emacs-master/bin:" path))
;;       (apply orig args)
;;       (setenv "PATH" path)))

;;   (advice-add #'native-compile
;;               :around
;;               #'replace-path-for-native-comp)

;;   (advice-add #'native-compile-async
;;               :around
;;               #'replace-path-for-async-native-comp))

(use-package plantuml-mode
  :init
  (setq plantuml-jar-path "~/bin/plantuml"
        plantuml-default-exec-mode 'jar))

(use-package realgud
  :config
  (setq realgud-window-split-orientation 'horizontal)
  (setq realgud:pdb-command-name "python3 -m pdb"
        realgud:remake-command-name "/db/sds/packages2/remake/bin/remake"))

(use-package realgud-lldb)

;; Get lldb working
(defun lldb-setup-python ()
  (interactive)
  (setenv "PYTHONPATH"
          (concat
           (expand-file-name "~/.local/lib/python3.10/site-packages")
           path-separator
           (getenv "PYTHONPATH")
           path-separator
           "/usr/lib/llvm-14/lib/python3.10/dist-packages/")))
(lldb-setup-python)

;; (defun my/patch-pythonpath (orig &rest args)
;;   (let* ((penv
;;           (remove-if #'(lambda (x)
;;                          (string-match-p "^PYTHONPATH=" x))
;;                      process-environment))
;;          (new-pythonpath
;;           (concat (expand-file-name "~/.local/lib/python3.10/site-packages")
;;                   path-separator
;;                   (getenv "PYTHONPATH")))
;;          (process-environment
;;           (cons (concat "PYTHONPATH=" new-pythonpath)
;;                 penv)))
;;     (apply orig args)))

;; (advice-add #'ein:jupyter-server--run
;;             :around
;;             #'my/patch-pythonpath)

;; Needed for elpy to work on work machine
(defun my/elpy-patch ()
  (if (or (not elpy-rpc-pythonpath)
          (not (file-exists-p (expand-file-name "elpy/__init__.py"
                                                elpy-rpc-pythonpath))))
      process-environment
    (let* ((old-pythonpath (getenv "PYTHONPATH"))
           (new-pythonpath (if old-pythonpath
                               (concat elpy-rpc-pythonpath
                                       path-separator
                                       (expand-file-name "~/.local/lib/python3.10/site-packages")
                                       path-separator
                                       old-pythonpath)
                             elpy-rpc-pythonpath)))
      (cons (concat "PYTHONPATH=" new-pythonpath)
            (append process-environment
                    (when (and (string-equal system-type "windows-nt")
                               (>= (string-match-p
                                    (regexp-quote "utf-8")
                                    (format "%s" buffer-file-coding-system))) 0)
                      (list
                       "PYTHONIOENCODING=utf-8"
                       "PYTHONLEGACYWINDOWSSTDIO=1")))))))

(setq inferior-lisp-program "/db/sds/packages2/lem/bin/ros -Q run")
(setq slime-contribs '(slime-fancy slime-star))
(add-to-list 'load-path "~/.emacs.d/submodule/slime-star")

(advice-add #'elpy-rpc--environment
            :override
            #'my/elpy-patch)

(add-to-list 'load-path
             "/usr/local/share/emacs/site-lisp/mu4e")

(require 'mu4e)

(provide 'work-config)
;;; work-config.el ends here