x11-wm/stumpwm.stumpwm-contrib
1
0
Fork 0
mirror of https://github.com/stumpwm/stumpwm-contrib.git synced 2026-09-10 07:26:25 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Trap CL-MOUNT-INFO conditions

Browse source 
When CL-MOUNT-INFO can't open the file containing the mount
information, /etc/mtab by default, it will signal an error. Handle the
error so that StumpWM doesn't crash.
This commit is contained in:
cage 2020-01-01 13:37:55 +01:00 committed by Javier Olaechea
parent 3a9629ce55
commit 12108cf29f
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
modeline/disk/disk.lisp
View file

@ -114,14 +114,20 @@ Filesystem type
(format nil "~a%" value)))
(defun disk-get-device (path)
#+linux (cl-mount-info:mountpoint->device path)
#+linux
(handler-case
(cl-mount-info:mountpoint->device path)
(error () "ERR"))
#-linux (disk-usage-get-field path 0))
(defun disk-get-mount-point (path)
path)
(defun disk-get-filesystem-type (path)
#+linux (cl-mount-info:mountpoint->fstype path)
#+linux
(handler-case
(cl-mount-info:mountpoint->fstype path)
(error () "ERR"))
#-linux "filesystem type supported only on GNU/Linux :-(")
(defun use-fallback-method-p ()