JosephFerano/old-dotfiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Haskell stuff and C-n C-p for repl history in haskell/python

Browse Source
This commit is contained in:
Joseph Ferano 2023-01-08 13:00:02 +07:00
parent 8fa59624d8
commit bca8e2eaf6
2 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
.config/emacs/init.org
View File

@ -1041,6 +1041,7 @@ targets."
(ocaml . t) (ocaml . t)
(python . t) (python . t)
(C . t) (C . t)
(haskell . t)
(rust . t) (rust . t)
(shell . t))) (shell . t)))
@ -1049,6 +1050,7 @@ targets."
(add-to-list 'org-structure-template-alist '("ml" . "src ocaml")) (add-to-list 'org-structure-template-alist '("ml" . "src ocaml"))
(add-to-list 'org-structure-template-alist '("rs" . "src rust")) (add-to-list 'org-structure-template-alist '("rs" . "src rust"))
(add-to-list 'org-structure-template-alist '("py" . "src python")) (add-to-list 'org-structure-template-alist '("py" . "src python"))
(add-to-list 'org-structure-template-alist '("hs" . "src haskell"))
(setq org-edit-src-content-indentation 0)) (setq org-edit-src-content-indentation 0))
(with-eval-after-load 'org (joe/org-init)) (with-eval-after-load 'org (joe/org-init))
@ -1334,8 +1336,10 @@ startup. Reason we have to call this is so the vterm fucntion can call `vterm--i
*** Python *** Python
#+begin_src emacs-lisp #+begin_src emacs-lisp
(straight-use-package 'elpy) (straight-use-package 'elpy)
#+end_src>
(define-key inferior-python-mode-map (kbd "C-n") #'comint-next-input)
(define-key inferior-python-mode-map (kbd "C-p") #'comint-previous-input)
#+end_src>
*** Rust *** Rust
#+begin_src emacs-lisp #+begin_src emacs-lisp
(straight-use-package 'rustic) (straight-use-package 'rustic)
@ -1399,6 +1403,16 @@ it doesn't close it.
(popper-close-latest)))))) (popper-close-latest))))))
(add-hook 'compilation-finish-functions 'joe/close-compilation-if-no-warn-err) (add-hook 'compilation-finish-functions 'joe/close-compilation-if-no-warn-err)
#+end_src
*** Haskell
#+begin_src emacs-lisp
(straight-use-package 'haskell-mode)
(define-key haskell-interactive-mode-map (kbd "C-n") #'haskell-interactive-mode-history-next)
(define-key haskell-interactive-mode-map (kbd "C-p") #'haskell-interactive-mode-history-previous)
;; (evil-define-key 'insert)
#+end_src #+end_src
*** OCaml *** OCaml
#+begin_src emacs-lisp #+begin_src emacs-lisp

1
.config/fish/fish_variables
View File

@ -1,6 +1,7 @@
# This file contains fish universal variable definitions. # This file contains fish universal variable definitions.
# VERSION: 3.0 # VERSION: 3.0
SETUVAR EDITOR:hx SETUVAR EDITOR:hx
SETUVAR --export GHCUP_USE_XDG_DIRS:true
SETUVAR --export --path GOPATH:/home/joe/\x2elocal/share/go/ SETUVAR --export --path GOPATH:/home/joe/\x2elocal/share/go/
SETUVAR --export LC_COLLATE:C SETUVAR --export LC_COLLATE:C
SETUVAR --export NNN_FIFO:/tmp/nnn\x2efifo SETUVAR --export NNN_FIFO:/tmp/nnn\x2efifo