Return to Snippet

Revision: 66543
at May 21, 2014 05:09 by lalzy


Initial Code
;;;; Anything that's showed to the user

(defparameter line-sep "===========================")

;;; Menus

(defun show_interface_selection (inter-list)
  "Show interface selection"
  (ext:run-shell-command "netsh interface ipv4 show subinterfaces")
  (let ((selection 1))
    (dolist (inter inter-list)
      (format t "~a - ~a | ~{~a ~}~%" selection (car inter) (cdr inter))
      (setf selection (1+ selection))))
  (format t ">> "))


(defun show_main_menu (&optional preset)
  "Display appropriate menu"
  (format t "
~a
          Main Menu
~a
0 - exit
1 - Show current MTU
2 - Edit MTU
3 - Create Preset MTU~%" line-sep line-sep)
  (when preset
    (format t "4 - Load Preset MTU
5 - Edit Preset MTU
6 - Delete preset MTU~%"))
  (format t "9 - Settings~%>> "))


(defun show_settings_menu ()
  (format t "
~a
       Settings Menu
~a
0 - back
1 - Change Interface~%>> " line-sep line-sep))


(defun edit_mtu ()
    (format t "Selected edit MTU"))


(defun create_preset_mtu ()
    (format t "Selected create preset mtu"))


(defun load_preset_mtu ()
    (format t "Selected load preset MTU"))


(defun edit_preset_mtu ()
    (format t "Selected edit preset MTU"))


(defun delete_preset_mtu ()
    (format t "Selected delete preset MTU"))

Initial URL

                                

Initial Description
All the menu's being displayed

Initial Title
MTU-Changing program - Menus.lisp

Initial Tags

                                

Initial Language
Lisp