chris/emacs
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

llm stuff and idk

Browse source
This commit is contained in:
Chris Cochrun 2024-09-09 10:00:57 -05:00
parent b9f59c6b80
commit 6178cd6bd8
2 changed files with 27 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
README.org
View file

@ -2150,7 +2150,8 @@ GPTEL is a package that uses chatGPT to get some text generation in org-mode
:host "ai.tfcconnection.org" :host "ai.tfcconnection.org"
:protocol "https" :protocol "https"
:stream t :stream t
:models '("llama3.1:latest"))) :models '("llama3.1:latest"))
gptel-default-mode #'org-mode)
(setq gptel-directives '((default (setq gptel-directives '((default
. "You are a large language model living in Emacs and a helpful assistant. Respond concisely.") . "You are a large language model living in Emacs and a helpful assistant. Respond concisely.")
(programming (programming
@ -4599,8 +4600,6 @@ Let's add our own eshell prompt. and set the password cache to a significantly h
("gg" "magit-status") ("gg" "magit-status")
("clear" "clear-scrollback") ("clear" "clear-scrollback")
("!!" "eshell-previous-input 2") ("!!" "eshell-previous-input 2")
("yay" "paru $1")
("yeet" "paru -Rns $1")
("nixs" "nix search nixpkgs $1") ("nixs" "nix search nixpkgs $1")
("myip" "curl icanhazip.com") ("myip" "curl icanhazip.com")
("ytd" "yt-dlp -o ~/Videos/%(title)s.%(ext)s $1") ("ytd" "yt-dlp -o ~/Videos/%(title)s.%(ext)s $1")
@ -4660,11 +4659,16 @@ Emulate a terminal
(add-hook 'eshell-load-hook #'eat-eshell-mode)) (add-hook 'eshell-load-hook #'eat-eshell-mode))
#+end_src #+end_src
*** Esh-autosuggest *** Eshell-syntax-highlighting
#+begin_src emacs-lisp :tangle no #+begin_src emacs-lisp
(use-package esh-autosuggest (use-package eshell-syntax-highlighting
:hook (eshell-mode . esh-autosuggest-mode) :config
:ensure nil) (eshell-syntax-highlighting-global-mode +1)
:init
(defface eshell-syntax-highlighting-invalid-face
'((t :inherit diff-error))
"Face used for invalid Eshell commands."
:group 'eshell-syntax-highlighting))
#+end_src #+end_src
** Vterm ** Vterm
@ -4696,7 +4700,7 @@ Let's use pdf-tools for a lot better interaction with pdfs.
(interactive) (interactive)
(let* ((copies (completing-read "How many copies: " '("1" "2" "3"))) (let* ((copies (completing-read "How many copies: " '("1" "2" "3")))
(sides (completing-read "Print both sides or one? " '("two sided" "one sided"))) (sides (completing-read "Print both sides or one? " '("two sided" "one sided")))
(pdf-misc-print-program-args `("-o media=Letter" ,(format "-# %s" copies) "-o fitplot" (pdf-misc-print-program-args `("-o media=Letter" ,(format "-# %s" copies) "-P Home" "-o fit-to-page"
,(if (string= sides "two sided") ,(if (string= sides "two sided")
"-o sides=two-sided-long-edge" "-o sides=two-sided-long-edge"
"")))) ""))))
@ -4704,7 +4708,7 @@ Let's use pdf-tools for a lot better interaction with pdfs.
(pdf-misc-print-document (buffer-file-name) t))) (pdf-misc-print-document (buffer-file-name) t)))
(custom-set-variables '(pdf-misc-print-program-executable "lpr") (custom-set-variables '(pdf-misc-print-program-executable "lpr")
'(pdf-misc-print-program-args (quote ("-o media=Letter" "-o fitplot" "-o sides=two-sided-long-edge")))) '(pdf-misc-print-program-args (quote ("-o media=Letter" "-o fit-to-page" "-o sides=two-sided-long-edge"))))
(add-hook 'pdf-view-mode-hook 'pdf-view-fit-page-to-window) (add-hook 'pdf-view-mode-hook 'pdf-view-fit-page-to-window)
(defun chris/display-line-numbers-off () (defun chris/display-line-numbers-off ()
(display-line-numbers-mode -1)) (display-line-numbers-mode -1))

