Suggestion: add an extension point to inhibit eval line about literate-calc-mode.el HOT 2 CLOSED

(defgroup literate-calc-mode nil
  "Display calc results in buffers via overlays."
  :group 'editing
  :prefix "literate-calc-mode-")

(defcustom literate-calc-mode-inhibit-line-functions '(literate-calc-mode--default-inhibit-line-function)
  "Hook functions called for each line to test whether to inhibit calculation.

If any of these functions return non-nil, overlays will not be displayed."
  :group 'literate-calc-mode
  :type 'hook)

(defun literate-calc-mode--default-inhibit-line-function ()
  ;; TODO: default implementation
  )

(defun literate-calc-eval-buffer ()
  "Evaluate all calc expressions in the current buffer in order."
  (interactive)
  (literate-calc-clear-overlays)
  (unless (string-empty-p (buffer-string))
    (save-excursion
      (goto-char (point-min))
      (let ((buffer-line-count (count-lines (point-min) (point-max)))
            (line-number 1))
        (while (<= line-number buffer-line-count)
          ;; NOTE: We call the hook here to selectively inhibit interpreting the line.
          (unless (run-hook-with-args-until-success 'literate-calc-mode-inhibit-line-functions)
            (let ((binding (literate-calc--process-line (thing-at-point 'line)
                                                        literate-calc--scope)))
              (literate-calc--add-binding binding)))
          (setq line-number (1+ line-number))
          (forward-line 1))))))

(defun my/in-org-src-block-p ()
  (when (derived-mode-p 'org-mode)
    (org-in-src-block-p)))

(add-hook 'literate-calc-mode-inhibit-line-functions #'my/in-org-src-block-p)