diff options
| -rw-r--r-- | init.org | 148 |
1 files changed, 7 insertions, 141 deletions
@@ -908,79 +908,6 @@ calendar-daylight-time-zone-name))))) #+END_SRC *** Weather -***** Metar - #+BEGIN_SRC emacs-lisp - (use-package metar - :ensure t - :config - (setq jao-metar-station - (car (metar-find-station-by-latitude/longitude (calendar-latitude) - (calendar-longitude)))) - (defun jao-metar-wind-direction (degrees pref) - (if (numberp degrees) - (concat pref (cond ((< 350 degrees 10) "N") - ((<= 10 degrees 80) "NE") - ((< 80 degrees 100) "E") - ((<= 100 degrees 170) "SE") - ((< 170 degrees 190) "S") - ((<= 190 degrees 260) "SW") - ((< 260 degrees 280) "W") - ((<= 280 degrees 350) "NW") - (t (number-to-string degrees)))) - "")) - - (defvar jao-metar-phenomena-alist - '(("clear" . "š£") - ("sunny" . "š£") - ("fair" . "š£") - ("ice crystals" . "ā") - ("light snow" . "šØ") - ("snow" . "šØ") - ("mostly clear" . "š¤") - ("mostly sunny" . "š¤") - ("partly sunny" . "ā
") - ("obscured" . "š") - ("cloudy" . "ā") - ("overcast" . "ā") - ("partly cloudy" . "ā
") - ("mostly cloudy" . "ā") - ("considerable cloudiness" . "ā"))) - - (defun jao-metar--phenomena (ph) - (if-let ((i (cdr (assoc-string (downcase (or ph "")) - jao-metar-phenomena-alist)))) - (format "%s %s" ph i) - ph)) - - (defun jao-metar () - (interactive) - (let* ((rec (metar-get-record jao-metar-station)) - (info (metar-decode rec)) - (ph (or (metar-phenomena (cdr rec)) - (cdr (assoc 'phenomena info)))) - (tm (when info - (float-time (time-since (cdr (assoc 'timestamp info)))))) - (mins (when tm (/ (truncate tm) 60)))) - (message "%s" info) - (if info - (message "%s: %dĀ°%c, %s%d%% humidity, %d km/h%s, %.1f %S (%s)" - jao-metar-station - (cadr (assoc 'temperature info)) - (cond - ((eq (cdr (assq 'temperature metar-units)) 'degC) ?C) - ((eq (cdr (assq 'temperature metar-units)) 'degF) ?F)) - (if ph (format "%s " (jao-metar--phenomena ph)) "") - (cadr (assoc 'humidity info)) - (truncate (car (plist-get (cdr (assoc 'wind info)) :speed))) - (jao-metar-wind-direction - " " - (car (plist-get (cdr (assoc 'wind info)) :direction))) - (cadr (assoc 'pressure info)) - (cddr (assoc 'pressure info)) - (format "%d mins old" mins)) - (message "No weather information found, sorry.")))) - :bind (("<f5>" . jao-metar))) - #+END_SRC ***** winttr #+begin_src emacs-lisp (defun jao-weather (&optional wide) @@ -994,9 +921,6 @@ (progn (pop-to-buffer b) (vterm-send-string "clear;curl wttr.in\n")) (jao-exec-in-vterm "curl wttr.in" "*wttr*")))) - #+end_src -***** keybidings - #+begin_src emacs-lisp (global-set-key (kbd "<f5>") #'jao-weather) #+end_src *** Timers @@ -1030,8 +954,8 @@ (require 'wgrep) #+end_src *** dired - - [[https://www.masteringemacs.org/article/working-multiple-files-dired][Working with multiple files in dired - Mastering Emacs]] - #+BEGIN_SRC emacs-lisp + - [[https://www.masteringemacs.org/article/working-multiple-files-dired][Working with multiple files in dired - Mastering Emacs]] + #+begin_src emacs-lisp (require 'dired) (require 'dired-x nil t) (put 'dired-find-alternate-file 'disabled nil) @@ -1054,16 +978,9 @@ #+END_SRC ***** Dired packages #+BEGIN_SRC emacs-lisp - ;; colorful dired - (use-package diredfl - :ensure t - :disabled t - :config (diredfl-global-mode 1)) - (use-package dired-git-info :ensure t :bind (:map dired-mode-map (")" . dired-git-info-mode))) - #+END_SRC * General editing *** Completion @@ -2133,7 +2050,7 @@ :ensure t :bind (("C-x v p" . git-messenger:popup-message))) - (use-package gist :ensure t :disabled t) + (use-package gist :ensure t) (use-package git-timemachine :ensure t) @@ -2280,17 +2197,8 @@ #'next-error-buffer-on-selected-frame next-error-verbose t) #+end_src -*** Flycheck/make +*** Flymake #+begin_src emacs-lisp - (use-package flycheck - :disabled t - :ensure t - :config - (jao-define-attached-buffer "^\\*Flycheck error.*\\*\\'") - :custom ((flycheck-mode-line-prefix "Ļ") - (flycheck-keymap-prefix (kbd "s-f"))) - :hook (prog-mode . flycheck-mode)) - (use-package flymake :ensure t :custom ((flymake-mode-line-format '(" " flymake-mode-line-counters))) @@ -2301,9 +2209,8 @@ ("s-f i" . flymake-show-diagnostic) ("s-f f" . flymake-show-diagnostics-buffer) ("s-f l" . consult-flymake)))) - #+end_src -*** Language servers +*** Eglot #+begin_src emacs-lisp (use-package eglot :ensure t @@ -2311,46 +2218,9 @@ (elixir-mode . eglot))) (jao-define-attached-buffer "\\*eldoc\\( .*\\)?\\*" 0.33) - - (use-package yasnippet - :disabled t - :ensure t - :hook ((erlang-mode . yas-minor-mode-on) - (erlixir-mode . yas-minor-mode-on)) - :diminish ((yas-minor-mode . ""))) - - (use-package lsp-mode - :disabled t - :ensure t - :commands (lsp lsp-deferred) - :custom (lsp-auto-guess-root t) - :config - (jao-define-attached-buffer "\\*lsp-help\\*" 33) - :hook ((haskell-mode . lsp) - (elixir-mode . lsp) - (erlang-mode . lsp)) - :diminish " š") - - (use-package lsp-haskell - :disabled t - :ensure t) - - (use-package dante - :disabled t - :ensure t - :after haskell-mode - :commands 'dante-mode - :config - (flycheck-add-next-checker 'haskell-dante '(info . haskell-hlint)) - (setq dante-methods '(new-build bare-cabal)) - :hook ((haskell-mode . dante-mode))) #+end_src * Programming languages *** Elisp - Reporting bugs - #+begin_src emacs-lisp - (use-package debbugs :ensure t :disabled t) - #+end_src Some helper packages #+BEGIN_SRC emacs-lisp (use-package edit-list :ensure t) @@ -2756,17 +2626,13 @@ *** Python ***** Virtual envs (with eshell support) See also [[https://github.com/porterjamesj/virtualenvwrapper.el][the docs]]. - #+BEGIN_SRC emacs-lisp + #+begin_src emacs-lisp (use-package virtualenvwrapper :ensure t :config (venv-initialize-eshell) (jao-compilation-env "VIRTUAL_ENV")) - #+END_SRC -***** Python notebooks (ein) - #+BEGIN_SRC emacs-lisp - (use-package ein :ensure t :disabled t) - #+END_SRC + #+end_src *** Coq #+begin_src emacs-lisp :load no (use-package proof-general |