18
init.el
View file

@ -1640,7 +1640,8 @@ Optional BACKEND must be `re-reveal' or a backend derived from it."
:host "ai.tfcconnection.org" :host "ai.tfcconnection.org"
:protocol "https" :protocol "https"
:stream t :stream t
:models '("llama3.1:latest"))) :models '("llama3.1:latest"))
gptel-default-mode #'org-mode)
(setq gptel-directives '((default (setq gptel-directives '((default
. "You are a large language model living in Emacs and a helpful assistant. Respond concisely.") . "You are a large language model living in Emacs and a helpful assistant. Respond concisely.")
(programming (programming
@ -3387,8 +3388,6 @@ targets."
("gg" "magit-status") ("gg" "magit-status")
("clear" "clear-scrollback") ("clear" "clear-scrollback")
("!!" "eshell-previous-input 2") ("!!" "eshell-previous-input 2")
("yay" "paru $1")
("yeet" "paru -Rns $1")
("nixs" "nix search nixpkgs $1") ("nixs" "nix search nixpkgs $1")
("myip" "curl icanhazip.com") ("myip" "curl icanhazip.com")
("ytd" "yt-dlp -o ~/Videos/%(title)s.%(ext)s $1") ("ytd" "yt-dlp -o ~/Videos/%(title)s.%(ext)s $1")
@ -3443,6 +3442,15 @@ targets."
:init :init
(add-hook 'eshell-load-hook #'eat-eshell-mode)) (add-hook 'eshell-load-hook #'eat-eshell-mode))
(use-package eshell-syntax-highlighting
:config
(eshell-syntax-highlighting-global-mode +1)
:init
(defface eshell-syntax-highlighting-invalid-face
'((t :inherit diff-error))
"Face used for invalid Eshell commands."
:group 'eshell-syntax-highlighting))
(setq vterm-buffer-name-string "vterm %s" (setq vterm-buffer-name-string "vterm %s"
vterm-shell "/run/current-system/sw/bin/nu") vterm-shell "/run/current-system/sw/bin/nu")
(defun chris/vterm-setup () (defun chris/vterm-setup ()
@ -3463,7 +3471,7 @@ targets."
(interactive) (interactive)
(let* ((copies (completing-read "How many copies: " '("1" "2" "3"))) (let* ((copies (completing-read "How many copies: " '("1" "2" "3")))
(sides (completing-read "Print both sides or one? " '("two sided" "one sided"))) (sides (completing-read "Print both sides or one? " '("two sided" "one sided")))
(pdf-misc-print-program-args `("-o media=Letter" ,(format "-# %s" copies) "-o fitplot" (pdf-misc-print-program-args `("-o media=Letter" ,(format "-# %s" copies) "-P Home" "-o fit-to-page"
,(if (string= sides "two sided") ,(if (string= sides "two sided")
"-o sides=two-sided-long-edge" "-o sides=two-sided-long-edge"
"")))) ""))))
@ -3471,7 +3479,7 @@ targets."
(pdf-misc-print-document (buffer-file-name) t))) (pdf-misc-print-document (buffer-file-name) t)))
(custom-set-variables '(pdf-misc-print-program-executable "lpr") (custom-set-variables '(pdf-misc-print-program-executable "lpr")
'(pdf-misc-print-program-args (quote ("-o media=Letter" "-o fitplot" "-o sides=two-sided-long-edge")))) '(pdf-misc-print-program-args (quote ("-o media=Letter" "-o fit-to-page" "-o sides=two-sided-long-edge"))))
(add-hook 'pdf-view-mode-hook 'pdf-view-fit-page-to-window) (add-hook 'pdf-view-mode-hook 'pdf-view-fit-page-to-window)
(defun chris/display-line-numbers-off () (defun chris/display-line-numbers-off ()
(display-line-numbers-mode -1)) (display-line-numbers-mode -1))