about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el11
-rw-r--r--lisp/acdw-org.el3
2 files changed, 10 insertions, 4 deletions
diff --git a/init.el b/init.el index 94d3aa5..11c9e71 100644 --- a/init.el +++ b/init.el
@@ -2117,23 +2117,26 @@ the default is \"/\"."
2117 minions) 2117 minions)
2118 (:also-load acdw-modeline) 2118 (:also-load acdw-modeline)
2119 (:option simple-modeline-segments 2119 (:option simple-modeline-segments
2120 ;; Yeah this is laid out like poo. It's so I can easily change
2121 ;; things around if need be.
2120 '((;; left 2122 '((;; left
2121 acdw-modeline/winum 2123 acdw-modeline/winum
2122 acdw-modeline/modified 2124 acdw-modeline/modified
2123 acdw-modeline/buffer-name 2125 acdw-modeline/buffer-name
2124 acdw-modeline/vc-branch 2126 acdw-modeline/vc-branch
2125 acdw-modeline/position) 2127 acdw-modeline/position
2126 (;; right 2128 acdw-modeline/wc
2129 ) (;; right
2127 acdw-modeline/track 2130 acdw-modeline/track
2128 simple-modeline-segment-misc-info 2131 simple-modeline-segment-misc-info
2129 acdw-modeline/wc
2130 acdw-modeline/text-scale 2132 acdw-modeline/text-scale
2131 simple-modeline-segment-process 2133 simple-modeline-segment-process
2132 acdw-modeline/god-mode-indicator 2134 acdw-modeline/god-mode-indicator
2133 acdw-modeline/minions 2135 acdw-modeline/minions
2134 acdw-modeline/reading-mode 2136 acdw-modeline/reading-mode
2135 acdw-modeline/narrowed 2137 acdw-modeline/narrowed
2136 acdw-modeline/major-mode))) 2138 acdw-modeline/major-mode
2139 )))
2137 2140
2138 (:option tab-bar-mode t 2141 (:option tab-bar-mode t
2139 tab-bar-show 1) 2142 tab-bar-show 1)
diff --git a/lisp/acdw-org.el b/lisp/acdw-org.el index f210301..96f3f69 100644 --- a/lisp/acdw-org.el +++ b/lisp/acdw-org.el
@@ -317,6 +317,9 @@ instead of the true count."
317 (goto-char (match-end 0))) 317 (goto-char (match-end 0)))
318 ;; Ignore source blocks 318 ;; Ignore source blocks
319 ((org-in-src-block-p) (forward-line)) 319 ((org-in-src-block-p) (forward-line))
320 ;; Ignore blank lines
321 ((looking-at "^$")
322 (forward-line))
320 ;; Count everything else 323 ;; Count everything else
321 (t 324 (t
322 ;; ... unless it's in a few weird contexts 325 ;; ... unless it's in a few weird contexts