From 45bb0d11161b1c5077a1415eed6dbd0fd25ccb6a Mon Sep 17 00:00:00 2001
From: jdlugosz963 <jdlugosz963@gmail.com>
Date: Fri, 20 Sep 2024 14:16:56 +0200
Subject: Change dotfiles structure, and add guix-channels declaration.

---
 files/.emacs.d/jd/jd-dev.el | 177 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 177 insertions(+)
 create mode 100755 files/.emacs.d/jd/jd-dev.el

(limited to 'files/.emacs.d/jd/jd-dev.el')

diff --git a/files/.emacs.d/jd/jd-dev.el b/files/.emacs.d/jd/jd-dev.el
new file mode 100755
index 0000000..12cd21b
--- /dev/null
+++ b/files/.emacs.d/jd/jd-dev.el
@@ -0,0 +1,177 @@
+;;; Dotfiles --- Jakub Dlugosz emacs config
+;;; Commentary:
+
+;;; Code:
+
+;; (setq c-default-style "linux"
+;;       c-basic-offset 8
+;;       gdb-many-windows t)
+
+(use-package lsp-mode
+  :guix-package "emacs-lsp-mode"
+  :diminish t
+  :commands (lsp lsp-deferred)
+  :init
+  (setq lsp-headerline-breadcrumb-enable nil)
+  (setq lsp-diagnostics-provider :none)
+  (setq lsp-modeline-diagnostics-enable nil)
+  (setq lsp-keymap-prefix "C-c l")
+  :config
+  (lsp-enable-which-key-integration t)
+
+  (global-set-key (kbd "C-x ]")
+		  #'(lambda ()
+		      (interactive)
+		      (forward-page)
+		      (recenter-top-bottom 0)))
+
+  (global-set-key (kbd "C-x [")
+		  #'(lambda ()
+		      (interactive)
+		      (backward-page)
+		      (recenter-top-bottom 0)))
+
+  (define-key c-mode-map
+	      (kbd "C-c C-c")
+	      #'(lambda ()
+		  (interactive)
+		  (compile compile-command)))
+  
+  (define-key c-mode-map
+	      (kbd "C-c M-c")
+	      'compile))
+
+(use-package lsp-ivy
+  :guix-package "emacs-lsp-ivy"
+  :after lsp)
+
+
+(use-package paredit
+  :guix-package "emacs-paredit")
+
+(defun jd/lisp-mode-setup ()
+  (rainbow-delimiters-mode)
+  (paredit-mode))
+
+(add-hook 'emacs-startup-hook
+	  (lambda ()
+	    (add-hook 'scheme-mode-hook 'jd/lisp-mode-setup)
+	    (add-hook 'emacs-lisp-mode-hook 'jd/lisp-mode-setup)
+	    (add-hook 'clojure-mode-hook 'jd/lisp-mode-setup)
+	    (add-hook 'lisp-mode-hook 'jd/lisp-mode-setup)))
+
+(use-package rainbow-delimiters
+  :guix-package "emacs-rainbow-delimiters")
+
+(use-package sly
+  :guix-package "emacs-sly")
+
+(use-package geiser
+  :guix-package "emacs-geiser")
+
+(use-package geiser-racket
+  :guix-package "emacs-geiser-racket")
+
+(use-package racket-mode
+  :guix-package "emacs-racket-mode")
+
+(use-package geiser-guile
+  :guix-package "emacs-geiser-guile"
+  :config
+  (when jd/guix-p
+    (defun jd/guix-repl ()
+      (interactive)
+      (let ((geiser-guile-binary '("guix" "repl"))
+	    (geiser-guile-load-path (cons "~/dotfiles/guix" geiser-guile-load-path)))
+	(geiser 'guile)))))
+
+(use-package pyvenv
+  :guix-package "emacs-pyvenv"
+  :after python-mode)
+
+(use-package typescript-mode
+  :guix-package "emacs-typescript-mode"
+  :mode ("\\.ts\\'")
+  :config
+  (setq typescript-indent-level 2))
+
+(use-package cider
+  :guix-package "emacs-cider")
+
+(use-package tide
+  :guix-package "emacs-tide"
+  :after (typescript-mode company web-mode))
+
+(use-package flycheck
+  :guix-package "emacs-flycheck"
+  :hook ((after-init . global-flycheck-mode)))
+
+(use-package web-mode
+  :guix-package "emacs-web-mode"
+  :mode
+  ("\\.ejs\\'" "\\.hbs\\'" "\\.html\\'" "\\.php\\'" "\\.[jt]sx?\\'")
+  :config
+  (setq web-mode-content-types-alist '(("jsx" . "\\.[jt]sx?\\'")))
+  (setq web-mode-markup-indent-offset 2)
+  (setq web-mode-css-indent-offset 2)
+  (setq web-mode-code-indent-offset 2)
+  (setq web-mode-script-padding 2)
+  (setq web-mode-block-padding 2)
+  (setq web-mode-style-padding 2)
+  (setq web-mode-enable-auto-pairing t)
+  (setq web-mode-enable-auto-closing t)
+  (setq web-mode-enable-current-element-highlight t))
+
+(use-package yaml-mode
+  :guix-package "emacs-yaml-mode")
+
+(use-package docker
+  :guix-package "emacs-docker"
+  :bind
+  ("C-c D d" . docker-containers)
+  ("C-c D D" . docker))
+
+(use-package company
+  :guix-package "emacs-company"
+  :diminish t
+  :after lsp-mode
+  :hook (lsp-mode . company-mode)
+  :bind (:map company-active-map
+	      ("<tab>" . company-complete-selection))
+  (:map lsp-mode-map
+	("<tab>" . company-indent-or-complete-common))
+  :custom
+  (company-minimum-prefix-length 1)
+  (company-idle-delay 0.0)
+  :config
+  (global-company-mode))
+
+(use-package projectile
+  :guix-package "emacs-projectile"
+  :diminish projectile-mode
+  :init
+  (when (file-directory-p "~/Documents/code")
+    (setq projectile-project-search-path '("~/Documents/code/")))
+  :custom ((projectile-Completion-system 'ivy))
+  :config
+  (setq projectile-switch-project-action #'projectile-dired)
+  (projectile-mode))
+
+(use-package magit
+  :guix-package "emacs-magit"
+  :custom
+  (magit-display-buffer-function #'magit-display-buffer-same-window-except-diff-v1))
+
+(use-package restclient
+  :guix-package "emacs-restclient")
+
+(setq sql-connection-alist
+      '(("net47-abaks"
+	 (sql-product 'postgres)
+	 (sql-user "kuba")
+	 (sql-database "net47")
+	 (sql-server "net47.abaks.pl"))))
+
+(provide 'jd-dev)
+
+;;; jd-dev.el ends here
-- 
cgit v1.2.3