hn-classics/_stories/2004/12854336.md

186 lines
5.3 KiB
Markdown

---
created_at: '2016-11-02T13:17:42.000Z'
title: Emacs standing alone on a Linux Kernel (2004)
url: http://www.informatimago.com/linux/emacs-on-user-mode-linux.html
author: Ivoah
points: 178
story_text:
comment_text:
num_comments: 62
story_id:
story_title:
story_url:
parent_id:
created_at_i: 1478092662
_tags:
- story
- author_Ivoah
- story_12854336
objectID: '12854336'
year: 2004
---
[Source](http://www.informatimago.com/linux/emacs-on-user-mode-linux.html "Permalink to Emacs standing alone on a Linux Kernel")
# Emacs standing alone on a Linux Kernel
* * *
| [Contents][1] | [Home][2] | [Previous][3] | [Up][4] | [Next][5] |
* * *
[Jump to Emacs as shell][6]
# Emacs standing alone on a Linux Kernel
The purpose of this experiment is to see how emacs can work alone over a linux kernel.
The only external tool needed is `mount`.
This "root_fs_emacs" could be used as a normal partition or on live CD, but for this experiment, we'll run it with [User Mode Linux][7].
## 1- Initialize a root_fs with at least 150 MB
cd ~/uml
dd if=/dev/zero of=root_fs_emacs bs=1k count=200k
yes y|mke2fs root_fs_emacs
mkdir /emacs
mount -o loop root_fs_emacs /emacs
cd /emacs
ln -s . emacs # we create this link to simplify config --prefix of emacs
cp -a /dev dev # we boldly copy the whole /dev
mkdir etc sbin tmp # some other directories not installed by emacs
cat >etc/fstab <<EOF
/dev/ubd0 / ext2 defaults 0 1
EOF
## 2- Compile an emacs without X and statically
cd ~/src
tar jxvf emacs-21.3.tar.bz2
cd emacs-21.3
CFLAGS=-static LDFLAGS=-static ./configure --without-x --prefix=/emacs
make && make install
## 3- Install emacs as /sbin/init
cd /emacs
ln bin/emacs sbin/init
cat >.emacs <<EOF
(message "init starting")
(setq auto-save-interval 0)
(defun shutdown ()
(interactive)
(when (yes-or-no-p "Really shut down the system? ")
;; actually, kill-emacs signals emacs ie. init, which makes linux panic.
(kill-emacs)))
(global-set-key "C-xC-c" 'shutdown)
(global-set-key "^" 'keyboard-quit) ;; strangely, C-g does not work.
(call-process "/bin/mount" nil "*log*" t "-n" "-o" "rw,remount" "/")
(if (file-exists-p "/etc/mtab") (delete-file "/etc/mtab"))
(call-process "/bin/mount" nil "*log*" t "-f" "/dev/ubd0" "/")
(message "init done")
EOF
## 4- Compile mount statically
cd ~/src
tar jxvf util-linux-2.12a.tar.bz2
cd util-linux-2.12a
CFLAGS=-static LDFLAGS=-static ./configure
make && install -m 755 mount/umount mount/mount /emacs/bin/
## 5- Boot linux
cd ~/uml
umount /emacs
linux ubd0=root_fs_emacs
Now, you can launch an emacs shell with
M-x eshell RET
ls -l RET
and get:
File Edit Options Buffers Tools Help
Welcome to the Emacs shell
/ # ls -l
total 21
drwxr-xr-x 2 0 0 1024 Jul 26 08:42 bin
drwxr-xr-x 1 0 0 0 Jan 1 1970 dev
lrwxrwxrwx 1 0 0 1 Jul 26 08:11 emacs -> .
drwxr-xr-x 2 0 0 1024 Jul 26 09:20 etc
drwxr-xr-x 2 0 0 2048 Jul 26 08:11 info
drwxr-xr-x 3 0 0 1024 Jul 26 08:11 libexec
drwx------ 2 0 0 12288 Jul 26 08:10 lost+found
drwxr-xr-x 3 0 0 1024 Jul 26 08:10 man
drwxr-xr-x 2 0 0 1024 Jul 26 08:11 sbin
drwxr-xr-x 3 0 0 1024 Jul 26 08:10 share
drwxr-xr-x 2 0 0 1024 Jul 26 09:15 tmp
/ #
--1-:---F1 *eshell* (EShell)--L20--All---------------------
Of course, quite a number of syscalls are missing from emacs (not available as elisp primitives), so as it is, it would be hard enough to do EVERYTHING with emacs, but this is a starting point.
Another, more realistic, alternative would be to use a Common-Lisp implementation with a FFI and portable Hemlock.
# Emacs as shell
Emacs can easily be used as shell:
echo /usr/bin/emacs >> /etc/shells
chsh -s /usr/bin/emacs GOODUSER
echo '(setenv "SHELL" "/bin/bash")' >> ~GOODUSER/.emacs
# in case the user wants to use M-x shell
# [ I use rather: (setenv "SHELL" "/usr/bin/clisp") ]
echo '(eshell)' >> ~GOODUSER/.emacs
# to launch eshell automatically.
# One could use: (dired default-directory) instead...
su - GOODUSER
# Hosanna!
* * *
| [Contents][1] | [Home][2] | [Previous][3] | [Up][4] | [Next][5] |
* * *
* * *
` | [Mirror on informatimago.com][8] | [Mirror on free.fr][9] | `
![Valid HTML 4.01!][10]
[1]: http://www.informatimago.com/toc.html
[2]: http://www.informatimago.com/index.html
[3]: http://www.informatimago.com/chrooted-ssh-cvs.html
[4]: http://www.informatimago.com/develop/sms/index.html
[5]: http://www.informatimago.com/develop/abalone/index.html
[6]: http://www.informatimago.com#shell
[7]: http://user-mode-linux.sourceforge.net
[8]: http://www.informatimago.com//linux/emacs-on-user-mode-linux.html
[9]: http://informatimago.free.fr/i//linux/emacs-on-user-mode-linux.html
[10]: http://www.w3.org/Icons/valid-html401