aboutsummaryrefslogtreecommitdiff
path: root/emacs/.emacs.d/init/ycp-system.el
blob: 3d52d34876285482316bab4fef866446894b2ff5 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
;;; ycp-system.el -- My config for things working with the underlying system -*- lexical-binding: t -*-

;; Copyright (C) 2023 Free Software Foundation.

;; Author: Yuchen Pei <id@ypei.org>
;;         Protesilaos Stavrou <info@protesilaos.com>
;; Maintainer: Yuchen Pei <id@ypei.org>
;; Package-Requires: ((emacs "28.2"))

;; This file is part of dotfiles.

;; dotfiles is free software: you can redistribute it and/or modify it under
;; the terms of the GNU Affero General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; dotfiles is distributed in the hope that it will be useful, but WITHOUT
;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Affero General
;; Public License for more details.

;; You should have received a copy of the GNU Affero General Public
;; License along with dotfiles.  If not, see <https://www.gnu.org/licenses/>.

;;; Commentary:

;; My config for things working with the underlying system that do not
;; seem to be clients to system utilities. Covers process monitor,
;; tramp etc.

;;; Code:


;;; `proced' (process monitor, similar to `top')
(my-package proced
  (:delay 30)
  (setq proced-auto-update-flag t)
  (setq proced-auto-update-interval 5)
  (setq proced-descend t)
  (setq proced-filter 'user))

;;; `tramp'
(my-package tramp
  (:delay 15)
  (setq tramp-default-method "ssh")
  (setq explicit-shell-file-name "/bin/bash")
  (add-to-list 'tramp-remote-path 'tramp-own-remote-path)

  (connection-local-set-profile-variables
   'termux-bash
   '((explicit-shell-file-name . "/data/data/com.termux/files/usr/bin/bash")
     (shell-file-name . "/data/data/com.termux/files/usr/bin/bash")
     (tramp-remote-path . ("/data/data/com.termux/files/usr/bin"))))
  (connection-local-set-profiles
   `(:application tramp :protocol "ssh"
                  :machine ,(my-get-from-local my-tramp-termux-machine))
   'termux-bash)

  (connection-local-set-profile-variables
   'ghcup-bash
   '((tramp-remote-path . ("~/.ghcup/bin" "~/.local/bin" tramp-default-remote-path))))
  (connection-local-set-profiles
   `(:application tramp :protocol "ssh"
                  :machine ,(my-get-from-local my-tramp-ghcup-machine))
   'ghcup-bash)

  (connection-local-set-profile-variables
   'guix-bash
   '((explicit-shell-file-name . "/run/current-system/profile/bin/sh")
     (shell-file-name . "/run/current-system/profile/bin/sh")
     (tramp-remote-path . ("/run/current-system/profile/bin" "/run/current-system/profile/sbin"))))
  (connection-local-set-profiles
   `(:application tramp :protocol "ssh"
                  :machine ,(my-get-from-local my-tramp-guix-machine))
   'guix-bash)

  (connection-local-set-profile-variables
   'adb-shell
   '((explicit-shell-file-name . "/system/bin/sh")))
  (connection-local-set-profiles
   '(:application tramp :protocol "adb")
   'adb-shell))

(provide 'ycp-system)
;;; ycp-system.el ends here