Some more small changes
This commit is contained in:
parent
dc789627c0
commit
96b64a144e
@ -859,7 +859,7 @@ Return a hash table mapping module names to their output."
|
||||
(defun eshell-starship--render-prompt ()
|
||||
"Actually produce the prompt."
|
||||
(concat
|
||||
(unless (< (line-number-at-pos) 3)
|
||||
(unless (<= (line-number-at-pos) 3)
|
||||
"\n")
|
||||
(eshell-starship--build-module-string)))
|
||||
|
||||
|
29
init.el
29
init.el
@ -3,10 +3,12 @@
|
||||
;;; Code:
|
||||
|
||||
;; Some other config files
|
||||
(add-to-list 'load-path "~/.emacs.d/elisp")
|
||||
(add-to-list 'load-path (expand-file-name "elisp" user-emacs-directory))
|
||||
(add-to-list 'load-path (expand-file-name "third-party" user-emacs-directory))
|
||||
|
||||
;; Set package dir to follow no-littering conventions
|
||||
(setq package-user-dir "~/.emacs.d/var/elpa")
|
||||
(setq package-user-dir (expand-file-name "var/elpa"
|
||||
user-emacs-directory))
|
||||
|
||||
;; Use melpa
|
||||
(require 'package)
|
||||
@ -22,7 +24,8 @@
|
||||
(eval-when-compile
|
||||
(require 'use-package)
|
||||
(setq use-package-always-ensure t
|
||||
package-user-dir "~/.emacs.d/var/elpa"))
|
||||
package-user-dir (expand-file-name "var/elpa"
|
||||
user-emacs-directory)))
|
||||
|
||||
;; no-littering
|
||||
(use-package no-littering
|
||||
@ -1291,8 +1294,7 @@ With PROJECT, give diagnostics for all buffers in the current project."
|
||||
|
||||
;; project.el
|
||||
(use-package project
|
||||
:bind (("C-c v" . my/project-eshell-or-default)
|
||||
([remap project-compile] . my/project-compile-or-default)
|
||||
:bind (([remap project-compile] . my/project-compile-or-default)
|
||||
:map project-prefix-map
|
||||
("s" . my/project-eshell)
|
||||
("u" . my/project-run))
|
||||
@ -1590,8 +1592,8 @@ otherwise, call `bibtex-find-text'."
|
||||
:mode 'web-mode)
|
||||
(define-innermode my/poly-php-innermode
|
||||
:mode 'php-mode
|
||||
:head-matcher "\<\?php"
|
||||
:tail-matcher "\?\>"
|
||||
:head-matcher (regexp-quote "<?php")
|
||||
:tail-matcher (regexp-quote "?>")
|
||||
:head-mode 'body
|
||||
:tail-mode 'body)
|
||||
(define-polymode my/poly-web-mode
|
||||
@ -1859,7 +1861,7 @@ argument."
|
||||
(sage-shell:read-command)))))
|
||||
|
||||
;; fricas (because I like calculators)
|
||||
(add-to-list 'load-path "/usr/lib/fricas/emacs/")
|
||||
(add-to-list 'load-path "/usr/lib/fricas/emacs")
|
||||
(use-package fricas
|
||||
:ensure nil
|
||||
:custom
|
||||
@ -2007,6 +2009,17 @@ If no name is given, list all bookmarks instead."
|
||||
(set-face-attribute 'eshell-starship-icon-face nil
|
||||
:family "FiraCode Nerd Font"))
|
||||
|
||||
(defun my/open-shell-dwim (&optional arg)
|
||||
"Open either an Eshell or eat terminal based on `default-directory'.
|
||||
If `default-directory' is remote, call `my/project-eat-or-default'. Otherwise,
|
||||
call `my/project-eshell-or-default'. ARG is the same as for either of the above
|
||||
functions (only eshell uses it at the time of writing)."
|
||||
(interactive "P")
|
||||
(if (file-remote-p default-directory)
|
||||
(my/project-eat-or-default)
|
||||
(my/project-eshell-or-default arg)))
|
||||
(keymap-global-set "C-c v" #'my/open-shell-dwim)
|
||||
|
||||
;; proced
|
||||
(use-package proced
|
||||
:bind ("C-x j" . proced)
|
||||
|
Loading…
Reference in New Issue
Block a user