Skip to content

Commit

Permalink
nothing
Browse files Browse the repository at this point in the history
  • Loading branch information
al3xandru committed Apr 4, 2016
1 parent 83f818d commit 9795a06
Showing 1 changed file with 11 additions and 11 deletions.
22 changes: 11 additions & 11 deletions taskpaper-mode.el
Original file line number Diff line number Diff line change
Expand Up @@ -81,24 +81,14 @@
("^ *[^- ].*[^:]$" . font-lock-doc-face)
))

(defvar taskpaper-mode-syntax-table
(let ((syntax-table (make-syntax-table)))
(modify-syntax-entry ?\" "w" syntax-table)
(modify-syntax-entry ?- "_" syntax-table)
(modify-syntax-entry ?@ "." syntax-table)
(modify-syntax-entry ?< "." syntax-table)
(modify-syntax-entry ?> "." syntax-table)
syntax-table)
"Syntax table in use in `taskpaper-mode' buffers.")

(defvar taskpaper-mode-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "<S-return>") 'taskpaper-focus-selected-project)
(define-key map (kbd "<S-backspace>") 'taskpaper-unfocus-project)
(define-key map (kbd "C-c d") 'taskpaper-toggle-done)
(define-key map (kbd "C-c l") 'taskpaper-choose-project)
map)
" Keymap for `taskpaper-mode'")
"Keymap for `taskpaper-mode'")

;;;###autoload
(define-derived-mode taskpaper-mode text-mode "TaskPaper"
Expand Down Expand Up @@ -216,6 +206,16 @@
(interactive)
(add-text-properties 1 (point-max) '(invisible nil)))

(defvar taskpaper-mode-syntax-table
(let ((syntax-table (make-syntax-table)))
(modify-syntax-entry ?- "_" syntax-table)
(modify-syntax-entry ?@ "." syntax-table)
(modify-syntax-entry ?< "." syntax-table)
(modify-syntax-entry ?> "." syntax-table)
(modify-syntax-entry ?\" "w" syntax-table)
syntax-table)
"Syntax table in use in `taskpaper-mode' buffers.")

;;;###autoload
(add-to-list 'auto-mode-alist '("\\.taskpaper$" . taskpaper-mode))

Expand Down

0 comments on commit 9795a06

Please sign in to comment.