tristan/gptel
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix top-buffer snippets not being added

Browse source
This commit is contained in:
daedsidog 2024-03-16 02:13:57 +02:00
parent 21b5a22c7e
commit 4e8b91670a
1 changed files with 28 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

57
gptel-contexter.el
View file

@ -409,35 +409,34 @@ REGIONS is a list of pairs of (start, end) lists."
;; We do not need to insert a line number indicator on
;; inline regions.
(unless (or region-inline region-continuous
(insert (format " (Line %d)" lineno))))
(setq is-top-snippet nil))
(if is-top-snippet
(setq is-top-snippet nil)
(when (and (not region-inline)
(not region-continuous))
(insert "\n")))
(let (substring)
(with-current-buffer buffer
(setq substring
(if compress-code
(gptel--compress-code
(buffer-substring start end)
major-mode)
(buffer-substring start end))))
(let (ss-start ss-end)
(setq ss-start (point))
(insert substring)
(setq ss-end (point))
;; Save the context as a text property, so
;; that we may later be able to delete the
;; context snippet from the context buffer.
(put-text-property
ss-start ss-end
'gptel--context
(cons buffer
(list
(list start end)))))))
(setq previous-region (cons start end)))))
(insert (format " (Line %d)" lineno))))))
(if is-top-snippet
(setq is-top-snippet nil)
(when (and (not region-inline)
(not region-continuous))
(insert "\n")))
(let (substring)
(with-current-buffer buffer
(setq substring
(if compress-code
(gptel--compress-code
(buffer-substring start end)
major-mode)
(buffer-substring start end))))
(let (ss-start ss-end)
(setq ss-start (point))
(insert substring)
(setq ss-end (point))
;; Save the context as a text property, so
;; that we may later be able to delete the
;; context snippet from the context buffer.
(put-text-property
ss-start ss-end
'gptel--context
(cons buffer
(list
(list start end)))))))
(setq previous-region (cons start end))))
(unless (= (cl-second (car (last regions))) buffer-point-max)
(insert "\n..."))
(insert "\n```"))