From 73bd6e9bd92fa57877f2d894f43725a4a0abf1a8 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Wed, 21 Sep 2022 13:51:30 +1000 Subject: fix a fixme Make sure all definitions have an `hcel-' prefix. --- hcel-utils.el | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) (limited to 'hcel-utils.el') diff --git a/hcel-utils.el b/hcel-utils.el index 686da8d..2c3d51f 100644 --- a/hcel-utils.el +++ b/hcel-utils.el @@ -75,11 +75,10 @@ Example of an idSrcSpan: (col-beg (alist-get 'column (alist-get 'start span))) (line-end (alist-get 'line (alist-get 'end span))) (col-end (alist-get 'column (alist-get 'end span)))) - (buffer-substring-line-column line-beg (1- col-beg) line-end (1- col-end)))) + (hcel- buffer-substring-line-column line-beg (1- col-beg) line-end (1- col-end)))) -;; FIXME: Make sure all your definitions have an `hcel-' prefix! ;; buffers and strings manipulation -(defun goto-line-column (line column) +(defun hcel-goto-line-column (line column) (goto-line line) (move-to-column column)) @@ -95,13 +94,13 @@ Example of an idSrcSpan: (replace-regexp-in-string "<" "<" html)))))) -(defun buffer-substring-line-column (line-beg col-beg line-end col-end) +(defun hcel-buffer-substring-line-column (line-beg col-beg line-end col-end) (save-excursion (buffer-substring - (progn (goto-line-column line-beg col-beg) (point)) - (progn (goto-line-column line-end col-end) (point))))) + (progn (hcel-goto-line-column line-beg col-beg) (point)) + (progn (hcel-goto-line-column line-end col-end) (point))))) -(defun fontify-with-haskell-mode () +(defun hcel-fontify-with-haskell-mode () "Fontify using haskell-mode" (require 'haskell) (let ((text (buffer-string))) @@ -115,12 +114,12 @@ Example of an idSrcSpan: (erase-buffer) (insert text))) -(defun remove-html-markup (html) +(defun hcel-remove-html-markup (html) (replace-regexp-in-string "<.*?>" "" (replace-regexp-in-string "

" "\n\n" html))) -(defun fill-string (text) +(defun hcel-fill-string (text) (with-temp-buffer (insert text) (fill-region (point-min) (point-max)) -- cgit v1.2.3