@ -51,7 +51,7 @@
( interactive )
( indium-maybe-quit )
( unless ( indium-client-process-live-p )
( let ( ( dir ( expand-file-name defaul t-directory) ) )
( let ( ( dir ( indium-interaction--curren t-directory) ) )
( indium-client-start
( lambda ( )
( indium-client-list-configurations
@ -66,7 +66,7 @@
( interactive )
( indium-maybe-quit )
( unless ( indium-client-process-live-p )
( let ( ( dir ( expand-file-name defaul t-directory) ) )
( let ( ( dir ( indium-interaction--curren t-directory) ) )
( indium-client-start
( lambda ( )
( indium-client-list-configurations
@ -422,6 +422,12 @@ hitting a breakpoint."
( when ( indium-breakpoint-at-point )
( user-error " There is already a breakpoint on the current line " ) ) )
( defun indium-interaction--current-directory ( )
" Return the true name of the current directory.
For the project root to be correctly set, symlinks are resolved. "
( file-truename default-directory ) )
( add-hook 'kill-buffer-hook #' indium-interaction-kill-buffer )
( provide 'indium-interaction )