Skip to content

Instantly share code, notes, and snippets.

@ryyppy
Created January 20, 2018 14:20
Show Gist options
  • Save ryyppy/d144ec73135191032111059db09dc419 to your computer and use it in GitHub Desktop.
Save ryyppy/d144ec73135191032111059db09dc419 to your computer and use it in GitHub Desktop.
bs-jest enter describe scope -> Emacs freeze
Debugger entered--Lisp error: (quit)
(let ((len (length str))) (and (> (point) len) (equal str (buffer-substring-no-properties (- (point) len) (point)))))
reason-looking-back-str("*/")
(if (reason-looking-back-str "*/") (backward-char))
(let ((starting (point))) (skip-chars-backward "[:space:]\n") (if (reason-looking-back-str "*/") (backward-char)) (if (reason-in-str-or-cmnt) (reason-rewind-past-str-cmnt)) (if (/= starting (point)) (reason-rewind-irrelevant)))
reason-rewind-irrelevant()
(while (and (= current-level (reason-paren-level)) (not (looking-at reason-binding))) (reason-rewind-irrelevant) (reason-rewind-to-beginning-of-current-level-expr))
(save-excursion (while (and (= current-level (reason-paren-level)) (not (looking-at reason-binding))) (reason-rewind-irrelevant) (reason-rewind-to-beginning-of-current-level-expr)) (+ (current-column) reason-indent-offset))
(let ((current-level (reason-paren-level))) (save-excursion (while (and (= current-level (reason-paren-level)) (not (looking-at reason-binding))) (reason-rewind-irrelevant) (reason-rewind-to-beginning-of-current-level-expr)) (+ (current-column) reason-indent-offset)))
(cond ((looking-at "switch") (current-column)) ((looking-at "|") (+ (current-column) (* reason-indent-offset 2))) (t (let ((current-level (reason-paren-level))) (save-excursion (while (and (= current-level (reason-paren-level)) (not (looking-at reason-binding))) (reason-rewind-irrelevant) (reason-rewind-to-beginning-of-current-level-expr)) (+ (current-column) reason-indent-offset)))))
(progn (backward-up-list) (reason-rewind-to-beginning-of-current-level-expr) (cond ((looking-at "switch") (current-column)) ((looking-at "|") (+ (current-column) (* reason-indent-offset 2))) (t (let ((current-level (reason-paren-level))) (save-excursion (while (and (= current-level ...) (not ...)) (reason-rewind-irrelevant) (reason-rewind-to-beginning-of-current-level-expr)) (+ (current-column) reason-indent-offset))))))
(if (save-excursion (reason-rewind-to-beginning-of-current-level-expr) (looking-at "<")) (progn (reason-rewind-to-beginning-of-current-level-expr) (current-column)) (progn (backward-up-list) (reason-rewind-to-beginning-of-current-level-expr) (cond ((looking-at "switch") (current-column)) ((looking-at "|") (+ (current-column) (* reason-indent-offset 2))) (t (let ((current-level (reason-paren-level))) (save-excursion (while (and ... ...) (reason-rewind-irrelevant) (reason-rewind-to-beginning-of-current-level-expr)) (+ (current-column) reason-indent-offset)))))))
(save-excursion (reason-rewind-irrelevant) (if (save-excursion (reason-rewind-to-beginning-of-current-level-expr) (looking-at "<")) (progn (reason-rewind-to-beginning-of-current-level-expr) (current-column)) (progn (backward-up-list) (reason-rewind-to-beginning-of-current-level-expr) (cond ((looking-at "switch") (current-column)) ((looking-at "|") (+ (current-column) (* reason-indent-offset 2))) (t (let ((current-level ...)) (save-excursion (while ... ... ...) (+ ... reason-indent-offset))))))))
(if (= 0 level) 0 (save-excursion (reason-rewind-irrelevant) (if (save-excursion (reason-rewind-to-beginning-of-current-level-expr) (looking-at "<")) (progn (reason-rewind-to-beginning-of-current-level-expr) (current-column)) (progn (backward-up-list) (reason-rewind-to-beginning-of-current-level-expr) (cond ((looking-at "switch") (current-column)) ((looking-at "|") (+ (current-column) (* reason-indent-offset 2))) (t (let (...) (save-excursion ... ...))))))))
(let* ((level (reason-paren-level)) (baseline (if (= 0 level) 0 (save-excursion (reason-rewind-irrelevant) (if (save-excursion (reason-rewind-to-beginning-of-current-level-expr) (looking-at "<")) (progn (reason-rewind-to-beginning-of-current-level-expr) (current-column)) (progn (backward-up-list) (reason-rewind-to-beginning-of-current-level-expr) (cond ... ... ...))))))) (cond ((looking-at "=>") (+ baseline reason-indent-offset)) ((reason-in-str-or-cmnt) (cond ((looking-at "*/") (+ baseline 1)) ((looking-at "*") (+ baseline 1)) (t (+ baseline (+ reason-indent-offset 1))))) ((looking-at "</") (- baseline reason-indent-offset)) ((looking-at "}\\|)\\|\\]") (save-excursion (reason-rewind-irrelevant) (let ((jsx\? (reason-looking-back-str ">"))) (backward-up-list) (reason-rewind-to-beginning-of-current-level-expr) (cond ((looking-at "switch") baseline) (jsx\? (current-column)) (t (- baseline reason-indent-offset)))))) ((and (nth 4 (syntax-ppss)) (looking-at "*")) (+ 1 baseline)) (t (or (if (> level 0) (progn (save-excursion (reason-rewind-irrelevant) (backward-up-list) (reason-align-to-expr-after-brace)))) (progn (back-to-indentation) (cond ((looking-at ...) baseline) ((save-excursion ... ...) baseline) ((save-excursion ... ...) (+ baseline reason-indent-offset)) ((looking-at "|\\|/[/*]") baseline) ((and ... ...) (+ baseline reason-indent-offset)) ((save-excursion ... ...) baseline) ((and ... ...) (save-excursion ... ... ...)) ((save-excursion ... ...) baseline) (t (save-excursion ... ... ...))))))))
(save-excursion (back-to-indentation) (let* ((level (reason-paren-level)) (baseline (if (= 0 level) 0 (save-excursion (reason-rewind-irrelevant) (if (save-excursion ... ...) (progn ... ...) (progn ... ... ...)))))) (cond ((looking-at "=>") (+ baseline reason-indent-offset)) ((reason-in-str-or-cmnt) (cond ((looking-at "*/") (+ baseline 1)) ((looking-at "*") (+ baseline 1)) (t (+ baseline (+ reason-indent-offset 1))))) ((looking-at "</") (- baseline reason-indent-offset)) ((looking-at "}\\|)\\|\\]") (save-excursion (reason-rewind-irrelevant) (let ((jsx\? ...)) (backward-up-list) (reason-rewind-to-beginning-of-current-level-expr) (cond (... baseline) (jsx\? ...) (t ...))))) ((and (nth 4 (syntax-ppss)) (looking-at "*")) (+ 1 baseline)) (t (or (if (> level 0) (progn (save-excursion ... ... ...))) (progn (back-to-indentation) (cond (... baseline) (... baseline) (... ...) (... baseline) (... ...) (... baseline) (... ...) (... baseline) (t ...))))))))
(let ((indent (save-excursion (back-to-indentation) (let* ((level (reason-paren-level)) (baseline (if ... 0 ...))) (cond ((looking-at "=>") (+ baseline reason-indent-offset)) ((reason-in-str-or-cmnt) (cond ... ... ...)) ((looking-at "</") (- baseline reason-indent-offset)) ((looking-at "}\\|)\\|\\]") (save-excursion ... ...)) ((and ... ...) (+ 1 baseline)) (t (or ... ...))))))) (if indent (progn (if (<= (current-column) (current-indentation)) (indent-line-to indent) (save-excursion (indent-line-to indent))))))
reason-mode-indent-line()
indent-according-to-mode()
evil-open-below(1)
funcall-interactively(evil-open-below 1)
call-interactively(evil-open-below nil nil)
command-execute(evil-open-below)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment