diff options
-rw-r--r-- | init.el | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/init.el b/init.el index 4f355fd..bb3fff1 100644 --- a/init.el +++ b/init.el | |||
@@ -368,7 +368,8 @@ | |||
368 | ("n" . elpher-next-link) | 368 | ("n" . elpher-next-link) |
369 | ("p" . elpher-prev-link) | 369 | ("p" . elpher-prev-link) |
370 | ("o" . elpher-follow-current-link) | 370 | ("o" . elpher-follow-current-link) |
371 | ("G" . elpher-go-current))) | 371 | ("G" . elpher-go-current)) |
372 | :hook (elpher-mode-hook . variable-pitch-mode)) | ||
372 | 373 | ||
373 | (use-package gemini-mode | 374 | (use-package gemini-mode |
374 | :straight (gemini-mode | 375 | :straight (gemini-mode |
@@ -580,6 +581,26 @@ | |||
580 | 581 | ||
581 | ;;; eshell | 582 | ;;; eshell |
582 | 583 | ||
584 | (use-package eshell | ||
585 | :init | ||
586 | (defun eshell/emacs (&rest args) | ||
587 | "Open a file in emacs." | ||
588 | (if (null args) | ||
589 | (bury-buffer) | ||
590 | (mapc #'find-file | ||
591 | (mapcar #'expand-file-name | ||
592 | (eshell-flatten-list (reverse args)))))) | ||
593 | (defun eshell/info (&optional subject) | ||
594 | "Invoke `info', optionally opening Info to SUBJECT." | ||
595 | (require 'cl) | ||
596 | (let ((buf (current-buffer))) | ||
597 | (Info-directory) | ||
598 | (if (not (null subject)) | ||
599 | (let ((node-exists (ignore-errors (Info-menu subject)))) | ||
600 | (if (not node-exists) | ||
601 | (format "No menu item `%s' in node `(dir)Top'." | ||
602 | subject))))))) | ||
603 | |||
583 | (use-package eshell-syntax-highlighting | 604 | (use-package eshell-syntax-highlighting |
584 | :after esh-mode | 605 | :after esh-mode |
585 | :config | 606 | :config |