marcuskammer/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update package configs

Browse source
This commit is contained in:
Marcus Kammer 2023-01-07 11:25:47 +01:00
parent 8b868b2362
commit 48874d3bcc
Signed by: marcuskammer
GPG key ID: C374817BE285268F
3 changed files with 67 additions and 70 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
bundle/bundle--gui.el
View file

@ -14,9 +14,9 @@
doom-themes-enable-italic t) ; if nil, italics is universally disabled
(load-theme 'doom-one t))
(use-package doom-modeline
:init (doom-modeline-mode 1)
:custom (doom-modeline-height 33))
;; (use-package doom-modeline
;; :init (doom-modeline-mode 1)
;; :custom (doom-modeline-height 33))
(use-package helpful
:commands (helpful-callable helpful-variable helpful-command helpful-key)
@ -32,7 +32,7 @@
(use-package ace-window :init (global-set-key (kbd "M-o") 'ace-window))
(use-package emojify :commands emojify-mode)
;; (use-package emojify :commands emojify-mode)
(use-package vertico :init (vertico-mode))

8
bundle/bundle--org.el
View file

@ -164,10 +164,10 @@
(use-package ox-reveal
:after org)
(use-package ox-pandoc
:after org
:custom
(org-pandoc-options-for-beamer-pdf '((pdf-engine . "xelatex"))))
;; (use-package ox-pandoc
;; :after org
;; :custom
;; (org-pandoc-options-for-beamer-pdf '((pdf-engine . "xelatex"))))
;; (defun me/write-readme-md-on-save ()
;; ;; when README.org, also write README.md on save

121
bundle/bundle--package.el
View file

@ -1,19 +1,15 @@
;; PACKAGE
(require 'package)
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
("org" . "https://orgmode.org/elpa/")
("elpa" . "https://elpa.gnu.org/packages/")
("nongnu" . "https://elpa.nongnu.org/nongnu/")))
(setq package-archives
'(("melpa" . "https://melpa.org/packages/")
("org" . "https://orgmode.org/elpa/")
("elpa" . "https://elpa.gnu.org/packages/")
("nongnu" . "https://elpa.nongnu.org/nongnu/")))
(package-initialize)
(unless package-archive-contents
(package-refresh-contents))
(unless (package-installed-p 'use-package)
(package-install 'use-package))
;; USE-PACKAGE
(require 'use-package)
(setq use-package-always-ensure t)
@ -55,27 +51,6 @@
("\\.lsp$" . lisp-mode)
("\\.cl$" . lisp-mode)))
(use-package geiser
:defer t
:config
(setq geiser-active-implementations '(racket guile)))
(use-package geiser-racket
:defer t
:after geiser
:config
(when (eq system-type 'windows-nt)
(setq geiser-racket-binary "c:/Program Files/Racket/Racket.exe")))
(use-package geiser-guile
:defer t
:after geiser
:config
(setq geiser-guile-binary "guile")
(when (eq system-type 'windows-nt)
(when (directory-name-p "c:/msys64/")
(setq geiser-guile-binary "c:/msys64/mingw64/bin/guile.exe"))))
(use-package cc-mode
;; https://www.gnu.org/prep/standards/html_node/Writing-C.html
:ensure nil
@ -113,24 +88,49 @@
:mode (("\\.webmanifest\\'" . js-mode)
("\\.js\\'" . js-mode)))
(use-package go-mode
:mode ("\\.go\\'" . go-mode)
:config
(add-hook 'before-save-hook #'gofmt-before-save)
(add-hook 'go-mode-hook 'eglot-ensure)
(defun me/go-mode-compile-command-hook ()
;; if no makefile use go vet for compile command
(unless (or (file-exists-p "makefile")
(file-exists-p "Makefile"))
(set (make-local-variable 'compile-command)
(concat "go " "vet " buffer-file-name))))
(add-hook 'go-mode-hook 'me/go-mode-compile-command-hook)
(defun me/go-mode-compile-on-save ()
;; compile on save hook
(make-local-variable 'after-save-hook)
(add-hook 'after-save-hook (lambda () (compile compile-command))))
;; (add-hook 'go-mode-hook 'me/go-mode-compile-on-save))
)
;; (use-package racket-mode
;; :mode "\\.rkt\\'")
;; (use-package geiser
;; :defer t
;; :config
;; (setq geiser-active-implementations '(racket guile)))
;; (use-package geiser-racket
;; :defer t
;; :after geiser
;; :config
;; (when (eq system-type 'windows-nt)
;; (setq geiser-racket-binary "c:/Program Files/Racket/Racket.exe")))
;; (use-package geiser-guile
;; :defer t
;; :after geiser
;; :config
;; (setq geiser-guile-binary "guile")
;; (when (eq system-type 'windows-nt)
;; (when (directory-name-p "c:/msys64/")
;; (setq geiser-guile-binary "c:/msys64/mingw64/bin/guile.exe"))))
;; (use-package go-mode
;; :mode ("\\.go\\'" . go-mode)
;; :config
;; (add-hook 'before-save-hook #'gofmt-before-save)
;; (add-hook 'go-mode-hook 'eglot-ensure)
;; (defun me/go-mode-compile-command-hook ()
;; ;; if no makefile use go vet for compile command
;; (unless (or (file-exists-p "makefile")
;; (file-exists-p "Makefile"))
;; (set (make-local-variable 'compile-command)
;; (concat "go " "vet " buffer-file-name))))
;; (add-hook 'go-mode-hook 'me/go-mode-compile-command-hook)
;; (defun me/go-mode-compile-on-save ()
;; ;; compile on save hook
;; (make-local-variable 'after-save-hook)
;; (add-hook 'after-save-hook (lambda () (compile compile-command))))
;; ;; (add-hook 'go-mode-hook 'me/go-mode-compile-on-save))
;; )
(use-package web-mode
;; :hook html-mode
@ -146,9 +146,6 @@
(web-mode-enable-current-element-highlight t)
(web-mode-enable-current-column-highlight t))
(use-package racket-mode
:mode "\\.rkt\\'")
(use-package python
:mode (("\\.py\\'" . python-mode)
("\\.wsgi$" . python-mode)
@ -192,15 +189,15 @@
(use-package simple-httpd
:defer t)
(use-package go-translate
:defer t
:config
(setq gts-translate-list '(("en" "de")))
(setq gts-default-translator
(gts-translator
:picker (gts-prompt-picker)
:engines (list (gts-google-engine) (gts-google-rpc-engine))
:render (gts-buffer-render))))
;; (use-package go-translate
;; :defer t
;; :config
;; (setq gts-translate-list '(("en" "de")))
;; (setq gts-default-translator
;; (gts-translator
;; :picker (gts-prompt-picker)
;; :engines (list (gts-google-engine) (gts-google-rpc-engine))
;; :render (gts-buffer-render))))
(use-package sql
:ensure nil
@ -224,9 +221,9 @@
(use-package markdown-mode
:mode "\\.md\\'")
(use-package clojure-mode)
;; (use-package clojure-mode)
(use-package cider)
;; (use-package cider)
(use-package typescript-mode
:mode "\\.ts\\'"