Re: [O] Bug: org-in-src-block-p always returns nil [8.2.7b (8.2.7b-1-ga5beff-elpaplus @ /Users/ryan/.emacs.d/.cask/24.3.1/elpa/org-plus-contrib-20140714/)]

[Ryan]

Actually, my implementation has a bug. org-element-at-point also 
returns the element if point is actually on one of the blank lines 
between that element and the next. So I've rewritten it to handle that 
case by computing the content end position and comparing point to that.

(defun org-in-src-block-p (&optional inside)
 "Whether point is in a code source block.
When INSIDE is non-nil, don't consider we are within a src block
when point is at #+BEGIN_SRC or #+END_SRC."
 (save-match-data
   (let* ((elem (org-element-at-point))
          (elem-type (car elem))
          (props (cadr elem))
          (end (plist-get props :end))
          (pb (plist-get props :post-blank))
          (content-end
           (save-excursion
             (goto-char end)
             (forward-line (- pb))
             (point)))
          (case-fold-search t))
     (and
      ;; Elem is a src block
      (eq elem-type 'src-block)
      ;; Make sure point is not on one of the blank lines after the
      ;; element.
      (< (point) content-end)
      ;; If INSIDE is non-nil, then must not be at block delimiter
      (not
       (and
        inside
        (save-excursion
          (beginning-of-line)
          (looking-at ".*#\\+\\(begin\\|end\\)_src"))))))))


On Thu Aug  7 15:36:00 2014, Ryan wrote:
> Remember to cover the basics, that is, what you expected to happen and
> what in fact did happen. You don't know how to make a good report? See
>
> http://orgmode.org/manual/Feedback.html#Feedback
>
> Your bug report will be posted to the Org-mode mailing list.
> ------------------------------------------------------------------------
>
> I was doing some programming and wanted to use the result of
> org-in-src-block-p. I discovered that this function always returned nil,
> because for some reason (overlays-at (point)) was always returning nil
> everywhere that I tried it, including inside src blocks. So I rewrote
> org-in-src-block-p to use org-element-at-point instead of looking at
> overlays at point. My new implementation is below:
>
> (defun org-in-src-block-p (&optional inside)
> "Whether point is in a code source block.
> When INSIDE is non-nil, don't consider we are within a src block
> when point is at #+BEGIN_SRC or #+END_SRC."
> (and
> ;; In a src block
> (eq (car (org-element-at-point))
> 'src-block)
> ;; Not at block delimiter, if requested
> (not
> (and
> inside
> (let ((case-fold-search t))
> (save-match-data
> (save-excursion
> (beginning-of-line)
> (looking-at ".*#\\+\\(begin\\|end\\)_src"))))))))
>
>
> Emacs : GNU Emacs 24.3.1 (x86_64-apple-darwin13.2.0, NS
> apple-appkit-1265.20)
> of 2014-06-01 on tennine-slave.macports.org
> Package: Org-mode version 8.2.7b (8.2.7b-1-ga5beff-elpaplus @
> /Users/ryan/.emacs.d/.cask/24.3.1/elpa/org-plus-contrib-20140714/)
>
> current state:
> ==============
> (setq
> org-tab-first-hook '(org-hide-block-toggle-maybe
> org-src-native-tab-command-maybe
> org-babel-hide-result-toggle-maybe org-babel-header-arg-expand)
> org-speed-command-hook '(org-speed-command-default-hook
> org-babel-speed-command-hook)
> org-occur-hook '(org-first-headline-recenter)
> org-metaup-hook '(org-babel-load-in-session-maybe)
> org-confirm-shell-link-function 'yes-or-no-p
> org-support-shift-select t
> org-after-todo-state-change-hook '(org-clock-out-if-current)
> org-from-is-user-regexp "\\<Ryan C\\. Thompson\\>"
> org-src-mode-hook '(org-src-babel-configure-edit-buffer
> org-src-mode-configure-edit-buffer)
> org-agenda-before-write-hook '(org-agenda-add-entry-text)
> org-babel-pre-tangle-hook '(save-buffer)
> org-mode-hook '(#[nil "\300\301\302\303\304$\207"
> [org-add-hook change-major-mode-hook org-show-block-all append
> local]
> 5]
> #[nil "\300\301\302\303\304$\207"
> [org-add-hook change-major-mode-hook org-babel-show-result-all
> append local]
> 5]
> org-babel-result-hide-spec org-babel-hide-all-hashes)
> org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point
> org-babel-execute-safely-maybe)
> org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
> org-cycle-hide-inline-tasks org-cycle-show-empty-lines
> org-optimize-window-after-visibility-change)
> org-confirm-elisp-link-function 'yes-or-no-p
> org-metadown-hook '(org-babel-pop-to-session-maybe)
> org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
> )