summaryrefslogtreecommitdiff
path: root/.emacs.d/modules/thanos-dev.el
diff options
context:
space:
mode:
Diffstat (limited to '.emacs.d/modules/thanos-dev.el')
-rw-r--r--.emacs.d/modules/thanos-dev.el131
1 files changed, 0 insertions, 131 deletions
diff --git a/.emacs.d/modules/thanos-dev.el b/.emacs.d/modules/thanos-dev.el
deleted file mode 100644
index eb8a2c0..0000000
--- a/.emacs.d/modules/thanos-dev.el
+++ /dev/null
@@ -1,131 +0,0 @@
-;;; thanos-dev.el --- Developer Tools Configuration -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2023 Thanos Apollo
-
-;; Author: Thanos Apollo <[email protected]>
-;; Keywords: extensions
-
-;; 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 'corfu)
-(require 'orderless)
-(require 'dabbrev)
-
-;; Completions
-(setf dabbrev-ignored-buffer-regexps '("\\.\\(?:pdf\\|jpe?g\\|png\\)\\'"))
-
-(setf completion-category-overrides '((file (style basic partial-completion)))
- completion-styles '(orderless)
- completion-cycle-threshold 2)
-
-;; Corfu
-(global-corfu-mode)
-(corfu-popupinfo-mode)
-
-(setf corfu-auto t
- corfu-auto-delay 0.1
- corfu-auto-prefix 2
- corfu-cycle t
- corfu-popupinfo-delay 0
- corfu-quit-at-boundary 'separator
- corfu-quit-no-match t
- corfu-preselect 'first
- corfu-preview-current t
- corfu-echo-mode t)
-
-(setq indent-tabs-mode nil)
-
-;; Register
-(define-key global-map (kbd "C-x r d") 'bookmark-delete)
-(define-key global-map (kbd "C-x r C-r") 'bookmark-rename)
-(define-key global-map (kbd "C-x r .") 'consult-register)
-(define-key corfu-map (kbd "RET") nil) ;; Leave my enter alone
-
-(defun insert-brackets (&optional arg)
- "Insert brackets."
- (interactive "P")
- (insert-pair arg ?\[ ?\]))
-
-(global-set-key (kbd "C-x M-[") 'insert-brackets)
-
-;; Magit
-(require 'magit)
-
-(defun project-magit ()
- "Run magit-status in the current project's root."
- (interactive)
- (magit-status (project-root (project-current t))))
-
-(define-key project-prefix-map (kbd "s") 'project-magit)
-
-(setf magit-display-buffer-function #'magit-display-buffer-same-window-except-diff-v1)
-(define-prefix-command 'thanos/magit)
-(global-set-key (kbd "C-c g") 'thanos/magit)
-(define-key thanos/magit (kbd "c") 'magit-clone)
-
-;; shell scripting
-(define-auto-insert
- '("\\.sh\\'" . "Bash skeleton")
- '("Description:"
- "#!/bin/bash\n\n"))
-
-(add-hook 'shell-script-mode #'auto-insert)
-
-;; Emacs lisp
-(setf tab-always-indent 'complete)
-(add-to-list 'completion-styles 'initials t)
-
-(add-hook 'emacs-lisp-mode-hook #'rainbow-delimiters-mode)
-(add-hook 'emacs-lisp-mode-hook #'display-line-numbers-mode)
-
-;; Disable checkdoc flycheck for org-src buffers
-(add-hook 'org-src-mode-hook #'(lambda ()
- (flycheck-disable-checker 'emacs-lisp-checkdoc)))
-
-;; Common lisp
-(setf inferior-lisp-program "sbcl")
-(add-hook 'lisp-mode-hook #'rainbow-delimiters-mode)
-
-;; Scheme
-(add-hook 'scheme-mode-hook #'rainbow-delimiters-mode)
-
-;; Python
-(require 'python-mode)
-(add-to-list 'auto-mode-alist '("\\.py\\'" . python-mode))
-(add-hook 'python-mode #'eglot)
-
-;; json
-(require 'json-mode)
-(add-to-list 'auto-mode-alist '("\\.json'" . json-mode))
-
-;; ChatGPT
-(require 'gptel)
-
-(define-key 'thanos/applications-map (kbd "c") 'gptel-send)
-
-(setf gptel-api-key (password-store-get "chatgpt/api")
- gptel-model 'gpt-4-32k)
-
-(provide 'thanos-dev)
-;;; thanos-dev.el ends here