Thanks to visit codestin.com
Credit goes to github.com

Skip to content

Add capability to navigate each section #365

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 3 commits into from
Mar 26, 2022
Merged

Add capability to navigate each section #365

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
bdb8337
Add capability to navigation each section
jcs090218 Mar 26, 2022
6c81251
Update changelog
jcs090218 Mar 26, 2022
bb2b7f9
Add header for each code section
jcs090218 Mar 26, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
1 change: 1 addition & 0 deletions CHANGELOG.md
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -36,6 +36,7 @@ Check [Keep a Changelog](http://keepachangelog.com/) for recommendations on how
* Correct straight.el package count (#354)
* Lazy load modules specify in dashboard buffer (#359)
* Clean up zombie project for project.el (#363)
* Add capability to navigate each section (#365)

## 1.7.0
> Released Feb 21, 2020
Expand Down
84 changes: 81 additions & 3 deletions dashboard.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -47,6 +47,16 @@
(define-key map [mouse-1] 'dashboard-mouse-1)
(define-key map (kbd "}") #'dashboard-next-section)
(define-key map (kbd "{") #'dashboard-previous-section)

(define-key map (kbd "1") #'dashboard-section-1)
(define-key map (kbd "2") #'dashboard-section-2)
(define-key map (kbd "3") #'dashboard-section-3)
(define-key map (kbd "4") #'dashboard-section-4)
(define-key map (kbd "5") #'dashboard-section-5)
(define-key map (kbd "6") #'dashboard-section-6)
(define-key map (kbd "7") #'dashboard-section-7)
(define-key map (kbd "8") #'dashboard-section-8)
(define-key map (kbd "9") #'dashboard-section-9)
map)
"Keymap for dashboard mode.")

Expand Down Expand Up @@ -78,12 +88,15 @@
(defconst dashboard-buffer-name "*dashboard*"
"Dashboard's buffer name.")

(defvar dashboard--section-starts nil
"List of section starting positions.")

(defvar dashboard-force-refresh nil
"If non-nil, force refresh dashboard buffer.")

(defvar dashboard--section-starts nil
"List of section starting positions.")

;;
;; Navigation
;;
(defun dashboard-previous-section ()
"Navigate back to previous section."
(interactive)
Expand All @@ -109,6 +122,65 @@
(when next-section-start
(goto-char next-section-start))))

(defun dashboard--goto-line (ln)
"Goto LN."
(goto-char (point-min)) (forward-line (1- ln)))

(defun dashboard--current-section ()
"Return section symbol in dashboard."
(save-excursion
(if (and (search-backward dashboard-page-separator nil t)
(search-forward dashboard-page-separator nil t))
(let ((ln (thing-at-point 'line)))
(cond ((string-match-p "Recent Files:" ln) 'recents)
((string-match-p "Bookmarks:" ln) 'bookmarks)
((string-match-p "Projects:" ln) 'projects)
((string-match-p "Agenda for " ln) 'agenda)
((string-match-p "Registers:" ln) 'registers)
((string-match-p "List Directories:" ln) 'ls-directories)
((string-match-p "List Files:" ln) 'ls-files)
(t (user-error "Unknown section from dashboard"))))
(user-error "Failed searching dashboard section"))))

(defun dashboard--section-lines ()
"Return a list of integer represent the starting line number of each section."
(let (pb-lst)
(save-excursion
(goto-char (point-min))
(while (search-forward dashboard-page-separator nil t)
(when (ignore-errors (dashboard--current-section))
(push (line-number-at-pos) pb-lst))))
(setq pb-lst (reverse pb-lst))
pb-lst))

(defun dashboard--goto-section (index)
"Navigate to item section by INDEX."
(let* ((pg-lst (dashboard--section-lines))
(items-id (1- index))
(items-pg (nth items-id pg-lst))
(items-len (length pg-lst)))
(when (and items-pg (< items-id items-len))
(dashboard--goto-line items-pg))))

(defun dashboard-section-1 ()
"Navigate to section 1." (interactive) (dashboard--goto-section 1))
(defun dashboard-section-2 ()
"Navigate to section 2." (interactive) (dashboard--goto-section 2))
(defun dashboard-section-3 ()
"Navigate to section 3." (interactive) (dashboard--goto-section 3))
(defun dashboard-section-4 ()
"Navigate to section 4." (interactive) (dashboard--goto-section 4))
(defun dashboard-section-5 ()
"Navigate to section 5." (interactive) (dashboard--goto-section 5))
(defun dashboard-section-6 ()
"Navigate to section 6." (interactive) (dashboard--goto-section 6))
(defun dashboard-section-7 ()
"Navigate to section 7." (interactive) (dashboard--goto-section 7))
(defun dashboard-section-8 ()
"Navigate to section 8." (interactive) (dashboard--goto-section 8))
(defun dashboard-section-9 ()
"Navigate to section 9." (interactive) (dashboard--goto-section 9))

(defun dashboard-previous-line (arg)
"Move point up and position it at that line’s item.
Optional prefix ARG says how many lines to move; default is one line."
Expand All @@ -129,6 +201,9 @@ Optional prefix ARG says how many lines to move; default is one line."
(forward-char (if (and arg (< arg 0)) -1 1)))
(beginning-of-line-text))

;;
;; Confirmation
;;
(defun dashboard-return ()
"Hit return key in dashboard buffer."
(interactive)
Expand Down Expand Up @@ -157,6 +232,9 @@ Optional prefix ARG says how many lines to move; default is one line."
(when (call-interactively #'widget-button-click)
(setq track-mouse old-track-mouse))))

;;
;; Insertion
;;
(defun dashboard-maximum-section-length ()
"For the just-inserted section, calculate the length of the longest line."
(let ((max-line-length 0))
Expand Down