Ignore empty line before element

.gitignore

@@ -0,0 +1 @@
+.cask/

Cask

@@ -0,0 +1,10 @@
+(source gnu)
+(source melpa)
+
+(package-file "./yafolding.el")
+
+(development
+ (depends-on "f")
+ (depends-on "ecukes")
+ (depends-on "ert-runner")
+ (depends-on "el-mock"))

README.md

@@ -79,3 +79,11 @@ along with this program. If not, see <https://www.gnu.org/licenses/>.
 ## Debug
 
 - [Using Edebug](https://www.gnu.org/software/emacs/manual/html_node/elisp/Using-Edebug.html#Using-Edebug)
+
+## Testing
+
+For testing, use [ecukes][https://github.com/ecukes/ecukes], installed
+by [Cask](https://github.com/cask/cask). The tests are in the
+[features](./features/) subdirectory, test data is in the
+[data](./test/data) dir. Running tests can be done by issueing `cask
+exec ecukes --[no-]win`.

features/step-definitions/yafolding-steps.el

@@ -0,0 +1,33 @@
+;; This file contains your project specific step definitions. All
+;; files in this directory whose names end with "-steps.el" will be
+;; loaded automatically by Ecukes.
+
+(Given "^I have an empty buffer$"
+ (lambda () (erase-buffer)))
+
+(When "^I call yafolding-hide-all$"
+ (lambda () (yafolding-hide-all)))
+
+(Then "^I should have an empty buffer$"
+ (lambda () (should (= (point-min) (point-max) 1))))
+
+(Given "^I have a buffer with \"\\([^\"]+\\)\"$"
+ (lambda (filename)
+ (erase-buffer)
+ (insert-file-contents filename)))
+
+(And "^I \\(?:am on\\|go to\\) line \\([0-9]+\\)$"
+ (lambda (line) (goto-line (string-to-number line))))
+
+(And "^I call yafolding-hide-element$"
+ (lambda () (yafolding-hide-element)))
+
+(Then "^I should see \\(?:only \\)?\\([0-9]+\\) lines?$"
+ (lambda (num-lines)
+ (save-excursion
+ (beginning-of-buffer)
+ (next-line (string-to-number num-lines))
+ (should (= (line-number-at-pos (point))
+ (line-number-at-pos (point-max)))))))
+
+;; End of steps file

features/support/env.el

@@ -0,0 +1,32 @@
+(require 'f)
+
+(defvar yafolding-support-path
+ (f-dirname load-file-name))
+
+(defvar yafolding-features-path
+ (f-parent yafolding-support-path))
+
+(defvar yafolding-root-path
+ (f-parent yafolding-features-path))
+
+(add-to-list 'load-path yafolding-root-path)
+
+(require 'yafolding)
+(require 'espuds)
+(require 'ert)
+
+(Setup
+ ;; Before anything has run
+ )
+
+(Before
+ ;; Before each scenario is run
+ )
+
+(After
+ ;; After each scenario is run
+ )
+
+(Teardown
+ ;; After when everything has been run
+ )

features/yafolding.feature

@@ -0,0 +1,23 @@
+Feature: Fold all lines
+ In order to be able to visualize the outline of my file
+ As a user
+ I want to be able to fold all elements at once
+
+ Scenario: Empty buffers are not changed
+ Given I have an empty buffer
+ When I call yafolding-hide-all
+ Then I should have an empty buffer
+
+ Scenario: Test file from issue #23 should collapse correctly
+ Given I have a buffer with "test/data/issue-23.txt"
+ And I am on line 2
+ When I call yafolding-hide-all
+ And I go to line 1
+ And I call yafolding-hide-element
+ Then I should see only 1 line
+
+ Scenario: Elements after empty lines should collapse correctly
+ Given I have a buffer with "test/data/issue-29.txt"
+ And I am on line 3
+ When I call yafolding-hide-all
+ Then I should see 5 lines

test/data/issue-29.txt

@@ -0,0 +1,10 @@
+* Level 0
+
+ * Level 1
+ * Level 2
+ * Level 2
+ * Level 2
+
+ * Level 1 again
+ * Level 2
+ * Level 2

yafolding.el

@@ -105,7 +105,8 @@
  (goto-char (point-min))
  (while (< (line-number-at-pos)
  (line-number-at-pos (point-max)))
- (if (= (yafolding-get-indent-level) indent-level)
+ (if (and (= (yafolding-get-indent-level) indent-level)
+ (not (yafolding-should-ignore-current-line-p)))
  (yafolding-hide-element))
  (forward-line 1))))