Muchos Paréntesis

(ns crud.createdb
  (:require [next.jdbc :as jdbc]))

;; **db-spec**
;; Contiene la configuración para conectar a la base de datos MariaDB.
;;
;; Parámetros:
;; - `:dbtype`: El tipo de base de datos (en este caso, "mariadb").
;; - `:dbname`: El nombre de la base de datos (en este caso, "clojure").
;; - `:host`: La dirección IP o el host del servidor de base de datos (en este caso, "127.0.0.1").
;; - `:port`: El puerto de conexión al servidor de base de datos (en este caso, el puerto por defecto para MariaDB, 3306).
;; - `:user`: El nombre de usuario para autenticarse con la base de datos.
;; - `:password`: La contraseña asociada al usuario.
(def db-spec
  {:dbtype "mariadb"
   :dbname "clojure"
   :host "127.0.0.1"
   :port 3306
   :user "ashajaa"
   :password "I(s44c)d"})

;; **ds**
;; Crea un datasource usando la configuración de `db-spec`, que se utilizará para realizar las operaciones en la base de datos.
;;
;; Retorna:
;; - Un objeto datasource de `next.jdbc` para interactuar con la base de datos.
(def ds (jdbc/get-datasource db-spec))

;; **create-table**
;; Crea la tabla `personajes` en la base de datos si no existe.
;;
;; Parámetros:
;; - Ninguno.
;;
;; Retorna:
;; - Una lista de mapas de resultados de la operación de creación de la tabla. Si la operación es exitosa, la lista estará vacía.
(defn create-table []
  (jdbc/execute! ds ["
CREATE TABLE personajes (
  id int auto_increment primary key,
  nombre varchar (100),
  anime varchar (100)
)"]))

;; **insert-data**
;; Inserta datos iniciales en la tabla `personajes`. Los personajes se insertan con nombre y anime.
;;
;; Parámetros:
;; - Ninguno.
;;
;; Retorna:
;; - Una lista de mapas de resultados de la operación de inserción. Si la operación es exitosa, la lista estará vacía.
(defn insert-data []
  (jdbc/execute! ds ["
INSERT INTO personajes (nombre, anime) 
VALUES 
  (?, ?), (?, ?), (?, ?), (?, ?), (?, ?), (?, ?), (?, ?)
" "Mai" "Dragon Ball"
   "Asuna" "Sword Art Online"
   "Rem" "Re:Zero"
   "Saber" "Fate/stay night"
   "Mikasa" "Attack on Titan"
   "Hinata" "Naruto"
   "Emilia" "Re:Zero"]))

  (ns crud.core
    (:require [next.jdbc :as jdbc]
              [crud.createdb :refer [ds]]))

  ;; **insert-character**
  ;; Inserta un nuevo personaje en la base de datos.
  ;;
  ;; Parámetros:
  ;; - `nombre`: un string que representa el nombre del personaje.
  ;; - `anime`: un string que representa el anime al que pertenece el personaje.
  ;;

  ;; Retorna:
  ;; - Una lista de mapas de resultados de la operación de inserción. Si la operación es exitosa, la lista estará vacía.
  (defn insert-character [nombre anime]
    (jdbc/execute! ds ["INSERT INTO personajes (nombre, anime) VALUES (?, ?)" nombre anime]))

  ;; **get-all-characters**
  ;; Obtiene todos los personajes de la base de datos.
  ;;
  ;; Parámetros:
  ;; - Ninguno.
  ;;
  ;; Retorna:
  ;; - Una lista de mapas, donde cada mapa representa un personaje con sus columnas (id, nombre, anime) de la tabla `personajes`.
  (defn get-all-characters []
    (jdbc/execute! ds ["SELECT * FROM personajes"]))

  ;; **get-character-by-id**
  ;; Obtiene un personaje de la base de datos mediante su ID.
  ;;
  ;; Parámetros:
  ;; - `id`: el identificador único del personaje en la base de datos.
  ;;
  ;; Retorna:
  ;; - Un mapa que contiene los detalles del personaje (id, nombre, anime) si el personaje existe.
  ;; - `nil` si no se encuentra un personaje con el ID proporcionado.
  (defn get-character-by-id [id]
    (jdbc/execute-one! ds ["SELECT * FROM personajes WHERE id=?" id]))

  ;; **update-character**
  ;; Actualiza el nombre y/o el anime de un personaje en la base de datos según su ID.
  ;;
  ;; Parámetros:
  ;; - `id`: el identificador único del personaje en la base de datos.
  ;; - `new-name`: el nuevo nombre que se asignará al personaje.
  ;; - `new-anime`: el nuevo anime que se asignará al personaje.
  ;;
  ;; Retorna:
  ;; - Una lista de mapas de resultados de la operación de actualización. Si la operación es exitosa, la lista estará vacía.
  (defn update-character [id new-name new-anime]
    (jdbc/execute! ds ["UPDATE personajes SET nombre=?, anime=? WHERE id=?" new-name new-anime id]))

  ;; **delete-character**
  ;; Elimina un personaje de la base de datos según su ID.
  ;;
  ;; Parámetros:
  ;; - `id`: el identificador único del personaje en la base de datos.
  ;;
  ;; Retorna:
  ;; - Una lista de mapas de resultados de la operación de eliminación. Si la operación es exitosa, la lista estará vacía.
  (defn delete-character [id]
    (jdbc/execute! ds ["DELETE FROM personajes WHERE id=?" id]))

  ;; **menu**
;; Muestra el menú principal interactivo para el CRUD de personajes. Permite al usuario seleccionar entre las diferentes opciones para agregar, listar, buscar, actualizar, eliminar personajes o salir.
;;
;; Parámetros:
;; - Ninguno.
;;
;; Retorna:
;; - Ninguno (La función ejecuta un bucle interactivo, solicitando la entrada del usuario hasta que elija la opción de salir).
(defn menu []
  (loop []
    (println "\nMenu CRUD:")
    (println "1. Agregar personaje")
    (println "2. Listar personajes")
    (println "3. Buscar personaje por ID")
    (println "4. Actualizar personaje")
    (println "5. Eliminar personaje")
    (println "6. Salir")
    (print "Elige una opción: ")
    (flush)
    (let [opcion (read-line)]
      (cond
        ;; Opción 1: Agregar un nuevo personaje
        (= opcion "1") (do (print "Nombre: ") (flush)
                           (let [nombre (read-line)]
                             (print "Anime: ") (flush)
                             (let [anime (read-line)]
                               (insert-character nombre anime)
                               (println "Personaje agregado."))))
        ;; Opción 2: Listar todos los personajes
        (= opcion "2") (do (println "Personajes:")
                           (doseq [personaje (get-all-characters)]
                             (println personaje)))
        ;; Opción 3: Buscar un personaje por ID
        (= opcion "3") (do (print "ID: ") (flush)
                           (let [id (Integer/parseInt (read-line))]
                             (println (get-character-by-id id))))
        ;; Opción 4: Actualizar un personaje existente
        (= opcion "4") (do (print "ID: ") (flush)
                           (let [id (Integer/parseInt (read-line))]
                             (print "Nuevo Nombre: ") (flush)
                             (let [nombre (read-line)]
                               (print "Nuevo Anime: ") (flush)
                               (let [anime (read-line)]
                                 (update-character id nombre anime)
                                 (println "Personaje actualizado.")))))
        ;; Opción 5: Eliminar un personaje por ID
        (= opcion "5") (do (print "ID: ") (flush)
                           (let [id (Integer/parseInt (read-line))]
                             (delete-character id)
                             (println "Personaje eliminado.")))
        ;; Opción 6: Salir del programa
        (= opcion "6") (println "Saliendo...\n") 
        ;; Opción inválida
        :else (do (println "Opción no válida. Intenta de nuevo.") (recur)))))

;; **-main**
;; Función principal que inicia el menú interactivo.
;;
;; Parámetros:
;; - Ninguno.
;;
;; Retorna:
;; - Ninguno (Llama a la función `menu` para iniciar la interacción).
(defn -main []
  (menu))