emacs.d/bundle/bundle--qda.el

;;; bundle--qda.el --- Data and functions for qualitative data analysis

(defvar  mk--qda/explain-codes
  '((activity "the quality or state of being active. behavior or actions of a particular kind physical activity")
    (job "a piece of work. something that has to be done (task)")
    (objective "something toward which effort is directed")
    (gain "something wanted or desirable")
    (pain "mental or emotional distress or suffering")))

(defvar mk--qda/map-codes-to-questions
  '((activity . how)
    (job . what)
    (objective . why)
    (gain . why)
    (pain . what)))

(defvar mk--qda/interview-questions
  ;; A list of user interview questions.
  '((general
     (en "What does your typical weekday look like?")
     (de "Wie sieht Ihr typischer Arbeitstag aus?")
     (en "Tell me about your role at your company?")
     (de "Erzählen Sie mir etwas über Ihre Rolle in Ihrem Unternehmen?")
     (en "Can you give me an overview of your work?")
     (de "Können Sie mir einen Überblick über Ihre Arbeit geben?")
     (fr "Pouvez-vous me donner un aperçu de votre travail (exemple: activités quotidiennes) ?")
     (it "Può darmi un visione generale del suo lavoro? (per exempio: attività giornaliere)"))
    (activities
     (en "What are your most important activities?")
     (de "Was sind Ihre wichtigsten Aktivitäten?")
     (fr "Quelles sont vos principales (importantes) activités ?")
     (it "Quali sono le sue attività più importanti?")
     (en "What activities waste your time?")
     (de "Welche Aktivitäten verschwenden Ihre Zeit?")
     (fr "Quelles sont les activités qui vous font perdre votre temps ou ?")
     (it "Quali sono le attività che ti fanno sprecare tempo?"))
    (job/pain
     (en "What’s the hardest part about [problem / task]?")
     (de "Was ist das Schwierigste an [Problem / Aufgabe]?")
     (en "How do you currently go about [problem / task]?")
     (de "Wie gehen Sie derzeit [Problem / Aufgabe] an?")
     (en "What is the biggest pain point related to [problem / task]?")
     (de "Was ist der größte Schmerzpunkt im Zusammenhang mit [Problem / Aufgabe]?"))
    (demographic
     (en "What is the highest degree or level of education you have completed?")
     (de "Welches ist der höchste Abschluss, den Sie erworben haben?")
     (en "What kind of training did you receive?")
     (de "Welche Art von Ausbildung haben Sie erhalten?")
     (fr "Quel type de formation avez-vous suivi ?")
     (it "Che tipo di educazione ha ricevuto?"))
    (environment
     (en "Where do you do your work (Physical location)?")
     (de "Wo üben Sie Ihre Tätigkeit aus (physischer Standort)?")
     (fr "Où travaillez-vous (lieu physique) ?")
     (it "Dove lavorate (luogo fisico)?"))
    (standard
     (en "What information do you collect?")
     (de "Welche Informationen sammeln Sie?")
     (fr "Quelles informations collecter-vous ?")
     (it "Quali informazioni raccoglie?")
     (en "What information do you need to make a decision?")
     (de "Welche Informationen benötigen Sie, um eine Entscheidung zu treffen?")
     (fr "De quelles informations avez-vous besoin pour prendre une décision ?")
     (it "Di quali informazioni hai bisogno per prendere una decisione?")
     (en "Who do you provide information to?")
     (de "Wem stellen Sie Informationen zur Verfügung?")
     (fr "À qui fournissez-vous des informations ?")
     (it "A chi fornisce informazioni?")
     (en "What device do you use?")
     (de "Welches Gerät benutzen Sie?")
     (fr "Quel appareil utilisez-vous ?")
     (it "Quale dispositivo usa?")
     (en "How do you keep track of what you need to get done at work?")
     (de "Wie behalten Sie den Überblick darüber, was Sie bei der Arbeit zu erledigen haben?")
     (fr "Comment gardez-vous une trace de ce que vous avez à faire au travail")
     (it "Come fa a tenere traccia di quello, che deve fare al lavoro?"))
    (sus
     (en "I think that I would like to use this system frequently.")
     (de "Ich denke, dass ich dieses System häufig nutzen möchte.")
     (en "I found the system unnecessarily complex.")
     (de "Ich fand das System unnötig komplex.")
     (en "I thought the system was easy to use.")
     (de "Ich fand das System einfach zu bedienen.")
     (en "I think that I would need the support of a technical person to be able to use this system.")
     (de "Ich glaube, ich bräuchte die Unterstützung einer technischen Person, um dieses System nutzen zu können.")
     (en "I found the various functions in this system were well integrated.")
     (de "Ich fand, dass die verschiedenen Funktionen in diesem System gut integriert waren.")
     (en "I thought there was too much inconsistency in this system.")
     (de "Ich fand, dass dieses System zu widersprüchlich war.")
     (en "I would imagine that most people would learn to use this system very quickly.")
     (de "Ich könnte mir vorstellen, dass die meisten Menschen sehr schnell lernen würden, mit diesem System umzugehen.")
     (en "I found the system very cumbersome to use.")
     (de "Ich fand das System sehr umständlich zu bedienen.")
     (en "I felt very confident using the system.")
     (de "Ich fühlte mich sehr sicher im Umgang mit dem System.")
     (en "I needed to learn a lot of things before I could get going with this system.")
     (de "Ich musste eine Menge Dinge lernen, bevor ich mit diesem System loslegen konnte."))))

(defun mk--qda/questions-by-category (category)
  (cdr (assoc category mk--qda/interview-questions)))

(defun mk--qda/questions-by-lang (lang category)
  (let* ((questions (mk--qda/questions-by-category category))
         (lang-questions (remove nil (mapcar #'(lambda (x) (member lang x)) questions))))
    (remove lang (flatten-tree lang-questions))))

;; (mk--qda/questions-in-lang 'de (mk--qda/interview-cat 'sus))

(use-package subed
  :config
  ;; Disable automatic movement of point by default
  (add-hook 'subed-mode-hook 'subed-disable-sync-point-to-player)
  ;; Remember cursor position between sessions
  (add-hook 'subed-mode-hook 'save-place-local-mode)
  ;; Break lines automatically while typing
  (add-hook 'subed-mode-hook 'turn-on-auto-fill)
  ;; Break lines at 40 characters
  (add-hook 'subed-mode-hook (lambda () (setq-local fill-column 40)))
  (when (eq system-type 'windows-nt)
    (when (directory-name-p "c:/msys64/")
      (setq subed-mpv-executable "c:/msys64/mingw64/bin/mpv.exe"))))